用户窗体在 excel中的应用

《用户窗体在 excel中的应用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

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

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

3、体如果要暂时隐藏用户窗体，请使用隐藏方法。您可能希望隐藏用户窗体，如果您的应用程序涉及到用户窗体之间移动。若要隐藏用户窗体，请使用下面的代码：beconsistentwithinthesamedisk.Alternateunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespa

4、cingisgenerally100mm;branchofficesshallbebindingonbothends,eachcoreUserForm1.Hide有关更多的信息请单击下面的文章编号，以查看Microsoft知识库中相应的文章：213747 (http://support.microsoft.com/kb/213747/)XL2000：如何使用命令按钮的自定义用户窗体之间移动若要从内存中删除用户窗体的方法若要从内存中删除用户窗体使用卸载语句。若要卸载用户窗体名为UserForm1，使用下面的代码：UnloadUserForm1如果您卸载与用户窗体关联，或与用户窗体上的控件相

5、关联的事件过程中用户窗体（例如对于单击命令按钮控件）时，您可以使用"me"关键字而不是用户窗体的名称。若要使用"me"关键字卸载用户窗体，使用下面的代码：UnloadMe如何使用用户窗体事件用户窗体支持许多预定义的事件您可以将附加的VBA过程。当发生事件时您附加到该事件过程将运行。由用户执行的单个操作可以启动多个事件。最经常使用的用户窗体的事件包括初始化事件、Click事件和终止事件。注意在VisualBasic模块包含事件过程可能被称为用户窗体后面的模块。一个模块包含事件过程，将不可见的Microsoft项目资源管理器窗口VisualBasic编辑器的模块集合中。您必须双击用户窗体可以

6、查看用户窗体代码模块的正文。如何捕获用户窗体事件补漏白用户窗体事件，请按照下列步骤操作：在Excel中创建一个新的工作簿。在工具菜单上指向宏，然后单击VisualBasic编辑器。在插入菜单上单击用户窗体插入您的工作簿中的用户窗体。双击要为用户窗体显示在代码窗口在用户窗体。在模块中键入以下代码：PrivateSubUserForm_Click()Me.Height=Int(Rnd*500)Me.Width=Int(Rnd*750)EndSubPrivateSubUserForm_Initialize()Me.Caption="EventsEventsEvents!"Me.BackColo

7、r=RGB(10,25,100)EndSubPrivateSubUserForm_Resize()msg="Width:"&Me.Width&Chr(10)&"Height:"&Me.Heightbeconsistentwithinthesamedisk.Alternateunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensuret