Question

我有一个ComboBox有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

VBA-Excel如何清除ComboBox项

1 个答案: