Excel VBA質問箱 IV

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

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


59747 / 76732 ←次へ | 前へ→

【21660】Re:条件付リストのような物は作成できますか?
質問  まつ  - 05/1/26(水) 8:51 -

引用なし
パスワード
   ▼kobasan さん:
>▼まつ さん今晩は
>>下記のような事がしたいのですが良い方法がありますか?
>>
>>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
>
>
▼kobasan さん おはようございます。
早速の解凍ありがとうございます。
初心者なので教えてください。
B1セルをクリックしたときにリストをプルダウン等で表示し、
選択することができますか?
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 お礼

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