这篇文章介绍了如何使用应用程序的宏在 Microsoft Visual Basic 来填充 列表框 或 组合框 控件的示例.docVIP

这篇文章介绍了如何使用应用程序的宏在 Microsoft Visual Basic 来填充 列表框 或 组合框 控件的示例。 回到顶端 更多信息 Microsoft 提供的编程示例只，用于说明不附带任何明示或暗示保证。这包括，但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用... Microsoft 提供的编程示例只，用于说明不附带任何明示或暗示保证。这包括，但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能，但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。在工作表或用户窗体上，您可以使用如组合框或一个列表框的控件。用于填充控件方法很相似。本文中的示例使用用户窗体上的控件。 回到顶端 如何使用一个输入框和 AddItem 方法功能来填充列表框 注： 也可使用本示例用在组合框。 若要通过使用输入的框和 AddItem 方法填充 列表框 控件，请按照下列步骤操作： 为 Mac.在 Excel 中创建一个新的工作簿 按选项 + F11 可启动 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体。 创建 列表框 控件和用户窗体上的两个 命令按钮 控件。 请选择第一个命令按钮。按 F6 可查看属性窗口。在 标题 属性框中键入 输入新项。 请选择第二个命令按钮。按 F6 可查看属性窗口。在 $ 标题 中键入 关闭 属性框中。 双击用户窗体。用户窗体在代码窗口会显示。 键入下列代码： Private Sub CommandButton1_Click() Dim x As Variant x = InputBox _ (Type Data To Be Placed Into The ListBox and Click OK) ListBox1.AddItem x End Sub Private Sub CommandButton2_Click() Close the UserForm. Unload Me End Sub 在 运行 菜单上单击 运行子过程/用户窗体 运行在用户窗体。 单击 输入新项。在出现的输入框中键入 测试。单击 确定。 测试 将添加到用户窗体上列表框中的列表中。单击关闭用户窗体的 关闭。 回到顶端 若要将项添加到组合框中使用列属性 注： 也可使用此示例使用列表框。 若要填充组合框使用 Column 属性，请按照下列步骤操作： 为 Mac，启动 Excel 并创建一个新的工作簿。 在新工作簿的 Sheet1 中键入以下数据： A1: Apples A2: Pears A3: Bananas 按选项 + F11 可启动 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体。 创建一个 组合框 控件和用户窗体上的两个 命令按钮 控件。 请选择第一个命令按钮。按 F6 可查看属性窗口。在 $ 标题 中键入 输入数据 属性框中。 请选择第二个命令按钮。按 F6 可查看属性窗口。在 $ 标题 中键入 关闭 属性框中。 双击用户窗体。用户窗体在代码窗口会显示。 键入下列代码： Private Sub CommandButton1_Click() Dim MyArray(0, 2) As String MyArray(0, 0) = Worksheets(1).Range(A1).Value MyArray(0, 1) = Worksheets(1).Range(A2).Value MyArray(0, 2) = Worksheets(1).Range(A3).Value ComboBox1.Column() = MyArray End Sub Private Sub CommandButton2_Click() Close the UserForm. Unload Me End Sub 在 运行 菜单上单击 运行子过程/用户窗体 运行在用户窗体。 当用户窗体出现时，单击 输入数据。 单击组合框的下拉箭头。 您现在可以在组合框中选择 苹果、 ，或 香蕉。单击关闭用户窗体的 关闭。 回到顶端 参考 有关在 Visual Basic 编辑器中的用户窗体的详细信息单击 Office 助手，键入 用户窗体，然后单击 搜索 以查看返回的主题。... 有关在 Visual Basic 编辑器中的