第11回 リストボックスのリストを動的に作る
http://itpro.nikkeibp.co.jp/article/COLUMN/20071116/287370/?ST=develop&P=2
EXCEL VBAを利用してリストボックスを選択するごとに該当データを表示させる仕組み
①
リストボックスのRowSourceプロパティに,セルのシート名とアドレスを代入
2
<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に表示されます。
|
※コメント投稿者のブログIDはブログ作成者のみに通知されます