使用VBA为Excel中的组合框指定默认选定值

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

如何通过VBA在此范围内为其指定默认值

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

我试过上面的代码，但不起作用。我认为语法不正确。你能帮忙吗？ 非常感谢。

---

您可以使用下拉类型，当您键入时，它不会显示在智能屏幕中

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

DropDown1.Value = 1

---

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

您的图片不在那里。我已阅读了它，我希望它现在可以看到，Doug，谢谢您让我知道+1。我认为默认的命名是

下拉列表1

（带空格），但值得注意的是，OP需要仔细检查拼写。是否可以始终激活intellisence？非常感谢你们两位@David Lol，当我打字时，我希望有人在我之前回答：P@Sam如果在VBA编辑器中打开对象浏览器（它是与“运行”按钮位于同一行上的快捷按钮，或者只需按F2键）然后在对象浏览器的屏幕上单击鼠标右键，然后单击“显示隐藏成员”，然后类似下拉成员的内容将显示在intellisence中。虽然在使用ActiveSheet时，没有intellisense显示在它上面，所以我发现声明一个工作表变量并将其分配给您正在处理的工作表更容易