Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59756 / 76732 ←次へ | 前へ→

【21651】Re:条件付リストのような物は作成できますか?
発言  kobasan  - 05/1/25(火) 19:38 -

引用なし
パスワード
   ▼まつ さん今晩は
>下記のような事がしたいのですが良い方法がありますか?
>
>A1セルの値を条件とします。
>B1セルにリスト・プルダウンのような物で
>A1の値が1だったらリストの範囲がC1:D10
>A1の値が2だったらリストの範囲がE1:F10
>A1の値が3だったらリストの範囲がG1:H10
>A1の値が4だったらリストの範囲がI1:J10
>のように設定することができるでしょうか?
>他の方法でもかまいません、どなたかお教えください。

データに","が入ってないなら、こんな方法もあります
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, st As String
  If Target.Address(0, 0) <> "A1" Then Exit Sub
  If Range("A1").Value < 1 Then Exit Sub
  If Range("A1").Value > 4 Then Exit Sub
  If Range("A1").Value = 1 Then st = "C1:D10"
  If Range("A1").Value = 2 Then st = "E1:F10"
  If Range("A1").Value = 3 Then st = "G1:H10"
  If Range("A1").Value = 4 Then st = "I1:J10"
  '
  'data="a,b,c"の形にするための処理
  data = ""
  For Each c In Range(st)
    If data = "" Then
      data = c.Text
    Else
      data = data & "," & c.Text
    End If
  Next
  '
  With Range("B1").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=data
  End With
End Sub

0 hits

【21635】条件付リストのような物は作成できますか? まつ 05/1/25(火) 16:31 質問
【21647】Re:条件付リストのような物は作成できます... ぴかる 05/1/25(火) 18:14 回答
【21659】Re:条件付リストのような物は作成できます... まつ 05/1/26(水) 8:48 質問
【21661】Re:条件付リストのような物は作成できます... ぴかる 05/1/26(水) 9:14 回答
【21651】Re:条件付リストのような物は作成できます... kobasan 05/1/25(火) 19:38 発言
【21660】Re:条件付リストのような物は作成できます... まつ 05/1/26(水) 8:51 質問
【21664】Re:条件付リストのような物は作成できます... Jaka 05/1/26(水) 9:50 回答
【22330】Re:条件付リストのような物は作成できます... まつ 05/2/16(水) 14:06 お礼
【21683】Re:条件付リストのような物は作成できます... kobasan 05/1/26(水) 18:07 回答
【22331】Re:条件付リストのような物は作成できます... まつ 05/2/16(水) 14:08 お礼
【21700】Re:条件付リストのような物は作成できます... ぴかる 05/1/27(木) 14:53 発言
【22329】Re:条件付リストのような物は作成できます... まつ 05/2/16(水) 14:05 お礼

59756 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free