Excel使用VBA窗体的教程

中文部分如何更改用户窗体在Excel2003，Excel2002和Excel2000中的使用vba的应用程序（VBA）查看本文应用于的产品本页概要简介更多信息用户窗体基础知识如何显示用户窗体如何暂时隐藏用户窗体若要从内存中删除用户窗体的方法如何使用用户窗体事件如何捕获用户窗体事件如何防止用户窗体被关闭，通过使用关闭按钮VBA代码如何使用设计模式中编辑控件如何在用户窗体上的控件，请参阅标签控件如何使用WITH语句设置Label控件的格式文本框控件如何使用验证密码TextBox控件命令按钮控件列表框控件如何获取当前选定的项从列表框控件如何获取多个选择列表框控件中的选定的项如何使用来填充列表框控件与单元格在工作表上的行来源属性如何填充数组中的值与列表框控件如何使用工作表上的水平单元格区域来填充列表框控件如何从列表框控件所绑定到的数据的多个列中返回多个值如何从列表框控件所绑定到工作表中删除所有项目如何删除未绑定到工作表的列表框控件的所有项目组合框控件如何将新项添加到列表中，如果组合框控件没有绑定到工作表如何将新项添加到列表中，如果组合框控件所绑定到工作表如何显示一个组合框控件的列表，用户窗体出现时如何在另一个组合框控件中进行选择时显示的一个组合框控件列表框架控件如何循环访问一框架控件上的所有控件选项按钮控件如何确定选项按钮控件是在一框架控件上时选择了该选项按钮控件如何确定已选中该选项按钮控件复选框控件如何检查复选框控件的值切换按钮控件如何获取切换按钮控件的值如何创建一组互斥的切换按钮控件TabStrip控件如何以编程方式控制TabStrip控件多页控件如何以编程方式控制多页控件如何通过使用多页控件中创建一个向导界面滚动条控件如何更改基于滚动条控件的值的Label控件数值调节钮控件如何添加一个递增的数值调节钮控件或递减TextBox控件中存储的日期RefEdit控件如何填充基于您使用RefEdit控件来选择该区域的单元格区域图像控件如何加载图像控件中的图片其他信息对象浏览器展开全部|关闭全部概要这篇文章介绍了如何更改用户窗体以编程方式在Excel中。它包括示例和MicrosoftVisualBasic用于向您展示如何利用用户窗体的功能以及如...这篇文章介绍了如何更改用户窗体以编程方式在Excel中。它包括示例和MicrosoftVisualBasic用于向您展示如何利用用户窗体的功能以及如何使用ActiveX™控件，供用户窗体的应用程序（VBA）宏。用户窗体的基本原则的介绍，介绍如何显示用户窗体、如何暂时隐藏用户窗体，以及如何消除用户窗体。您还显示了如何使用与用户窗体相关联的最常见事件——初始化事件、Click事件和终止事件。一个或多个下面的示例演示如何在用户窗体中使用的每个以下ActiveX™控件：标签控件TextBox控件命令按钮控件列表框控件组合框控件框架控件选项按钮控件复选框控件切换按钮控件TabStrip控件multiPage控件滚动条控件数值调节钮控件RefEdit控件图像控件回到顶端简介本文介绍如何使用VBA在Excel中的用户窗体中进行更改。本文介绍如何使用VBA在Excel中的用户窗体中进行更改。回到顶端更多信息Microsoft提供的编程示例只，用于说明不附带任何明示或暗示保证。这包括，但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用...Microsoft提供的编程示例只，用于说明不附带任何明示或暗示保证。这包括，但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft支持工程师可以帮助解释某个特定过程的功能，但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。回到顶端用户窗体基础知识如何显示用户窗体以编程方式显示用户窗体使用的语法是下列：UserFormName.Show若要显示名为UserForm1用户窗体，请使用下面的代码：UserForm1.Show您可以加载到内存用户窗体而不实际显示它。可能需要复杂的用户窗体几秒钟，会出现。因为您可以预用户窗体加载到内存中，您可以决定何时导致此开销。而不显示它加载到内存的UserForm1，使用下面的代码：若要显示该过程用户窗体的LoadUserForm1必须使用Show方法以前显示的。如何暂时隐藏用户窗体如果要暂时隐藏用户窗体，请使用隐藏方法。您可能希望隐藏用户窗体，如果您的应用程序涉及到用户窗体之间移动。若要隐藏用户窗体，请使用下面的代码：UserForm1.Hide有关更多的信息请单击下面的文章编号，以查看Microsoft知识库中相应的文章：213747()XL2000：如何使用命令按钮的自定义用户窗体之间移动若要从内存中删除用户窗体的方法若要从内存中删除用户窗体使用卸载语句。若要卸载用户窗体名为UserForm1，使用下面的代码：UnloadUserForm1如果您卸载与用户窗体关联，或与用户窗体上的控件相关联的事件过程中用户窗体（例如对于单击命令按钮控件）时，您可以使用me关键字而不是用户窗体的名称。若要使用me关键字卸载用户窗体，使用下面的代码：UnloadMe如何使用用户窗体事件用户窗体支持许多预定义的事件您可以将附加的VBA过程。当发生事件时您附加到该事件过程将运行。由用户执行的单个操作可以启动多个事件。最经常使用的用户窗体的事件包括初始化事件、Click事件和终止事件。注意在VisualBasic模块包含事件过程可能被称为用户窗体后面的模块。一个模块包含事件过程，将不可见的Microsoft项目资源管理器窗口VisualBasic编辑器的模块集合中。您必须双击用户窗体可以查看用户窗体代码模块的正文。如何捕获用户窗体事件补漏白用户窗体事件，请按照下列步骤操作：在Excel中创建一个新的工作簿。在工具菜单上指向宏，然后单击VisualBasic编辑器。在插入菜单上单击用户窗体插入您的工作簿中的用户窗体。双击要为用户窗体显示在代码窗口在用户窗体。在模块中键入以下代码：PrivateSubUserForm_Click()Me.Height=Int(Rnd*500)Me.Width=Int(Rnd*750)EndSubPrivateSubUserForm_Initialize()Me.Caption=EventsEventsEvents!Me.BackColor=RGB(10,25,100)EndSubPrivateSubUserForm_Resize()msg=Width:&Me.Width&Chr(10)&Height:&Me.HeightMsgBoxprompt:=msg,Title:=ResizeEventEndSubPrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)msg=NowUnloading&Me.CaptionMsgBoxprompt:=msg,Title:=QueryCloseEventEndSubPrivateSubUserForm_Terminate()msg=NowUnloading&Me.CaptionMsgBoxprompt:=msg,Title:=TerminateEventEndSub在运行菜单上单击运行子过程/用户窗体。当首次加载用户窗体，时该宏使用初始化事件更改为事件事件事件!和背景色属性，以深蓝色的用户窗体的标题属性。单击用户窗体，时您会触发Click事件。Click事件调整用户窗体的大小。因为您创建了的Resize事件过程，所以您会收到两个消息框，单击用户窗体后。Resize事件发生两次，因为后Click事件的代码更改宽度属性和用户窗体的高度属性。关闭用户窗体初始化QueryClose事件。该QueryClose事件显示一个消息框，其中包含您在代码中赋予用户窗体，初始化事件的标题。您可以使用QueryClose事件时要执行一组特定的操作，如果用户关闭用户窗体。终止事件，然后将生成一个消息框指出用户窗体的标题是UserForm1。在终止事件发生后就会从内存中删除用户窗体和用户窗体的标题返回到其原始状态。如何防止用户窗体被关闭，通过使用关闭按钮您在运行用户窗体时在用户窗体窗口的右上角添加一个关闭按钮。如果要防止用户窗体通过使用关闭按钮关闭，您必须补漏白QueryClose事件。用户窗体是从内存中卸载之前，将发生QueryClose事件。使用QueryClose事件的CloseMode参数来确定如何关闭用户窗体。CloseMode参数vbFormControlMenu值表明在关闭按钮被单击。若要使用户窗体处于活动状态，请QueryClose事件的取消参数设置为True。若要使用QueryClose事件来防止用户窗体通过使用关闭按钮关闭，请按照下列步骤操作：在Excel中创建一个新的工作簿。在工具菜单上指向宏，然后单击VisualBasic编辑器。在插入菜单上单击用户窗体插入您的工作簿中的用户窗体。向用户窗体中添加命令按钮控件。双击要为用户窗体显示在代码窗口在用户窗体。在代码窗口中键入以下代码：PrivateSubCommandButton1_Click()UnloadMeEndSubPrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)IFCloseMode=vbFormControlMenuThenCancel=TrueMe.Caption=ClicktheCommandButtontocloseMe!EndIfEndSub在运行菜单上单击运行子过程/用户窗体。当您单击关闭按钮时，用户窗体未关闭。您必须单击关闭用户窗体的命令按钮控件。有关更多的信息请单击下面的文章编号，以查看Microsoft知识库中相应的文章：207714()XL2000：使用用户窗体集合的运行时错误211527()XL2000：无法将用户窗体控件拖动到工作表211868()XL2000：错误运行宏的用户窗体中插入控件213582()XL2000：问题时，可以将控件添加到用户窗体中使用宏213583()XL2000：无法在其他项目中显示用户窗体213736()XL2000：如何确定键按下鼠标按钮一起213744()XL2000：如何暂时隐藏用户窗体213747()XL2000：如何使用命令按钮的自定义用户窗体之间移动213749()XL2000：如何使用用户窗体用于输入数据213768()XL2000：如何动态地调整用户窗体的大小213774()XL2000：如何使用用户窗体中创建一个启动屏幕回到顶端VBA代码Excel包含15个不同的控件，您可以在用户窗体上使用。此部分包含以编程方式使用这些控件的各种示例。注意包括在本文中的VBA代码不