Combobox（表单控件）VBA的默认值

Question

嘿，我一直在互联网上搜索，但我还没能找到解决方案。我的工作簿中至少有10-15个组合框（表单控件）。我希望它们显示默认值say＆＃34;选择类型＆＃34;。现在，我尝试使用＆＃34; .listindex＆＃34;但是它不允许我改变组合框中的值（因为默认值是永久设置的）。

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

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

Answer 1

Combobox的默认状态为空白，因此如果需要输入任何内容，它通常是列表范围内的项目。

e.g。输入范围（来自属性）是

    A1:A10

，单元格链接

    B1

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

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

和A1可以包含字符串＆＃39;选择类型＆＃39;

这样每次打开工作簿时，宏都会将每个列表的第一个值设置为＆＃34;选择类型＆＃34;