文書番号: 402457
最終更新日: 1997/10/23
__|____A____|____B____|____C____|_______D_______| 1|文房具 |バインダ |文庫 |マウス | 2|書籍 |色鉛筆 |専門書 |ディスプレイ | 3|OA 機器 |筆箱 |図鑑 |コンピュータ |
+--------------------------------------------+ | リスト選択 <---|---<フォーム 1> フォーム 1 Show +--------------------------------------------+ | | | +-------+--+ +-------+--+ +---------+ | | | |↑| | |↑| | OK | | | | |~~| | |~~| +---------+ | | | | | | | | +----------+| | | |__| | |__| |キャンセル|| | | ^ |↓| | ^ |↓| +----------+| | +--|----+--+ +----|--+--+ | +-----|---------------|----------------------+ | | | +--------<リスト 5> +----------------------- <リスト 4> リスト 4 Change各コントロールに登録するマクロは次の通りです。
Sub フォーム 1_Show() DialogSheets("Dialog1").listboxes("リスト 4").ListFillRange = _ "Sheet1!A1:A3" DialogSheets("Dialog1").ListBoxes("リスト 4").Value = 1 DialogSheets("Dialog1").ListBoxes("リスト 5").ListFillRange = _ "Sheet1!B1:B3" End Sub Sub リスト 4_Change() Dim selectindex As Integer Dim mydlg As Object Set mylist = DialogSheets("Dialog1").ListBoxes("リスト 5") selectindex = DialogSheets("Dialog1"). _ ListBoxes("リスト 4").ListIndex Select Case selectindex Case 1 mylist.ListFillRange = "Sheet1!B1:B3" Case 2 mylist.ListFillRange = "Sheet1!C1:C3" Case 3 mylist.ListFillRange = "Sheet1!D1:D3" End Select End Sub
Keywords: KBHOWTO KB402457
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch