文書番号: 402327
最終更新日: 1997/10/20
(a) エディット ボックス 、ドロップダウン コンボ ボックス Text プロパティで表示したい文字列を設定します。 (b) チェック ボックス、オプション ボタン Value プロパティでオンのときは「 1 」、オフのときは「 0 」を設定します。 (c) リスト ボックス、ドロップダウン リスト ボックス ListIndex プロパティで表示したい項目のインデックス番号を設定します。 (d) コンボ ボックス エディット ボックスの部分は、Text プロパティで文字列を設定します。 リスト ボックスの部分は、ListIndex プロパティで表示したい項目のインデックス 番号を設定します。
Sub Sample() 'エディット ボックス "エディット 4" に「 Excel 」と表示します DialogSheets("Dialog1").EditBoxes("エディット 4").Text = "Excel" 'チェック ボックス "チェック 5" をオンにします DialogSheets("Dialog1").CheckBoxes("チェック 5").Value = 1 'オプション ボタン "オプション 6" をオンにします DialogSheets("Dialog1").OptionButtons("オプション 6").Value = 1 'リスト ボックスの 4 番目の項目を選択します DialogSheets("Dialog1").ListBoxes("リスト 7").ListIndex = 4 'ドロップダウン リスト ボックスの 4 番目の項目を選択します DialogSheets("Dialog1").DropDowns("ドロップ 8").ListIndex = 4 'コンボ ボックスの 4 番目の項目を選択します DialogSheets("Dialog1").ListBoxes("リスト 9").ListIndex = 4 DialogSheets("Dialog1").EditBoxes("エディット 10").Text = _ DialogSheets("Dialog1").ListBoxes("リスト 9").List(4) 'ドロップダウン コンボ ボックスに「 Excel 」と表示します DialogSheets("Dialog1").DropDowns("ドロップ 11").Text = "Excel" 'ユーザー定義ダイアログ ボックスを表示します DialogSheets("Dialog1").Show End Sub
(a) エディット ボックス、ドロップダウン コンボ ボックス Text プロパティで長さが 0 の文字列 ("") を設定します。 (b) チェック ボックス、オプション ボタン Value プロパティで 0 を設定します。 (c) リスト ボックス、ドロップダウン リスト ボックス ListIndex プロパティで 0 を設定します。 (d) コンボ ボックス エディット ボックスの部分は、Text プロパティで長さが 0 の文字列 ("") を設定 します。 リスト ボックスの部分は、ListIndex プロパティで 0 を設定します。
Keywords: KBHOWTO KB402327
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch