|
▼たつ さん:
ヨコから失礼します。
練習でこんなの作ってみました。
試してみて下さい。
Private Sub ComboBox1_Change()
Dim CBC As Long, i As Long, j As Long
With Worksheets("Sheet1")
CBC = ComboBox1.ListIndex + 1
j = .Cells(2, CBC).End(xlDown).Row
If j = 65536 Then Exit Sub
ComboBox2.Clear
For i = 2 To j
ComboBox2.AddItem .Cells(i, CBC).Value
Next i
ComboBox2.ListIndex = 0
End With
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
With Worksheets("Sheet1")
For i = 1 To 4
ComboBox1.AddItem .Cells(1, i).Value
Next i
ComboBox1.ListIndex = 0
End With
End Sub
>なんかうまく投稿できなかったので、再度送信します
>重複してたら、すみません・・・
>
>▼kanabun さん:
>
>すみません。説明不足で…
>>
>>それはシートのComboBoxですか、
>>それともUserForm上のComboBox ですか
>
>Userfom上のコンボボックスの話です。
>シート上のほうが、やりやすいのであれば、シート上でも、かまわないです。
>
>質問上では、わかりやすい例として、都道府県の例を出しましたが、実際は下記のような感じです
>
>そして、シート1のA1からD1のように、横にコンボボックス1で選択する為のリストが入力されてます
>A2から横にそれぞれの列の1行目に関連したリストが入力してあります
>コンボボックス1で、「100M」を選択したら、コンボボックス2では「A,B,C]のリストが表示されてほしいのです。
>
>例)シート1
>| A | B | C | D |
>-|-----------------------------------
>1| 100M | 200M | 300M | 400M |
>-|-----------------------------------
>2| A | D | G | J |
>3| B | E | H | K |
>4| C | F | I | L |
>
>なかなかうまくいきません。
>どうか、アドバイスを頂きたいのですが…
>よろしくおねがいします
|
|