第11回 リストボックスのリストを動的に作る

第11回 リストボックスのリストを動的に作る

http://itpro.nikkeibp.co.jp/article/COLUMN/20071116/287370/?ST=develop&P=2

EXCEL　VBAを利用してリストボックスを選択するごとに該当データを表示させる仕組み

①

リストボックスのRowSourceプロパティに，セルのシート名とアドレスを代入

 

２

<CODE> Private Sub ListBox1_Change() Select Case Me.ListBox1.Value Case "DAIHATSU" Me.ListBox2.RowSource = "SHEET2!A2:A30" Case "HINO" Me.ListBox2.RowSource = "SHEET2!B2:B15" Case "HONDA" Me.ListBox2.RowSource = "SHEET2!C2:C32" Case "MAZDA" Me.ListBox2.RowSource = "SHEET2!D2:D13" Case "MITSUBISHI" Me.ListBox2.RowSource = "SHEET2!E2:E67" Case "NISSAN" Me.ListBox2.RowSource = "SHEET2!F2:F94" Case "SUZUKI" Me.ListBox2.RowSource = "SHEET2!G2:G42" Case "TOYOTA" Me.ListBox2.RowSource = "SHEET2!H2:H147" End Select End Sub </CODE>

リスト2●二つのリストボックスが連動して，リストの内容が動的にかわるプロシジャ

　このユーザーフォームを実行すると，図8や図9のように，クリックしたメーカーの車種が，ListBox2に表示されます。