下面我们将查看Excel VBA中的程序，该程序创建一个包含多列组合框的用户窗体。
我们将要创建的用户窗体如下所示：
要创建此用户窗体，请执行以下步骤。
1.打开Visual Basic编辑器。如果“项目资源管理器”不可见，请单击“视图”，“项目资源管理器”。
2.单击插入，用户窗体。如果“工具箱”没有自动出现，请单击“视图”，“工具箱”。屏幕设置如下。
3.添加标签，组合框和命令按钮。完成此操作后，结果应与前面显示的用户窗体的图片一致。例如，通过在工具箱中单击ComboBox来创建一个组合框控件。接下来，您可以在用户窗体上拖动一个组合框。
4.您可以更改控件的名称和标题。在Excel VBA代码中使用名称。字幕是显示在屏幕上的字幕。更改控件的名称是一种很好的做法，但是此处没有必要，因为在此示例中，我们只有几个控件。要更改用户窗体，标签和命令按钮的标题，请单击“视图”，“属性窗口”，然后单击每个控件。
5.要显示用户窗体，请在工作表上放置一个命令按钮，并添加以下代码行：
UserForm1.Show
End Sub
现在，我们将创建Sub UserForm_Initialize。当您对用户窗体使用Show方法时，此子项将自动执行。
6.打开Visual Basic编辑器。
7.在Project Explorer中，右键单击UserForm1，然后单击“查看代码”。
8.从左侧下拉列表中选择“用户表单”。从右侧的下拉列表中选择初始化。
9.添加以下代码行：
ComboBox1.ColumnCount = 2
昏暗的电影（1 到 5，1 到 2）作为 弦
昏暗 i 作为 整数，j 作为 整数
电影（1、1）=“指环王”
电影（2，1） =“速度”
电影（3，1）=“星球大战”
电影（4，1）=“教父”
电影（5，1）=“低俗小说”
电影（1，2）=“冒险”
电影（2 ，2）=“动作”
电影（3，2）=“科幻”
电影（4，2）=“犯罪”
电影（5，2）=“戏剧”
ComboBox1.List =电影
结束 子
说明：第一行代码将组合框的列数设置为2。除了在运行时设置列数，还可以在设计时配置此设置。为此，请右键单击组合框控件，单击“属性”，然后将ColumnCount属性设置为2。接下来，我们声明并初始化一个二维数组。最后一行代码将数组分配给组合框。
现在，我们已经创建了用户表单的第一部分。尽管它看起来已经很整洁，但是当我们单击用户窗体上的命令按钮时，什么也不会发生。
10.在Project Explorer中，双击UserForm1。
11.双击确定按钮。
12.添加以下代码行：
卸载我
MSGBOX“您选择了”＆ComboBox1.Value
在 错误 恢复 下一步
MSGBOX“你喜欢”＆ComboBox1.Column（1）“电影”
结束 小组
注意：这些代码行关闭了Excel VBA Userform并显示所选项目和体裁。当用户填写自己的电影时，“ On Error Resume Next”语句将忽略该错误（在这种情况下，没有流派可用）。
13.双击取消按钮。
14.添加以下代码行：
卸载我
End Sub
选择“速度”并单击“确定”时的结果。
