我是VBA的新手。我已经尝试了几个小时，以执行使用VBA代码填充组合框（窗体控件）的简单功能。我看过很多网站（包括该网站），但是似乎没有任何代码有效。我一直在使用此代码。（我将这段代码放在一个模块中）
Sub populateDropDown303()
With Worksheets("S1 Fuel Consumption").Shapes("Drop Down 303").ControlFormat
.AddItem "this"
.AddItem "that"
End With
End Sub
嘿，我的代码可以正常工作了。但是每次我从组合框下拉列表中选择一个值时，它都会再次运行代码并显示重复的值。我该如何删除？
试试这个：
Sub populateDropDown303()
Dim ws As Worksheet: Set ws = Worksheets("S1 Fuel Consumption")
With ws.Shapes("Drop Down 303").ControlFormat
.RemoveAllItems '~~> This is what you lack I think
.AddItem "This"
.AddItem "That"
End With
End Sub
我添加了一个新ws的Worksheet类型变量，以便Intellisense生效。
这样一来，您将更容易看到正在处理的对象的可用方法和属性。HTH。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句