Collection to combobox

Question

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

Это то, что я до сих пор

Dim CollWk As New Collection 

For i = wkLow To wkHigh 
    CollWk.Add i 
Next 

это был я создать коллекцию. Currnetly лист «ExtraData» активен Поле со списком на листе «StartSheet»

Я пытался сделать combobox1.additem я в цикл просто добавить элементы, но doens't работу

когда я пытаюсь добавить что-то выпадающий список, как

Startsheet.ComboBox1.Additem «Здравствуйте»

он не будет работать

Answer 1

Вы можете просто цикл по коллекции и добавить каждый элемент в ComboBox как это:

Sub Test_Henk_Schins() 

Dim CollWk As Collection 
Dim aWeek 

'With UserForm1.ComboBox1 
With Sheets("SheetName").ComboBox1 
    .Clear 
    For Each aWeek In CollWk 
     .AddItem aWeek 
    Next aWeek 
End With 

End Sub