excel vba combobox控件

假设你的这些组合框都是在同一个窗口 UserForm1 下，且按一定的规律排布。则可以使用：

    UserForm1.Controls(a).AddItem Res(i)

Next i

UserForm1.Controls(a).ListIdex = 0

VB使用AddItem 方法给ComboBox控件添加数据。

AddItem 方法，用于将项目添加到 ListBox 或 ComboBox 控件。不支持命名参数。

Private Sub Form_Click()

    Dim Entry, I, Msg   ' 声明变量。

    Msg = "点OK增加100项到ComboBox控件"

    MsgBox Msg   ' 显示信息。

    For I = 1 To 100   ' 计数值从 1 到 100。

         Entry = "Entry " & I   ' 创建输入项。

         Combo1.AddItem Entry   ' 添加该输入项。

    Next I

End Sub

Dim a(3) As String

a(0) = 1

a(1) = 2

a(2) = 3

a(3) = 4

For i = 0 To 3

Combo1.AddItem a(i)

Next

---