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

Question

我有一個組合框，其中包含3個項目，分別爲「Select」，「Jack」和「Jill」。在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