ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 89104|回复: 170

[原创]ExcelVBA用户窗体编程基础

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2006-7-30 19:04 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:窗体

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方法(隐藏窗体)。

装载和卸载
窗体显示之前,必须装载到内存中。如果您显示一个没有装载的窗体,该窗体将自动装载。事实上,窗体中的任何引用或者变量或者控件或者属性都将强制装载,并且触发初始化事件。如果您想初始化窗体但不显示窗体的话,您能使用如下方式装载:
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 = frmTheOtherForm.txtName.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
‘**********************
在下面的综合示例中,有一个简单的进度条例子。

综合示例
下面的Excel文档是一个演示用户窗体基础知识的完整示例。见用户窗体完整示例.xls。 kcb41mKg.rar (41.69 KB, 下载次数: 6801)

By fanjy in 2006-7-30


评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2006-7-30 19:17 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-7-30 19:23 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-7-30 20:17 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

我是新手,要多D学习!多谢了!

TA的精华主题

TA的得分主题

发表于 2006-7-30 20:22 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-7-30 22:37 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-7-30 23:07 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

已收藏,感谢楼主共享

还有吗?请继续

TA的精华主题

TA的得分主题

发表于 2006-7-31 10:00 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-7-31 11:43 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-7-31 12:48 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 17:06 , Processed in 0.056057 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表