用户窗体在Excel中的应用.docx

1、用户窗体在Excel中的应用用户窗体在 Excel中的应用（VBA）概要 这篇文章介绍了如何更改用户窗体以编程方式在 Excel 中。它包括示例和 Microsoft Visual Basic 用于向您展示如何利用用户窗体的功能以及如何使用 ActiveX 控件，供用户窗体的应用程序 （VBA） 宏。用户窗体的基本原则的介绍，介绍如何显示用户窗体、 如何暂时隐藏用户窗体，以及如何消除用户窗体。您还显示了如何使用与用户窗体相关联的最常见事件 初始化 事件、 Click 事件和 终止 事件。一个或多个下面的示例演示如何在用户窗体中使用的每个以下 ActiveX 控件：标签 控件 TextBox 控

2、件 命令按钮 控件 列表框 控件 组合框 控件 框架 控件 选项按钮 控件 复选框 控件 切换按钮 控件 TabStrip 控件 multiPage 控件 滚动条 控件 数值调节钮 控件 RefEdit 控件 图像 控件用户窗体基础知识如何显示用户窗体以编程方式显示用户窗体使用的语法是下列： UserFormName.Show若要显示名为 UserForm1 用户窗体，请使用下面的代码： UserForm1.Show您可以加载到内存用户窗体而不实际显示它。可能需要复杂的用户窗体几秒钟，会出现。因为您可以预用户窗体加载到内存中，您可以决定何时导致此开销。而不显示它加载到内存的 UserForm1

3、，使用下面的代码： 若要显示该过程用户窗体的 Load UserForm1必须使用 Show 方法以前显示的。 如何暂时隐藏用户窗体如果要暂时隐藏用户窗体，请使用 隐藏 方法。您可能希望隐藏用户窗体，如果您的应用程序涉及到用户窗体之间移动。若要隐藏用户窗体，请使用下面的代码： UserForm1.Hide有关更多的信息请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章： 213747 (/213747/ ) XL2000： 如何使用命令按钮的自定义用户窗体之间移动 若要从内存中删除用户窗体的方法若要从内存中删除用户窗体使用 卸载 语句。若要卸载用户窗体名为 UserForm1

4、，使用下面的代码： Unload UserForm1如果您卸载与用户窗体关联，或与用户窗体上的控件相关联的事件过程中用户窗体 （例如对于单击 命令按钮 控件） 时，您可以使用me关键字而不是用户窗体的名称。若要使用me关键字卸载用户窗体，使用下面的代码： Unload Me如何使用用户窗体事件用户窗体支持许多预定义的事件您可以将附加的 VBA 过程。当发生事件时您附加到该事件过程将运行。由用户执行的单个操作可以启动多个事件。最经常使用的用户窗体的事件包括 初始化 事件、 Click 事件和 终止 事件。注意在 Visual Basic 模块包含事件过程可能被称为用户窗体后面的模块。一个模块包含

5、事件过程，将不可见的 Microsoft 项目资源管理器窗口 Visual Basic 编辑器的 模块 集合中。您必须双击用户窗体可以查看用户窗体代码模块的正文。 如何捕获用户窗体事件补漏白用户窗体事件，请按照下列步骤操作： 在 Excel 中创建一个新的工作簿。 在 工具 菜单上指向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 双击要为用户窗体显示在代码窗口在 用户窗体。 在模块中键入以下代码： Private Sub UserForm_Click() Me.Height = Int(Rnd * 500) Me.Width

6、= Int(Rnd * 750)End SubPrivate Sub UserForm_Initialize() Me.Caption = Events Events Events! Me.BackColor = RGB(10, 25, 100)End SubPrivate Sub UserForm_Resize() msg = Width: & Me.Width & Chr(10) & Height: & Me.Height MsgBox prompt:=msg, Title:=Resize EventEnd SubPrivate Sub UserForm_QueryClose(Cancel

7、 As Integer, CloseMode As Integer) msg = Now Unloading & Me.Caption MsgBox prompt:=msg, Title:=QueryClose EventEnd SubPrivate Sub UserForm_Terminate() msg = Now Unloading & Me.Caption MsgBox prompt:=msg, Title:=Terminate EventEnd Sub在 运行 菜单上单击 运行子过程/用户窗体。当首次加载用户窗体，时该宏使用 初始化 事件更改为事件事件事件! 和 背景色 属性，以深蓝

