[[20051130104401]]　『リストボックスの連動』（POST）　ページの最後に飛ぶ

『リストボックスの連動』（POST）

 SHEET（リスト）
  A	B	C	D	E
1 区分	課	営	氏名	氏名２
2 A	あ	か	あゆ	かれい
3 B	い	き	イワナ	ひらめ
4 C	う	く	やまめ	たい
5 D	え	け		
6 E	お	こ		
7 F				
8					
上記のようなSheet(リスト)にリスト表があります。
USERFORM上にリストボックスが３つ置いてありまして
今、リストボックスを２つ連動させています。
例）Listbox１はＡ列がリストになっています。
　　Listbox２はＡ列のＡを選ぶとＢ列が表示されて
　　Ｂ～Ｆを選ぶとＣ列が表示されるようになっています。

 そこで、Listbox1でＡを選択し、Listbox2でＢ列が選択された場合は
 Listbox3を表示させないで、

 Listbox1で、Ｂ～Ｆを選択し、Listbox2でＣ列が選択された場合、
 Ｃ列のリストの”か”を選んだらListbox3にＤ列のリストを
 ”き”を選んだらＥ列のリストを表示させるにはどのようなコードを書いたら
 いいのですか？　教えて下さい。

 Private Sub UserForm_Initialize()
With UserForm1.ListBox1
.RowSource = "リスト!A2:A" & Range("a65536").End(xlUp).Row
.ListIndex = 0
End With
End Sub

Private Sub ListBox1_Change()
Dim R As Integer

    With UserForm1
        R = .ListBox1.ListIndex
        Select Case R
            Case 0
            .ListBox2.RowSource = "リスト!b2:b" & Range("b65536").End(xlUp).Row
            Case 1 To 5
            .ListBox2.RowSource = "リスト!C2:C" & Range("C65536").End(xlUp).Row
        End Select
    End With
End Sub

 一案ですが･･･。
ワークシート側で範囲名をつけておく。
D列のリストを「か」
E列のリストを「き」・・・・
Me.Listbox3.RowSource = "リスト!" & Me.Listbox2.Text
とか。（みやほりん）

  （みやほりん）様回答ありがとうございます。
参考にして自分なりにもう少し考えてみようとおもいます。
ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20051130104401]] 『リストボックスの連動』（POST） ページの最後に飛ぶ

[[20051130104401]]　『リストボックスの連動』（POST）　ページの最後に飛ぶ