| |
▼kankan さん：
>初心者なもので教えていただけますか？
>UserFormにコンボBOXが２つありコンボ１には５つの選択項目を設定したのですが
>その５種ごとにコンボ２の選択リストを変更したいのですがコンボ２用のリストはsheet1にA列B列C列D列E列に２０〜３０行に入力はしたのですが、連動方法がわかりません。
>よろしくお願いします。
こんばんは。
作ってみました。もっといい方法がありそうですが・・・
こんな感じでしょうか？
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