8、色的用户窗体的 标题 属性。单击用户窗体，时您会触发 Click 事件。Click 事件调整用户窗体的大小。因为您创建了的 Resize 事件过程，所以您会收到两个消息框，单击用户窗体后。Resize 事件发生两次，因为后 Click 事件的代码更改 宽度 属性和用户窗体的 高度 属性。关闭用户窗体初始化 QueryClose 事件。该 QueryClose 事件显示一个消息框，其中包含您在代码中赋予用户窗体，初始化 事件的标题。您可以使用 QueryClose 事件时要执行一组特定的操作，如果用户关闭用户窗体。终止 事件，然后将生成一个消息框指出用户窗体的标题是 UserForm1。在 终止

9、 事件发生后就会从内存中删除用户窗体和用户窗体的标题返回到其原始状态。 如何防止用户窗体被关闭，通过使用关闭按钮您在运行用户窗体时在用户窗体窗口的右上角添加一个 关闭 按钮。如果要防止用户窗体通过使用 关闭 按钮关闭，您必须补漏白 QueryClose 事件。用户窗体是从内存中卸载之前，将发生 QueryClose 事件。 使用 QueryClose 事件的 CloseMode 参数来确定如何关闭用户窗体。CloseMode 参数 vbFormControlMenu 值表明在 关闭 按钮被单击。若要使用户窗体处于活动状态，请 QueryClose 事件的 取消 参数设置为 True。若要使用

10、QueryClose 事件来防止用户窗体通过使用 关闭 按钮关闭，请按照下列步骤操作： 在 Excel 中创建一个新的工作簿。 在 工具 菜单上指向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 向用户窗体中添加 命令按钮 控件。 双击要为用户窗体显示在代码窗口在 用户窗体。 在代码窗口中键入以下代码： Private Sub CommandButton1_Click() Unload MeEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As

11、 Integer) IF CloseMode = vbFormControlMenu Then Cancel = True Me.Caption = Click the CommandButton to close Me! End IfEnd Sub在 运行 菜单上单击 运行子过程/用户窗体。当您单击 关闭 按钮时，用户窗体未关闭。您必须单击关闭用户窗体的 命令按钮 控件。 有关更多的信息请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章： 207714 (/207714/ ) XL2000： 使用用户窗体集合的运行时错误 211527 (/211527/ ) XL2000：

12、 无法将用户窗体控件拖动到工作表 211868 (/211868/ ) XL2000： 错误运行宏的用户窗体中插入控件 213582 (/213582/ ) XL2000： 问题时，可以将控件添加到用户窗体中使用宏 213583 (/213583/ ) XL2000： 无法在其他项目中显示用户窗体 213736 (/213736/ ) XL2000： 如何确定键按下鼠标按钮一起 213744 (/213744/ ) XL2000： 如何暂时隐藏用户窗体 213747 (/213747/ ) XL2000： 如何使用命令按钮的自定义用户窗体之间移动 213749 (/213749/ ) XL20

13、00： 如何使用用户窗体用于输入数据 213768 (/213768/ ) XL2000： 如何动态地调整用户窗体的大小 213774 (/213774/ ) XL2000： 如何使用用户窗体中创建一个启动屏幕 VBA 代码Excel 包含 15 个不同的控件，您可以在用户窗体上使用。此部分包含以编程方式使用这些控件的各种示例。注意包括在本文中的 VBA 代码不包含影响所有属性和控件事件的示例。如果必须为可以使用属性窗口以查看可用的控件的属性的列表。若要查看的属性，列表在 视图 菜单上，单击 属性窗口。 如何使用设计模式中编辑控件当您使用 Visual Basic 编辑器设计对话框时，您正在使

14、用设计模式中。在设计模式中，您可以编辑控件并可以更改在属性窗口中的用户窗体上控件的属性。若要显示在 视图 菜单上的属性窗口，单击 属性窗口。注意当您在设计模式中时，控件不响应的事件。 您在运行一个对话框，用户可以看到它的方式将其显示时该程序处于运行模式。从内存中卸载用户窗体时，在运行模式中控件的属性所做的更改将不会保留。注意控件响应在运行模式中的事件。 如何在用户窗体上的控件，请参阅您如何引用的控件以编程方式取决于您在其中运行代码的 Visual Basic 模块工作表的类型。如果从常规模块运行该代码，语法是下列： = Value如果要将名为 TextBox1王俊元 的值名为 UserForm

15、1 用户窗体上的 文本框 控件的 Text 属性设置，例如对于使用下面的代码： = Bob如果代码是通过控件的事件或用户窗体启动的过程中，您无需用户窗体的名称，请参阅。而是，使用下面的代码： TextBox1.Text = Bob时将代码附加到对象中，代码附加到该对象的事件之一。在很多本文示例中将代码附加到 命令按钮 对象的 Click 事件。 回到顶端标签控件标签 控件主要用于描述在用户窗体上的其他控件。用户窗体运行时，不能由用户编辑 标签 控件。若要设置或返回一个 标签 控件中的文本，请使用 标题 属性。设置格式的 Label 控件的其他常用的属性包括 Font 属性并将 前景色 属性。

