VBA UserForm несколько комбинированных списков с одинаковыми значениями

Question

Я хочу сделать 3 различных комбинированных списка в пользовательской форме Excel. Всего будет х каждого типа.

Я хочу сделать код, подобный этому:

With ComboboxAi for i = 1 to 5
    .AddItem "monday"
    .AddItem "tuesday"

With ComboboxBj for j = 1 to 6
    .AddItem "january"
    .AddItem "february"

Мои комбо-боксы названы как: ComboboxA1,.., ComboboxA5, ComboboxB1,.., ComboboxB6

Может ли кто-нибудь помочь мне сделать правильный код?

Answer 1

Это синтаксис:

    Dim i As Long

    For i = 1 To 5
        With Controls("ComboboxA" & i)
            .AddItem "Monday"
            .AddItem "Tuesday"
        End With
    Next i

    For i = 1 To 6
        With Controls("ComboboxB" & i)
            .AddItem "January"
            .AddItem "February"
        End With
    Next i

Тем не менее, следующее может быть лучшим способом достижения того же:

    Dim ctrl As MSForms.Control

    For Each ctrl In Controls
        If TypeOf ctrl Is MSForms.ComboBox Then
            If ctrl.Name Like "ComboboxA*" Then ctrl.List = Array("Monday", "Tuesday")
            If ctrl.Name Like "ComboboxB*" Then ctrl.List = Array("January", "February")
        End If
    Next ctrl