ExcelVBA用户窗体编程基础
2010-03-30 22:52:23|  分类： 默认分类 阅读67 评论0   字号：大中小 订阅
ExcelVBA用户窗体编程基本
概述
当应用MsgBox函数和InputBox函数不能满足与用户交互的需求时，您能使用用户窗体来自定义对话框。您能使用用户窗体来显示所输进的数据，您甚至能使用用户窗体创建一个完全的用户界面，而不会让用户接触到电子表格本身。
您在Windows对话框中所看到的大多数控件都能在用户窗体中实现――命令按钮，选项按钮，复选框，文本框，组合框――加上一些其它不常用的控件像图像，日历，等等。
本文先容了用户窗体的基础概念，并先容了使用用户窗体的常用技巧。其中，也讲授了一些最通用的思路。在文章中列举了一个包括所有进程的完全的示例文件，以及实现这些过程的代码，让您能在实践中看到所有工作的根本原理和办法。
本文包含以下内容：
● 根本的用户窗体操作
● 用户窗体和控件的属性
● 一个用户窗体的性命周期
● 用户窗体和控件的事件
● 问题1：如何在用户窗体间传递数据？
● 问题2：如何到我的窗体中的某类控件？
● 问题3：如何获取数据到列表框中？
● 问题4：如作甚循环创建进度条？
● 一个完全的用户窗体综合示例
基础的用户窗体操作
? 创立一个窗体。打开VBE编纂器(选择菜单“工具――宏――Visual Basic编纂器”或按Alt+F11组合键)，选择菜单“插进――用户窗体”，或者在工程窗口中单击右键，从弹出的快捷菜单中选择“插入――用户窗体”，即可创建一个窗体。
? 添加控件。当你创建了一个窗体后，将会显示一个名为“控件工具箱”的浮动工具箱(如果没有该工具箱的话，您可以从视图菜单中到它)，其中显示了最广泛的控件类型。单击您想要的控件，拖动它到您的用户窗体中。
?
更多的控件。有一些更多的可用的控件，您可以在控件工具箱中单击右键，从中选择“附加控件”，您能添加日历、电子表格、图形，等等。
? 添加事件程序。事件容许当用户对窗体和控件进行操作时作出相应的反映，事件程序要放置在用户窗体模块中，您能通过双击窗体或控件来打开代码模块窗口，或者在窗体或控件中单击右键，从快捷菜单中选择“查看代码”来打开代码模块窗口，或者在工程窗口中的用户窗体图标上单击右键后选择“查看代码”来打开代码模块窗口。然后,天平，在代码模块窗口中，对窗体或控件添加相应的事件程序代码。
? 显示窗体。打开窗体模块，按F5键可以运行宏程序，或者单击工具栏中的运行按钮，将显示用户窗体。注意，在窗体模块中按F5键并不会运行光标所在的子进程，而是运行用户窗体自身。
? 调试。和在宏程序中一样，按F8键容许您逐语句运行代码。

