下面这篇文章和大家分享一下在Excel VBA中用户窗体的复合框和列表控件。
先打开一个Excel文件，在当前工作表中有一列班级名称的数据。
点击“开发工具”选项卡，打开Visual Basic，在项目工程区域点击鼠标右键。
选择“插入”一个用户窗体，与此同时会显示一个工具箱，此区域中可选择需要添加的控件。
复合框控件
1. 从工具箱添加“复合框”控件至用户窗体。
2. 添加一个模块和过程，称之为“test”。
3. 在过程中写入代码，将班级名称添加至复合框控件，这里用到控件的一个方法是AddItem。
4. 为避免重复写入类似代码，可以使用循环对上一步的代码进行优化。
Sub test()
Dim i As Integer
For i = 2 To 6
UserForm1.ComboBox1.AddItemSheet3.Range("A" & i)
Next
End Sub
5. 双击用户窗体UserForm1，选择用户窗体的Activate事件，然后调用以上写好的test过程，即在用户窗体激活（或使用）时，则执行写入班级名称至复合框的过程。
6. 最后执行用户窗体之后，就可以在复合框选择各个班级。
列表框控件
1. 从工具箱添加“列表框”控件至用户窗体。
2. 添加一个模块和过程，称之为“test”；在过程中写入代码，将班级名称添加至列表框中。
Sub test()
Dim i As Integer
For i = 2 To 6
UserForm1.ListBox1.AddItem Sheet3.Range("A" & i)
Next
End Sub
3. 双击用户窗体UserForm1，选择用户窗体的Activate事件，然后调用以上写好的test过程，即在用户窗体激活（或使用）时，执行写入班级名称至列表框的代码。
4. 执行用户窗体之后，就可以在列表框看到各个班级名称。
以上就是关于VBA的用户窗体中如何添加和使用部分控件，之后会分享更多关于控件的运用。
喜欢以上分享的朋友请多多关注，点赞支持！
