Excel使用VBA窗体的教程

精品文档---下载后可任意编辑 如何更改用户窗体在 Excel 2024，Excel 2024 和 Excel 2000 中的使用 vba 的应用程序 （VBA） | 这篇文章介绍了如何更改用户窗体以编程方式在 Excel 中。它包括示例和 Microsoft Visual Basic 用于向您展示如何利用用户窗体的功能以及如. 这篇文章介绍了如何更改用户窗体以编程方式在 Excel 中。它包括示例和 Microsoft Visual Basic 用于向您展示如何利用用户窗体的功能以及如何使用 ActiveX ™ 控件，供用户窗体的应用程序 （VBA） 宏。 用户窗体的基本原则的介绍，介绍如何显示用户窗体、 如何临时隐藏用户窗体，以及如何消除用户窗体。您还显示了如何使用与用户窗体相关联的最常见事件 — — 初始化 事件、 Click 事件和 终止 事件。一个或多个下面的示例演示如何在用户窗体中使用的每个以下 ActiveX ™ 控件： 标签 控件 TextBox 控件 命令按钮 控件 列表框 控件 组合框 控件 框架 控件 选项按钮 控件 复选框 控件 切换按钮 控件 TabStrip 控件 multiPage 控件 滚动条 控件 数值调节钮 控件 RefEdit 控件 图像 控件 本文介绍如何使用 VBA 在 Excel 中的用户窗体中进行更改。 本文介绍如何使用 VBA 在 Excel 中的用户窗体中进行更改。 Microsoft 提供的编程示例只，用于说明不附带任何明示或暗示保证。这包括，但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用. Microsoft 提供的编程示例只，用于说明不附带任何明示或暗示保证。这包括，但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能，但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。 用户窗体基础知识 如何显示用户窗体 以编程方式显示用户窗体使用的语法是下列： 若要显示名为 User1 用户窗体，请使用下面的代码： 您可以加载到内存用户窗体而不实际显示它。可能需要复杂的用户窗体几秒钟，会出现。因为您可以预用户窗体加载到内存中，您可以决定何时导致此开销。而不显示它加载到内存的 User1，使用下面的代码： 若要显示该过程用户窗体的 Load User1 必须使用 Show 方法以前显示的。 如何临时隐藏用户窗体 假如要临时隐藏用户窗体，请使用 隐藏 方法。您可能希望隐藏用户窗体，假如您的应用程序涉及到用户窗体之间移动。若要隐藏用户窗体，请使用下面的代码： 有关更多的信息请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章： ( ) XL2000： 如何使用命令按钮的自定义用户窗体之间移动 若要从内存中删除用户窗体的方法 若要从内存中删除用户窗体使用 卸载 语句。若要卸载用户窗体名为 User1，使用下面的代码： Unload User1 假如您卸载与用户窗体关联，或与用户窗体上的控件相关联的事件过程中用户窗体 （例如对于单击 命令按钮 控件） 时，您可以使用“me“关键字而不是用户窗体的名称。若要使用“me“关键字卸载用户窗体，使用下面的代码： Unload Me 如何使用用户窗体事件 用户窗体支持许多预定义的事件您可以将附加的 VBA 过程。当发生事件时您附加到该事件过程将运行。由用户执行的单个操作可以启动多个事件。最常常使用的用户窗体的事件包括 初始化 事件、 Click 事件和 终止 事件。 注意在 Visual Basic 模块包含事件过程可能被称为用户窗体后面的模块。一个模块包含事件过程，将不可见的 Microsoft 项目资源管理器窗口 Visual Basic 编辑器的 模块 集合中。您必须双击用户窗体可以查看用户窗体代码模块的正文。 如何捕获用户窗体事件 补漏白用户窗体事件，请根据下列步骤操作： 在 Excel 中创建一个新的工作簿。 在 工具 菜单上指向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 双击要为用户窗体显示在代码窗口在 用户窗体。 在模块中键入以下代码： Private Sub User_Click() Me.Height = Int(Rnd * 500) Me.Width = Int(Rnd * 750) End Sub Private Sub User_Initialize() Me.Caption = “Events Events Events!“ Me.BackColor = RGB(10, 25, 100) End Sub Private Sub User_Resize() MsgBox prompt:=msg, Title:=“Resize Event“ End Sub Private Sub User_QueryClose(Cancel As Integer, CloseMode As Integer) MsgBox prompt:=msg, Title:=“QueryClose Event“ End Sub Private Sub User_Terminate() MsgBox prompt:=msg, Title:=“Terminate Event“ End Sub 在 运行 菜单上单击 运行子过程/用户窗体。 当首次加载用户窗体，时该宏使用 初始化 事件更改为“事件事件事件! 和 背景色 属性，以深蓝色的用户窗体的 标题 属性。 单击用户窗体，时您会触发 Click 事件。Click 事件调整用户窗体的大小。因为您创建了的 Resize 事件过程，所以您会收到两个消息框，单击用户窗体后。Resize 事件发生两次，因为后 Click 事件的代码更改 宽度 属性和用户窗体的 高度 属性。 关闭用户窗体初始化 QueryClose 事件。该 QueryClose 事件显示一个消息框，其中包含您在代码中给予用户窗体，初始化 事件的标题。您可以使用 QueryClose 事件时要执行一组特定的操作，假如用户关闭用户窗体。