【excel怎么复合框】Excel动态添加合成框ComboBox

文/康美

合成在VBA编程中得到了广泛的应用，具有一定的应用前景。这里介绍了如何动态添加复合框。(包括代码)

动态照片的效果如下

创建显示添加复合框的位置的新表单。此示例将复合框添加到顶部，然后单击新建按钮执行新功能。

复合框和列表框有一些相同的功能，并且更加丰富。

这里的复合框架简单安装后使用了下拉列表，请大家更好地应用欢迎信息。(大卫亚设，Northern Exposure)欢迎信息。

可以自动添加列表记录。在这种情况下，您可以使用数组分配列表，或使用Range单元格为列表分配值。

添加了显示选择效果的列表Change事件。这也是默认行为，实际应用更为常见。

新代码

Private Sub CommandButton1_Click()

\ " \ " \ " \ " \ " \ " \ " \ " \ " \ " \ " \ " \ " \ " \ " \ " \ " \ " \ " \ "新建复合框

Dim Co1 As对象、Aobj As对象

Dim Cvalue()、Clist0()、Clist1()

Cvalue=Array('A '，' B ')' '定义了新的复合框名称

Clist0=Array(《四大名著》、《三国演义》、《红楼梦》、《西游记》、《水浒传》)《定义内容》

Clist 1=Ari(《四大美人》、《西施》、《王小军》、《貂蝉》、《杨玉环》)

Dim u As Integer

U=ubound(值)

For I=0 ~ u ' ' '循环新建复合框

set co1=me . con(' forms . com bobox . 1 '，cvalue (I))

\ "\" \ "\" \ "\" \ "新的复合框代码\ " \ " \ " \ " \ " \ " \ "。

With Co1

.Top=30

.Left=I * 150 30

.Height=25

.Width=130

.BorderStyle=1

.Font。Size=14

.Font。Name='微软雅黑'

If I=0 Then。List=Clist0

If I=1 Then。List=Clist1

.Value=。List(0)

End With

Set Aobj=New ComChange ' ' ' ' ' ' ' '新建复合框事件

Aobj.init Co1

Com.addaobj .

Next I

U=u 1

“MsgBox”成功创建了“u”个合成框！”，VB信息，“成功”

End Sub