|
▼kankan さん:
>初心者なもので教えていただけますか?
>UserFormにコンボBOXが2つありコンボ1には5つの選択項目を設定したのですが
>その5種ごとにコンボ2の選択リストを変更したいのですがコンボ2用のリストはsheet1にA列B列C列D列E列に20〜30行に入力はしたのですが、連動方法がわかりません。
>よろしくお願いします。
こんばんは。
作ってみました。もっといい方法がありそうですが・・・
こんな感じでしょうか?
Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.ListIndex
Case 0
Me.ComboBox2.List = Range("A1", Range("A65536").End(xlUp)).Value
Case 1
Me.ComboBox2.List = Range("B1", Range("B65536").End(xlUp)).Value
Case 2
Me.ComboBox2.List = Range("C1", Range("C65536").End(xlUp)).Value
Case 3
Me.ComboBox2.List = Range("D1", Range("D65536").End(xlUp)).Value
Case 4
Me.ComboBox2.List = Range("E1", Range("E65536").End(xlUp)).Value
End Select
End Sub
’=========================================================================
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array("A", "B", "C", "D", "E")
Me.ComboBox1.ListIndex = 0
End Sub
|
|