用户窗体和控件的属性
窗体和控件都有属性(如尺寸、地位，等等)，您能在设置窗体时改变这些属性，并且它们中的大多数属性也能够在运行时通过代码来转变。在设置窗体时您所选择的值是缺省值，在
运行时您所作的变更仅当窗体被装载时有效。
两个最主要的属性是Name属性和Value属性：
? Name属性可用于指定某个控件。您能通过控件的索引号指定控件，但这样会难于懂得和调试,体视显微镜，因此，使用名称是更可取的。
? Value属性是您所使用的实际输入或者输出的数据。在不同的控件中，该属性值稍有差别。例如，选项按钮控件和复选框控件的Value属性值为True/False，而文本框控件的Value值则是该文本框所包括的文本。Value属性既可用于输入，也可用于输出。
例如：
‘**********************
txtFirstName.Text = Range("A1").Value
Range("B1").Value = optVegetarian.Value
‘**********************
一个好习惯
给您的窗体和控件起一个具有描写性且分类明白的名字。您将会发明在每类控件名前加一个前缀是很有辅助的，例如，frm代表窗体，opt代表选项按钮，等等。这样将会使您的代
码更易浏览，并且也会许可您使用一些技巧，否则代码将会很庞杂。
指定控件和窗体，以及Me要害字
当在窗体代码模块中指定窗体中的控件时，您能通过名字指定他们，例如txtFirstName.Value=”John”。对于在其它窗体中的控件，窗体名应放在控件名之前，例如，frmEmployees.lstDepartments。
同样的方式对在窗体模块中所声明的公共变量也是有效的――这是窗体的基础属性(例如，frmImputs.AllDone)。注意，您不能在用户窗体的代码模块中声明全局变量。
Me是一个在用户窗体的代码模块中指定该用户窗体的快捷方式(例如，Me.Height表现当前用户窗体的高度)。又如，在用户窗体UserForm1中指定TextBox1:
‘**********************
'在当前用户窗体模块中
Me.TextBox1.Text = "Example"
'在不同的模块中
UserForm1.TextBox1.Text = "Example",测量投影仪;
‘**********************
一个窗体的性命周期――显示和封闭
您可以在窗体窗口中或者是在窗体的代码模块中，按F5键来显示您的窗体。如果在模块中有一个Userform_Initialize过程,生物显微镜，那么在窗体显示时,光谱投影仪，该过程将首先运行。
如果要使用代码显示和暗藏您的窗体(例如，您可能想在frmIntro窗体中使用一个命令按钮来隐躲frmIntro窗体并显示frmMain窗体)，您应当使用Show方法(显示窗体)和Hide办法(隐蔽窗体)vba编程技巧。
装载和卸载
窗体显示之前，必需装载到内存中。假如您显示一个没有装载的窗体，该窗体将主动装载。事实上，窗体中的任何引用或者变量或者控件或者属性都将强迫装载，并且触发初始化事件。假如您想初始化窗体但不显示窗体的话，您能应用如下方法装载：
Load frmMain
在隐蔽了窗体后，该窗体仍然被装载。如果您再次显示它，初始化程序不会再运行。(但Activate程序将会运行。)为了从内存中肃清窗体，您必须卸载(unload)它。当用户单击关闭按钮关闭窗体时，窗体将主动卸载。
因此，窗体装载和卸载的次序是：装载(Load)―显示(Show)―……―暗藏(Hide)―卸载(Unload)。
卸载会肃清窗体模块中的所有的变量――相似于结束了一个过程。用户已经输入的任何数值都将丧失，控件将恢复为您在属性窗口中输入的缺省值。如果您想保留它们的值，您须要在卸载窗体前进行保留。
模式和无模式
窗体能在两种“模式”之间显示，即模式或者无模式,测量显微镜。模式窗体不容许用户当窗体显示时在Excel中进行其它的操作，像MsgBox对话框一样。无模式窗体许可用户在Excel中进行其它操作，然后回到窗体中来,荧光显微镜。
当无模式窗体显示时，代码将在后台持续履行。您能使代码暂时结束，直到窗体封闭后持续履行。可使用一个循环语句来检讨窗体是否已关闭：
‘**********************
Do Until frmOther.Visible = False
DoEvents
Loop
‘**********************
缺省设置是模式窗体。一旦窗体作为模式窗体显示后，您不能将它转变为无模式窗体。您必需先暗藏该窗体，然后再显示它，并指定为无模式窗体。
无模式窗体仅对Excel2000及以上版本有效。
用户窗体和控件的事件
事件许可窗体和控件对用户所做的操作作出相应的反映。您可能熟习ExcelVBA事件，如Workbook_Open，Worksheet_Change等等。在Excel中，如果没有事件，您能做一些操作，但是在窗体中，如果没有事件的话,万能工具显微镜，窗体几乎没什么作用。
? 最常用的窗体事件包含窗体初始化(Intialize)、窗体激活(Activate)、窗体恳求关闭(QueryClose)、以及单击窗体(Click)。
? 窗体中控件的常用事件包含更新后(AfterUpdate)、变更(Change)、单击(Click)、输入(Enter)、以及退出(Exit)。
为了插入某对象的事件过程，您可以在该对象上单击右键，在快捷菜单中选择”查看代码”，将会主动创立一个该控件尺度的事件过程。假如您想创建不同的事件过程，可以从VBE窗口顶部右侧的下拉列表中选择您想创建的事件进程。还有一个方式是，您可以先进进窗体
代码窗口，在代码窗口顶部的左侧的下拉列表中选择对象，在右侧的下拉列表中选择相应的事件。
用户窗体初始化
最主要的用户窗体事件是初始化(Initialize)事件。初始化是产生在用户窗体中的第一件事情――只要用户窗体开端装载，就会触发初始化事件。
在这里,影像测量仪，您可以初始化变量和控件。例如，您能从电子表格中更新最新的数据到文本框中，改变文本框的缺省值为今天的日期，等等。
恳求关闭和中断
停止窗体的事件有两个：要求关闭(QueryClose)和中断(Terminate)。要求关闭事件首先发生，并且给您撤消的机遇(不会关闭窗体)；中止事件是终极的并不能撤消。
因此，事件的次序是：初始化(Initialize)―……―恳求关闭(QueryClose)―中断(Terminate)。
激活用户窗体
如果您不卸载窗体而只是隐蔽它，然后再显示它，初始化事件不会再运行。但是，激活(Activate)事件将会产生。当用户窗体每次获得焦点时，都会触发激活事件。在每次显示窗
体时，该事件也会发生。如果您有几个窗体同时可见，那么当您在这些窗体之间切换时，激活事件也会被触发。
带参数的事件
和Excel的事件一样，一些窗体事件也带有参数，给您更多的关于怎样触发事件和为什么会触发事件的信息。例如，UserForm_KeyDown事件将告知您按下了哪个按键。当您在VBE中使用代码窗口顶部的下拉菜单创件一个事件过程时，该过程会自动为它的所有参数设置适合的值。
一些参数是只读的，而另一些参数则可读写。例如，产生在用户窗体关闭前的Userform_QueryClose事件，带有一个撤消(Cancel)参数，在该过程中设置Cancel=True将疏忽该事件，并且该窗体不会被关闭。
问题1：如何在用户窗体间传递数据？
有两种重要的在窗体间传递数据的方式：直接从窗体到窗体传递数据(这意味着这两个窗体应同时都被装载在内存中)；或者先将一个窗体中的数据存储在某个处所，然后再从另一个窗体中调用这些数据。
可以或者是从“源数据”窗体或者是从“目的”窗体中传递数据，但必需在“源数据”窗体被卸载
前进行。注意，当您指定另一个窗体中的控件时，必须加上该窗体的名字，例如：
‘**********************
txtName.Value = Name.Value
‘**********************
直接从窗体到窗体传递数据会触发另一窗体的初始化事件(除非该窗体可见)，由于您在引用该窗体中的控件的属性。如果该初始化事件过程包含有显示窗体的代码，或者调用其它的子过程,金相显微镜，这将触发一系列的代码，导致难于调试，因此，建议仅对相当简略的窗体使用这种方式。
相比拟而言，将数据存储在变量中会更机动和便于把持。数据能被存储在公共变量中、单元格中(当封闭文件时能被保留)、或工作表命名区域中。
下面的综合示例中包含有这两种方式传递数据的例子。
问题2：如何到我的窗体中的某类控件？
您能在窗体中所包括的控件之间进行循环，选择那些适合类型的控件，并在这些控件中利用相应的代码。可用如下几种方法进行处置：应用TypeName函数、TypeOf运算符、或者控件名字。
TypeName()
TypeName函数返回一个字符串，例如，文本框为”TextBox”，命令按钮为”CommandButton”等等。控件的类型名称一般与控件的缺省名或题目雷同，但不是数字。例如，当您添加一个新的文本框到您的窗体中，缺省设置命名为TextBox1。
TypeOf
TypeOf是断定对象类型的很好的方法。引用了对象库之后，它能直接返回该对象的类型而不是字符串。您能通过对象阅读器到库和一个对象的类型。例如，文本框的类型是MsForms.Textbox。
TypeOf重要的上风在于使您的代码更易调试。当您试图编译模块时能捕捉类型，并且TypeOf支撑智能辨认――开端输入“If TypeOf ctl Is”，接着您将会获得一个带有所有可用的选择的下拉列表。
“If TypeOf…Is…Then”是If语句的一类特别的语句，其先容在VBA辅助文档中的If语句中。
控件名字
如果您按同一的规矩命名了您的控件，您能使用名称(Name)属性来识别它们，并能应用一些技巧。应用Left函数，可以非常机动的辨认一组子文本框，例如，在窗体中有10个文本
框，其名称分辨为txtTeamName、txtTeamNumber、txtMember1、txtMember2、……、txtMember8，您能使用这种方法辨认并清空名字中所有以”txtMember”开头的文本框。
例子
在下面的例子中有三个作用相同的If语句(假设您的文本框名字都是以”txt”开头)：
‘**********************
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.Textbox Then '或者
If TypeName(ctl) = "TextBox" Then '或者
If Left(ctl.Name, 3) = "txt" Then
    '对文本框进行操作
