Excel_VBA用户窗体常用方法

Excel VBA用户窗体常用的方法

2009-06-20 23:40

1、显示用户窗体
用于以编程方式显示用户窗体的语法是：
UserFormName.Show
若要显示用户窗体名为 UserForm1，使用以下代码：

UserForm1.Show

时可以加载到内存用户窗体而不实际显示它。 可能需要复杂的用户窗体几秒钟才显示。 可以预用户窗体加载到内存中，因为您可以决定何时引发此开销。但不显示加载到内存的 UserForm1，使用以下代码：

Load UserForm1

您必须使用 Show 方法时以前显示的。

2、如何临时隐藏用户窗体
如果想要临时隐藏用户窗体，请使用 隐藏 方法。 可以隐藏用户窗体，如果您的应用程序涉及用户窗体之间移动。 若要隐藏用户窗体，使用以下代码：

UserForm1.Hide

3、如何从内存中删除用户窗体
要从内存中删除用户窗体使用在 卸载 语句。 若要卸载一个名为 UserForm1 用户窗体，使用以下代码：

Unload UserForm1

如果卸载与用户窗体或与用户窗体上的控件相关联的事件过程中用户窗体 （例如，您单击CommandButton 控件)，您可以使用"Me"关键字而不是用户窗体的名称。 要使用"Me"关键字卸载用户窗体，使用以下代码：

Unload Me

4、如何使用用户窗体事件
用户窗体支持许多预定义的事件，您可以将附加 VBA 过程。 在事件发生时, 该过程附加到该事件就会运行。 由用户执行的单个操作可以启动多个事件。 最频繁用户窗体使用的事件包括 Initialize 事件、 Click 事件和 终止 事件。

请注意 Visual Basic 模块包含事件的过程可能被称为"隐藏"用户窗体的模块。 看 Microsoft Project Explorer 窗口的 Visual Basic 编辑器的 Modules 集合中不包含事件过程的模块。 您必须双击用户窗体可以查看用户窗体的主体代码模块。

5、如何捕获用户窗体事件
要捕获用户窗体事件，请按下列步骤操作：

在 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

copyright vbacn

    MsgBox prompt:=msg, Title:="Resize Event"

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    msg = "Now Unloading " & Me.Caption
    MsgBox prompt:=msg, Title:="QueryClose Event"

End Sub

Private Sub UserForm_Terminate()

    msg = "Now Unloading " & Me.Caption
    MsgBox prompt:=msg, Title:="Terminate Event"

End Sub