Заполнение Combobox (контроль формы) с использованием VBA на Excel 2013

Question

Я новичок в VBA. Я уже несколько часов пытаюсь выполнить простую функцию заполнения combobox (управления формой) с помощью кода VBA. Я просмотрел множество веб-сайтов (включая этот), но ни один из этих кодов не работает. Я использую этот код. (Я помещаю этот код в модуль)

Sub populateDropDown303() 

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

.AddItem "this" 

.AddItem "that" 

End With 

End Sub 

Эй, у меня код работает. Но каждый раз, когда я выбираю значение из раскрывающегося списка combobox, он снова запускает код и отображает повторяющиеся значения. Как удалить это?

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 

Я добавил новую переменную ws из Worksheet типа так Intellisense ногами в
Таким образом, это будет проще для вас, чтобы увидеть доступные методы и свойства. объект, над которым вы работаете. НТН.

Answer 2

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