vba - 使用 VBA 为 Excel 中的组合框提供默认选定值

Question

如图所示，我在 Excel 中创建了一个组合框，它有一个与之关联的范围。

如何通过 VBA 给它这个范围内的默认值？

ActiveSheet.Shapes("DropDown1").ControlFormat.Value = "Germany"

我尝试了上面的代码，但它不起作用。我相信语法不正确。你能帮忙吗？谢谢！

Answer 1

您可以使用 DropDown 类型，当您键入时它不会显示在智能中。

Dim DropDown1 As DropDown
Set DropDown1 = ActiveSheet.DropDowns("DropDown1")

DropDown1.Value = 1

该值是下拉列表的索引，因此 1 是列表中的第一个等。使用 0 可以不选择任何值。还要确保名称“DropDown1”是控件的正确名称，如果右键单击 Excel 表中的控件，您将在功能栏左侧看到控件的名称。