在Excel 2013上使用VBA填充组合框（窗体控件）

Question

我是VBA的新手。 我已经尝试了几个小时，以执行使用VBA代码填充组合框（窗体控件）的简单功能。 我看过很多网站（包括该网站），但似乎没有任何代码有效。 我一直在使用此代码。 （我将此代码放入模块中）

Sub populateDropDown303()

With Worksheets("S1 Fuel Consumption").Shapes("Drop Down 303").ControlFormat

.AddItem "this"

.AddItem "that"

End With

End Sub

嘿，我的代码起作用了。 但是每次我从组合框下拉列表中选择一个值时，它都会再次运行代码并显示重复的值。 我该如何删除？

Answer 1

尝试这个：

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

我添加了一个新的Worksheet类型变量ws ，以便Intellisense加入。
这样，您将更容易查看正在处理的对象的可用方法和属性。 HTH。

Answer 2

With Worksheets("S1 Fuel Consumption").Dropdowns("Drop Down 303")
    .AddItem "this"
    .AddItem "that"
End with