Combobox（窗体控件）VBA的默认值

嘿，我一直在网上search很多，但我一直没能find解决scheme。 我的工作簿中至less有10-15个combobox（表单控件）。 我希望他们显示一个默认值，如“selecttypes”。 现在，我已经尝试使用“.listindex”来做这个，但是它不允许我改变combobox中的值（因为默认是永久设置的）。

有人可以帮忙吗？ 这是我试图使用的

With ws(1).shapes("Chill1").controlformat .listindex = 1 End with 

Answer 1

Combobox的默认状态是空白的，所以如果需要input任何东西，它通常是列表范围内的一个项目。

例如input范围（来自属性）是

  A1:A10 

和单元格的链接是

  B1 

然后B1可以手动或通过macros（workbook_open事件）设置为值：1

  Private Sub Workbook_Open() Worksheets("Sheet1").Range("B1") = 1 End Sub 

A1可以包含string'Select Type'

这样，每次打开工作簿时，macros将这些列表中的每一个的第一个值设置为“selecttypes”