Question

excel vba combobox控件

有十三个ComboBox控件，第一个控件选择数量，在第一个控件change之后向其余控件添加项目（我获取好的数组），例如第一个ComboBox选择6，我要从第2个至第八个ComboBox添加数组res（）即
Res = d.Items
'将对象中的元素写入
For a = 2 To ComboBox1.ListIndex + 2
For i = 0 To d.Count - 1
ComboBoxa.AddItem Res(i)
Next i
ComboBoxa.ListIndex = 0
Next a
但是ComboBox a，这个写法是错误的，怎么弄？？

Answer 1

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

    UserForm1.Controls(a).AddItem Res(i)
Next i
UserForm1.Controls(a).ListIdex = 0

追问

谢谢，但是分只能给一个人了，不好意思～

Answer 2

用controls(a)替代，但你要看一下a已经不是你的combobox的序号了，是所有控件的序列

Answer 3

你这个要用到类模块，你所说的对象是类模块吗？？如果是，comboboxa要先定义为combobox，并且要将combobox1在init时不编入集合内。

Answer 4

Controls("combobox" & a）