VBA UserForm 具有相同值的多个组合框

Question

我想在 Excel 用户窗体中创建 3 个不同的组合框。每种类型总共有 x 个。

我想编写这样的代码：

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

VBA UserForm 具有相同值的多个组合框

VBA UserForm multiple comboboxes with same values

excel

vba

combobox

userform