VBA-Excel如何清除組合框項目

Question

我有一個帶有3個項目的組合框，分別是“選擇”，“傑克”和“吉爾”。 在Private Sub Workbook_Open（）下，我保留了以下代碼行。

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

每當我選擇一個項目並關閉excel。 下次如果我默認情況下打開excel，則顯示以前選擇的項目的comboBox。 但我想顯示選擇作為默認項。

Answer 1

您需要刪除Items.Clear應該只是.Clear ，然后使用.SelText屬性設置所選文本

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