16、如何使用 WITH 语句设置 Label 控件的格式要使用 WITH 语句更改 Label 控件的属性，请按照下列步骤，请执行以下操作： 启动 Excel，然后打开一个新的空白工作簿。 在 工具 菜单上指向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 向用户窗体中添加一个 Label 控件。 向用户窗体中添加 命令按钮 控件。 双击 命令按钮 控件的用户窗体中打开代码窗口。 在代码窗口中键入下面的代码为 CommandButton1 Click 事件： Private Sub CommandButton1_Click() Wi

17、th Label1 Set the text of the label. .Caption = This is Label Example 1 Automatically size the label control. .AutoSize = True .WordWrap = False Set the font used by the Label control. .Font.Name = Times New Roman .Font.Size = 14 .Font.Bold = True Set the font color to blue. .ForeColor = RGB(0, 0, 2

18、55) End WithEnd Sub在 运行 菜单上单击 运行子过程/用户窗体。 单击 命令按钮。文本加粗黑体字体大小为 14 中的 标签 控件这是标签示例 1出现。 回到顶端文本框控件文本框 控件经常用于收集用户的输入。Text 属性将包含由 TextBox 控件中的项。 如何使用验证密码 TextBox 控件如果您设置 TextBox 控件的 PasswordChar 属性，则它将成为伪装的编辑控件。您指定的字符以可视方式将取代 TextBox 控件中键入的每个字符。 要使用 TextBox 控件验证密码，请按照下列步骤，请执行以下操作： 启动 Excel，然后打开一个新的空白工作簿。

19、在 工具 菜单上指向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 向用户窗体中添加 文本框 控件。 在 视图 菜单上单击 属性，以使属性窗口可见。 在 文本框 控件 PasswordChar 属性键入 *。注意您正将该值改为一个星号。 向用户窗体中添加 命令按钮 控件。 双击 命令按钮 控件的用户窗体中打开代码窗口。 在代码窗口中键入下面的代码为 CommandButton1 Click 事件： Private Sub CommandButton1_Click() If TextBox1.Text userform Then

20、MsgBox Password is Incorrect. Please reenter. TextBox1.Text = TextBox1.SetFocus Else MsgBox Welcome! Unload Me End IfEnd Sub在 运行 菜单上单击 运行子过程/用户窗体。 键入密码 userformTextBox 控件中。 单击 命令按钮 控件。此例如密码为userform。如果您键入了不正确的密码，您将收到一个消息框，指出您的密码不正确、 清除 TextBox 控件，然后重新键入密码。当您键入正确的密码时, 您会收到一个欢迎消息和用户窗体被关闭。有关更多的信息请单击下面的

21、文章编号，以查看 Microsoft 知识库中相应的文章： 213555 (/213555/ ) XL2000： 无数据验证属性的用户窗体文本框 回到顶端命令按钮控件使用 命令按钮 控件，可以启动 VBA 过程。VBA 过程通常被附加到 命令按钮 控件的 Click 事件。若要将一个 Click 事件发生时运行一个过程的 命令按钮 控件，请按照下列步骤操作： 启动 Excel，然后打开一个新的空白工作簿。 在 工具 菜单上指向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 向用户窗体中添加 命令按钮 控件。 双击要为用户窗体显示

22、代码窗口的 命令按钮 控件。 在代码窗口中键入以下代码： Private Sub CommandButton1_Click() red = Int(Rnd * 255) green = Int(Rnd * 255) blue = Int(Rnd * 255) CommandButton1.BackColor = RGB(red, green, blue)End Sub 在 运行 菜单上单击 运行子过程/用户窗体。背景色的 CommandButton1 控件更改每次单击它。有关命令按钮控件的附加信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章： 213572 (/213

23、572/ ) XL2000： 单击取消按钮可能不关闭用户窗体 213743 (/213743/ ) XL2000： 如何在用户窗体上设置为默认命令按钮 回到顶端列表框控件列表框 控件的用途是向用户显示要从选择的项的列表。您可以将存储在 Excel 工作表上的 列表框 控件的项列表。若要填充 列表框 控件与单元格区域的工作表上，使用 行来源 属性。您在使用 MultiSelect 属性时可以接受多个选定内容设置 列表框 控件。 如何获取当前选定的项从列表框控件使用 列表框 控件的 Value 属性返回当前选定的项。若要在单个选择 列表框 控件中返回当前选定的项，请按照下列步骤操作： 启动 Exc

