2

「Select」、「Jack」、「Jill」の 3 つの項目を持つ ComboBox があります。Private Sub Workbook_Open()の下に、次のコード行を保持しました。

With ThisWorkbook.Sheets("Sheet1").ComboBox1
    Items.Clear
    .AddItem "Select"
    .AddItem "Jack"
    .AddItem "Jill"
End With

いつでもアイテムを選択してExcelを閉じます。次回、以前に選択したアイテムを表示するデフォルトのコンボボックスでExcelを開くと。しかし、 selectをデフォルト項目として表示したい。

4

1 に答える 1

15

削除する必要があるのは、プロパティを使用して選択したテキストを設定するItems.Clearだけです.Clear.SelText

With ThisWorkbook.Sheets("Sheet1").ComboBox1
    .Clear
    .AddItem "Select"
    .AddItem "Jack"
    .AddItem "Jill"
    .SelText = "Select"
End With
于 2013-01-08T07:54:07.263 に答える