乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 求助:<em>Excel</em> VBA 窗体组合框如何使用-excel 组合框的使用,exc

求助:<em>Excel</em> VBA 窗体组合框如何使用-excel 组合框的使用,exc

作者:乔山办公网日期:

返回目录:excel表格制作


最好把代码贴出来看看。你的窗体加载时是不是有代码去更新这个组合框了?正常不会有你这样的状况发生的。

if combo1.text="A" then

form3.show
elseif combo1.text="B" then

form4.show
elseif combo1.text="C" then

form5.show
end if
在窗体的激活事件中加

For I = 1 To [A65536].End(xlUp).Row '1 到A列最后有数据的一行

ComboBox1.AddItem Range("A" & I).Value
Next

第一种使用AddItem,代码:
Private Sub UserForm_Initialize()
ComboBox1.AddItem "A"
ComboBox1.AddItem "B"
ComboBox1.AddItem "C"
End Sub

上面的代码一次向组合框中添加一个项目,共添加了三条项目。

第二种方e799bee5baa6e79fa5e98193e58685e5aeb9362法使用数组,代码:
Private Sub UserForm_Initialize()
ComboBox1.List = Array("A", "B", "C")
End Sub

事先将要添加的项目放到一个数组中,然后使用组合框的List属性。
第三种方法使用工作表区域,事先将要添加的项目放到工作表中,例如F1到F3分别写入A、B、C,然后运行下面的代码:
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sheet1!F1:F3"
End Sub

上面的代码用的是ComboBox的RowSource属性,值是相应的单元格区域。
下面再来看怎样向组合框中加入多列项目,这里只介绍RowSource方法,仍旧是事先将我们要加入的项目放到工作表的相应区域,然后执行下面的代码:
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sheet1!A2:C4"
ComboBox1.ColumnCount = 3 '设置显示的列数
ComboBox1.ColumnHeads = True '是否包括头部
ComboBox1.TextColumn = 2'设置显示值的列号
ComboBox1.BoundColumn = 3'设置默认值的列号
End Sub
Sheet1的A2:C4是我们的数据区域,ColumnCount属性表示要显示几列,这里设置成3列,ColumnHeads表示是否包括头部,True代表包括头部(注意这里A2:C4的范围并没有把头部包括进去),可以自己看下效果。我们这里有3列,但是组合框中只能显示一个值,那显示哪个值呢?用TextColumn属性来表示,2表示在组合框中显示的是第2列的值,例如你选择的是第一行数据,那在组合框中显示的值就是12。组合框ComboBox还有一个Value属性,同样的,如果是多列Value到底是指哪一列的值呢?这个就得用到BoundColumn属性了,3就表示ComboBox1.value就是第三列的值。那问题又来了,如果我们想要调用第一列或第二列的值怎么办?有办法,看下面的代码:
Private Sub CommandButton2_Click()
MsgBox ComboBox1.List(ComboBox1.ListIndex, 0)
End Sub

ComboBox1.List(ComboBox1.ListIndex, 0)就表示第1列的值,将0换成1就表示第2列的值,换成2就表示第3列的值,看出来了吧,列标是从0开始而不是从1开始的。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网