24、el，然后打开一个新的空白工作簿。 在单元格 a1: a5 工作表 Sheet1 上，键入想要使用来填充 列表框 控件的值。 在 工具 菜单上指向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 向用户窗体中添加 列表框 控件。 双击 列表框 控件以显示 列表框 控件在代码窗口。 在代码窗口中键入下面的代码为 ListBox1 Click 事件: Private Sub ListBox1_Click() MsgBox ListBox1.ValueEnd Sub 在 运行 菜单上单击 运行子过程/用户窗体。当您单击列表中的某个项目时

25、，当前选定的项将出现一个消息框。 如何获取多个选择列表框控件中的选定的项若要确定在选择多个 列表框 控件中选定的项，您必须依次通过在列表中的所有项目，然后查询 Selected 属性。若要选择多个 列表框 控件中返回当前选定的项目，请按照下列步骤操作： 启动 Excel，然后打开一个新的空白工作簿。 在单元格 a1: a5 工作表 Sheet1 上，键入想要使用来填充 列表框 控件的值。 在 工具 菜单上指向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 向用户窗体中添加 列表框 控件。 在 视图 菜单上单击 属性 以显示的属性

26、窗口。 键入表示为以下 列表框 控件属性的值： Property Value - - MultiSelect 1 - frmMultiSelectMulti RowSource Sheet1!A1:A8向用户窗体中添加 命令按钮 控件。 双击要为用户窗体显示代码窗口的 命令按钮 控件。 在代码窗口中键入下面的代码为 CommandButton1 Click 事件： Sub CommandButton1_Click () Loop through the items in the ListBox. For x = 0 to ListBox1.ListCount - 1 If the item i

27、s selected. If ListBox1.Selected(x) = True Then display the Selected item. MsgBox ListBox1.List(x) End If Next x End Sub 在 运行 菜单上单击 运行子过程/用户窗体。 在列表中选择一个或多个项目。 单击 CommandButton1。单击 CommandButton1 后，您在 列表框 控件中选择的每个项目将出现在单独的消息框中。在消息框中显示所有选定的项目后，用户窗体将自动关闭。 如何使用来填充列表框控件与单元格在工作表上的行来源属性若要使用 行来源 属性来填充 列表框 控

28、件中的单元格区域的工作表上，请按照下列步骤操作： 启动 Excel，然后打开一个新的空白工作簿。 在单元格 a1: a5 工作表 Sheet1 上，键入想要使用来填充 列表框 控件的值。 在 工具 菜单上指向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 向用户窗体中添加 列表框 控件。 向用户窗体中添加 命令按钮 控件。 双击要为用户窗体显示代码窗口的 命令按钮 控件。 在代码窗口中键入下面的代码为 CommandButton1 Click 事件： Private Sub CommandButton1_Click() List

29、Box1.RowSource = =Sheet1!A1:A5End Sub 在 运行 菜单上单击 运行子过程/用户窗体。注意ListBox1 不包含任何值。 单击 CommandButton1。ListBox1 将用在工作表 Sheet1 上的单元格 a1: a5 中值进行填充。 如何填充数组中的值与列表框控件本示例显示如何填充 列表框 控件与一个数组变量。您必须将数组中的值一次分配给 列表框 控件的一个项目中。通常，此过程要求您使用如 ForNext 循环的循环结构。若要填充 列表框 控件与一个数组变量，请按照下列步骤操作： 启动 Excel，然后打开一个新的空白工作簿。 在 工具 菜单上指

30、向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 向用户窗体中添加 列表框 控件。 在 插入 菜单上单击 模块，插入模块工作表。 在代码窗口中键入以下代码： Sub PopulateListBox() Dim MyArray As Variant Dim Ctr As Integer MyArray = Array(Apples, Oranges, Peaches, Bananas, Pineapples) For Ctr = LBound(MyArray) To UBound(MyArray) MyArray(Ctr) Next UserForm1.ShowEnd Sub 在 工具 菜单上单击 宏 并单击 PopulateListBox，然后单击 运行。PopulateListBox 过程生成一个简单的数组，然后在数组中将项目添加到 列表框 控件中，通过使用 AddItem 方法。然后，用户窗体将显示。 如何使用工作表上的水平单元格区域来填充列表框控件如果将 列表框 控件的 行来源 属性设置为单元格的水平区域，只有第一个值将出现在 列表框 控件中。通过使用 AddItem 方法来填充 列表框 控件中的单元格的水平区域，请按照下列步骤操作： 启动 Excel，然后打开一