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

用户窗体在 Excel中的应用（VBA）  HYPERLINK javascript:void(0); 概要 这篇文章介绍了如何更改用户窗体以编程方式在 Excel 中。它包括示例和 Microsoft Visual Basic 用于向您展示如何利用用户窗体的功能以及如何使用 ActiveX ? 控件，供用户窗体的应用程序 （VBA） 宏。用户窗体的基本原则的介绍，介绍如何显示用户窗体、 如何暂时隐藏用户窗体，以及如何消除用户窗体。您还显示了如何使用与用户窗体相关联的最常见事件 — — 初始化 事件、 Click 事件和 终止 事件。一个或多个下面的示例演示如何在用户窗体中使用的每个以下 ActiveX ? 控件： 标签 控件 TextBox 控件 命令按钮 控件 列表框 控件 组合框 控件 框架 控件 选项按钮 控件 复选框 控件 切换按钮 控件 TabStrip 控件 multiPage 控件 滚动条 控件 数值调节钮 控件 RefEdit 控件 图像 控件 用户窗体基础知识 如何显示用户窗体 以编程方式显示用户窗体使用的语法是下列： UserFormName.Show 若要显示名为 UserForm1 用户窗体，请使用下面的代码： UserForm1.Show 您可以加载到内存用户窗体而不实际显示它。可能需要复杂的用户窗体几秒钟，会出现。因为您可以预用户窗体加载到内存中，您可以决定何时导致此开销。而不显示它加载到内存的 UserForm1，使用下面的代码： 若要显示该过程用户窗体的 Load UserForm1 必须使用 Show 方法以前显示的。 如何暂时隐藏用户窗体 如果要暂时隐藏用户窗体，请使用 隐藏 方法。您可能希望隐藏用户窗体，如果您的应用程序涉及到用户窗体之间移动。若要隐藏用户窗体，请使用下面的代码： UserForm1.Hide 有关更多的信息请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：  HYPERLINK /kb/213747 213747? (/kb/213747/ ) XL2000： 如何使用命令按钮的自定义用户窗体之间移动 若要从内存中删除用户窗体的方法 若要从内存中删除用户窗体使用 卸载 语句。若要卸载用户窗体名为 UserForm1，使用下面的代码： Unload UserForm1 如果您卸载与用户窗体关联，或与用户窗体上的控件相关联的事件过程中用户窗体 （例如对于单击 命令按钮 ???件） 时，您可以使用me关键字而不是用户窗体的名称。若要使用me关键字卸载用户窗体，使用下面的代码： Unload Me 如何使用用户窗体事件 用户窗体支持许多预定义的事件您可以将附加的 VBA 过程。当发生事件时您附加到该事件过程将运行。由用户执行的单个操作可以启动多个事件。最经常使用的用户窗体的事件包括 初始化 事件、 Click 事件和 终止 事件。注意在 Visual Basic 模块包含事件过程可能被称为用户窗体后面的模块。一个模块包含事件过程，将不可见的 Microsoft 项目资源管理器窗口 Visual Basic 编辑器的 模块 集合中。您必须双击用户窗体可以查看用户窗体代码模块的正文。 如何捕获用户窗体事件 补漏白用户窗体事件，请按照下列步骤操作： 在 Excel 中创建一个新的工作簿。 在 工具 菜单上指向 宏，然后单击 Visual Basic 编辑器。 在 插入 菜单上单击 用户窗体 插入您的工作簿中的用户窗体。 双击要为用户窗体显示在代码窗口在 用户窗体。 在模块中键入以下代码： Private Sub UserForm_Click() Me.Height = Int(Rnd * 500) Me.Width = Int(Rnd * 750) End Sub Private Sub UserForm_Initialize() Me.Caption = Events Events Events! Me.BackColor = RGB(10, 25, 100) End Sub Private Sub UserForm_Resize() msg = Width: Me.Width Chr(10) Height: Me.Height MsgBox prompt:=msg, Title:=Resize Event End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) msg = Now Unloading Me.