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,这个写法是错误的,怎么弄??

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

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

追问

谢谢,但是分只能给一个人了,不好意思~

温馨提示:内容为网友见解,仅供参考
第1个回答  2014-03-24
用controls(a)替代,但你要看一下a已经不是你的combobox的序号了,是所有控件的序列
第2个回答  2014-03-24
你这个要用到类模块,你所说的对象是类模块吗??如果是,comboboxa要先定义为combobox,并且要将combobox1在init时不编入集合内。
第3个回答  2014-03-24
Controls("combobox" & a)本回答被提问者采纳

组合框(Combo Box)应用之一
第八节 组合框(Combo Box)应用之一。组合框是一个下拉列表,用户可以在其中选择一个项目。这个控件也是非常实用的控件,在实际工作中,如果数据来源是固定的,如人名单、地名、性别等,在录入时可以采用这个组合框进行录入。1 在工作表中添加组合框控件。要在Excel VBA中创建一个组合框,请执行以下步骤...

Excel 请教一下vba中ComboBox控件怎么用
ComboBox就是创建一个下拉列表 Private Sub UserForm_Initialize()For i = 1 To 100 ComboBox1.AddItem "aa" & i Next End Sub

vba做一个excel的下拉菜单,以提供选择输入
插入组合框ComboBox 添加代码 ComboBox1.AddItem "星期一"ComboBox1.AddItem "星期二"ComboBox1.AddItem "星期三"ComboBox1.AddItem "星期四"ComboBox1.AddItem "星期五"ComboBox1.AddItem "星期六"ComboBox1.AddItem "星期日"

想在excel里用VBA,点击按钮复制一行数据到另外一行,可是不知道该怎么写...
Private Sub ComboBox1_Change()Sheet2.Cells(1, 1).Value = ComboBox1.ValueDim i As Integeri = 2Do While Not i > 100000If Sheet3.Cells(i, 1) = "" ThenSheet3.Cells(i, 1).Value = Sheet2.Cells(1, 1).ValueSheet3.Cells(i, 2).Value = Now()GoTo lastlineElsei = i...

Excel中,写VBA,如何动态改变ComboBox控件的一系列属性
假设你有一个ComboBox1,确保退出编辑模式。右键点该工作表的名字(在工作簿的左下方呢),查看代码,粘贴如下代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range)ComboBox1.Text = Target.Value End Sub 回到Excel,任意点某单元格,赋值到ComboBox。

excel vba combobox控件?
不是很清楚你这样做的原因。一般我自己会把组合框的下拉列表赋值写在UserForm_Initial。至于所谓初始值问题,完全可以再窗体复选框上方或左侧,加入一个标签Label1,标签属性里把内容写成"请选择班组"。用CLICK事件触发组合框下拉列表初始化的方法有待商榷。

vba 窗体 如何添加 combobox 控件
在工具箱界面上点击鼠标右键,再出现的菜单中点击Additional Controls,然后在出现的列表中选择Microsoft Forms 2.0 ComboBox,这样在工具箱上面会多出一个combobox的按钮点击按钮,就可以生成一个combobox。

vba combobox控件,如果选择某条后,让光标固定在指定位置?
不充电现在某一条号让光标固定在某个地方,你就让光标放在那,然后将光标不要动就要固定在那,如果你一动它就变了,其实跟电脑手表是一样的作用效果。

excel表VBA中用代码如何建立多级combobox下拉菜单
ExcelVBA字典实现窗体二级下拉菜单:问题提出:选择确定ComboBox1中的数值后,ComboBox2的下拉列表自动引用ComboBox1中数值对应的列的内容。如何能做到,现在想在加一重判断:就是判断ComboBox2中的数值,如果是原来ComboBox1对应列中已有的值,就直接向下进行,如果原来ComboBox1对应列中没有该值,自动添加...

Excel VBA 窗体组合框用法?
第一种使用AddItem,代码:Private Sub UserForm_Initialize()ComboBox1.AddItem "A"ComboBox1.AddItem "B"ComboBox1.AddItem "C"End Sub 上面的代码一次向组合框中添加一个项目,共添加了三条项目。第二种方法使用数组,代码:Private Sub UserForm_Initialize()ComboBox1.List = Array("A", "B",...

相似回答