Excel VBA系列之用户窗体的复合框和列表控件

下面这篇文章和大家分享一下在Excel VBA中用户窗体的复合框和列表控件。

先打开一个Excel文件，在当前工作表中有一列班级名称的数据。

点击“开发工具”选项卡，打开Visual Basic，在项目工程区域点击鼠标右键。

选择“插入”一个用户窗体，与此同时会显示一个工具箱，此区域中可选择需要添加的控件。

复合框控件

1. 从工具箱添加“复合框”控件至用户窗体。

2. 添加一个模块和过程，称之为“test”。

3. 在过程中写入代码，将班级名称添加至复合框控件，这里用到控件的一个方法是AddItem。

4. 为避免重复写入类似代码，可以使用循环对上一步的代码进行优化。

Sub test()
Dim i As Integer
For i = 2 To 6
   UserForm1.ComboBox1.AddItem Sheet3.Range("A" & i)