ctl.Text = "Hello"
End If
Next ctl
‘**********************
下面的综合示例中也有一个例子。
问题3：如何获取数据到列表框中？
您可以通过下面所介绍的三种方式为列表框获取数据,电子天平。
RowSource属性
您能将列表框直接与工作表上的一个单元格区域相链接，这与工作表中的列表框雷同。在该区域中的任何变化将会立即使列表框相应变更，但在列表框中的数据是只读的，您不能通过转变列表框中的项目来改变工作表中的内容,分光光度计。
Note that the parameter for RowSource is a string and not a range:
注意，RowSource参数是一个字符串，而不是一个单元格区域：
‘**********************
lstNames.RowSource = Range("Names").Address
‘**********************
List属性 / Column属性
您能使用List属性和Column属性来设置列表项目，这两个属性除了方向不同外，本质上是雷同的。List属性的语法为：List(行，列)；Column属性的语法为：Column(column,row)。
您能复制全部数组到列表框中，或者只是在列表框中设置单个的项目。
‘**********************
lstNames.List = Range("Names").Value
‘**********************
AddItem办法
AddItem方法在列表框中添加一行，并且您能放置一个值在新行的第一列中,工具显微镜。在多列列表框中，您必须使用List属性或Column属性放置值在剩下的列中。
‘**********************
With lstNames
  ,显微镜;.Additem
  .List(0, 0) = "John"
.List(0, 1) = "Smith"
End With
‘**********************
在下面的综合示例中，由上述三个属性或方法的例子。
问题4：如作甚循环创建进度条？
创建进度条的一个简略的方式是创立带有两个标签(例如，分辨命名为lblBackground和lblProgressBar的两个标签)的窗体。使lblBackground标签与您创建的进度条一样宽，设置lblProgressBar标签的宽度值(Width)从0开端,测微光度计，并确保lblProgressBar标签在lblBackground标签之上。接着，当您运行循环时增添lblProgressBar标签的宽度。
‘**********************
'p为已经进行的循环所占的比例，例如0.6
Me.lblProgressBar.Width = p * Me.lblBackground.Width
‘********************** 相关的主题文章：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。