组合框（窗体控件）VBA的默认值

Question

嘿，我在Internet上搜索了很多东西，但是找不到解决方案。 我的工作簿中至少有10-15个组合框（窗体控件）。 我希望他们显示“选择类型”的默认值。 现在，我尝试使用“ .listindex”进行此操作，但是它不允许我更改组合框中的值（因为默认值是永久设置的）。

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

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

Answer 1

组合框的默认状态为空白，因此，如果需要添加任何内容，通常是列表范围内的一项。

例如，输入范围（来自“属性”）为

    A1:A10

和单元格链接是

    B1

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

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

和A1可以包含字符串“选择类型”

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