Excel VBA窗体入门

admin管理员组

文章数量:1530269

2024年3月21日发(作者：)

Excel VBA窗体入门

一、窗体和控件简介什么是窗体？微软是这样解释的：

窗体 窗口或对话框。窗体为控件的容器，多文档接口 (MDI) 窗体可作为子

窗体和一些控件的容器。

窗体与控件不同，窗体上可以存放多个控件，在窗体界面直接调用。

打开VBE界面，工程管理器中，右键——插入——用户窗体，即可插入一个用户

窗体。插入的窗体名称默认以UserForm开头后带数字，构成默认名称。

选中窗体模块名称，双击可以查看窗体界面，右击可以选择查看该窗体代码。注

意：窗体和窗体上的控件代码存放在“用户窗体中”，而非存放在标准模块中。

如果代码写在标准模块中，应在窗体代码模块中调用。例如，在标准模块中有过

程”sub 显示窗体()”，则应在窗体控件事件中使用以下形式调用:

Private Sub CommandButton1_Click()

Call 显示窗体

End Sub

以上代码表示单击CommandButton1则调用标准模块中的过程“sub 显示窗体

()”。两个窗体间的代码过程并无法相互调用。

相关控件

ALT+F11打开工程管理器中双击窗体名称，可以发现窗体界面和控件工具箱。我

们可以点击工具箱上的选择控件，然后在窗体中拖曳即可在窗体中插入相关控

件。

工具箱上，除了鼠标箭头外，其他是可以插入的控件，横向分别为标签Label、

文字框TextBox、复合框ComboBox、列表框ListBox、复选框CheckBox、选项按

钮OptionButton，切换按钮ToggleButton，框架Frame，命令按钮CommandButton，

TabStrip，多页Page，滚动条ScrollBar，旋转按钮（数值）SpinButton，图像

Image，RefEdit。

与工作表的集合有Worksheets一样，窗体控件也有集合Controls,不记得的话，

可以看看控件工具箱上方的英文，o(∩_∩)o 哈哈。对了，这英文在win7系统

下的excel才能看见，XP下看到的是汉字。

窗体中的常用属性：

窗体名(其他控件对象名同)长度不得超过40个字符。

BackColor：用于设置窗体的背景色。

Caption：控件显示的标题文本。

BorderStyle：设置窗体的边框样式。

Enabled：用于设置窗体是否有效。设置为True时，程序运行时窗体可以被操

作，即窗体可以响应作用于它的事件，设置为False时，窗体不可以被操作，而

且窗体上的对象也不可以进行操作。

Font：设置窗体上文本的字体、字型和字号。

ForeColor：设置窗体上文本和图形的前景色。

Moveable：设置窗体在程序运行时能否被移动。

Left和Top：用于设置程序运行时窗体在屏幕上的位置，Left属性值决定窗体

左上角在屏幕上的横坐标，Top属性值决定窗体左上角在屏幕上的的纵坐标。

Height和Width：用于设置程序运行时窗体在屏幕上的大小(高和宽)，Height

属性值决定窗体的高度，Width属性值决定窗体的宽度。

Picture：用图片填充窗体背景。单击可以选择路径。

ShowModal:模式选择。如果为FALSE，则窗体模式为无模式，此时可以显示窗体

并选择单元格和其他窗体；如果为TRUE，则为有模式，无法选择其他窗体和单

元格。代码调用模式优于此属性设置。

StartUpPosition：调整窗体出现的位置。

控件属性TabIndex：设置光标跳动顺序。

PasswordChar:TextBox控件中使用符号代替输入的内容，例如用*代替输入的密

码。

二、窗体的显示显示窗体的语法：

例如：就是显示名称为UserForm1的窗体。

窗体显示方式分两种，可以通过ShowModal属性或者代码调用进行设置。

1.有模式：此模式下，只显示本窗体，只能在本窗体使用控件，无法选择其他窗

体或者工作表对象。默认ShowModal属性为TRUE，也就是有模式。

2.无模式 无模式下，可以同时显示多个窗体，能在多个窗体间切换(其他窗

体也必须是无模式)，能自由选择工作表对象，例如复制单元格内容等操作。

3.代码设置显示模式前面我们说过，用的方法显示窗体。

如不指定Show的参数，调用模式按ShowModal原有属性设置显

示窗体模式。

（1）强制使用有模式显示：

1

（2）强制使用无模式显示：

0

备注：可以使用load UserForm1装载窗体到内存中而不显示。

三、窗体的隐藏要隐藏窗体，可以用Hide，如下代码表示隐藏UserForm1窗体：

也可以通过点击窗体右上方的红色关闭按钮实现。

窗体的卸载：Unload UserForm1，通过Unload从内存中删除窗体，释放窗体所

占用的内存空间

四、窗体事件什么叫事件？这个交给前辈们去解释，在下水平有限无法解释清楚。

以下内容参考了/vb/Wlkc/vb2/网站

的文章：

1.C1ick单击事件。程序运行时，当用户用鼠标左键单击窗体时，引发该窗体的

C1ick事件（也称单击事件）。

ck双击事件。程序运行时，当用户用鼠标左键双击窗体时，引发该窗

体的DblClick事件（也称双击事件）。

装载事件。运行程序，当系统把窗体由外部存储介质装入内存时，引发

该窗体的Load事件（也称装载事件）。

改变窗体尺寸事件。程序运行时，当窗体大小被改变时，引发该窗体

的Resize事件。

te激活窗体事件。程序运行时，当窗体变为当前窗体时，引发该窗体

的Activate事件（也称激活事件）。

vate失去激活事件。程序运行时，当A窗体取代B窗体变成当前窗体

时，引发B窗体的Deactivate事件（也称失去激活事件）。

卸载事件。当窗体被从内存中卸载时，引发该窗体的Unload事件（也

称卸载事件）。

8. QueryClose 关闭按钮事件。当点击窗体右上方的关闭按钮时触发的时间，此

事件在控制关闭窗体就退出关闭工作簿的时候很有用处，使用登录窗体的朋友不

会错过它。如下代码，完整写入到对应窗体代码模块中即可实现点击该窗体的关

闭按钮，就执行不保存工作簿就退出。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode

AsInteger)

False

End Sub

rm_Initialize()窗体初始化事件。该事件表示利用

方法，加载窗体的时候触发该事件。

五、控件事件1.单击事件Click.注意TextBox控件没有单击事件,可以通过获得

焦点事件处理。

2.双击事件，DblClick。

3. Change 事件，当控件的值（VALUE）变动，则触发事件发生执行事件代码。

4. Enter事件，获得焦点事件，可以简单理解为光标跳动到当前控件时触发的

事件。

5. Exit事件，失去焦点事件。简单理解为光标离开当前控件时触发的事件。如

果窗体中有多个可选控件（非标签控件），要实现文本框中回车触发，也可以使

用Exit事件处理。

6. KeyDown 和 KeyUp 事件。按下和释放某键时这两个事件依次发生。按下键时

发生 KeyDown 事件，而释放键时发生 KeyUp 事件。

利用KeyDown处理回车事件示例：

Private Sub TextBox1_KeyDown(ByVal KeyCode Integer,

ByVal Shift As Integer)

IfKeyCode = 13 Then

………此处写执行的代码……..

End if

End sub

六、打开即显示窗体

这个比较简单，只需要使用工作簿的Open事件即可。在thisworkbook模块加入

代码即可。

Private Sub Workbook_Open()

End Sub

七、只显示窗体，隐藏工作簿

这个也简单，在上面提到的“打开即显示窗体”代码中加入一句隐藏工作簿的代

码即可。

Private Sub Workbook_Open()

e = False

End Sub

注意，如果你调用的窗体无调用关闭工作簿的命令，退出窗体并不关闭工作簿，

工作簿依然在后台运行。需要关闭，则需要随意打开一个其他excel文档，即可

显示全部excel文档窗口。当然，最好是在窗体上用控件关闭工作簿，或者使用

前面提到的QueryClose事件控制关闭。

八、为窗体设置快捷键

有窗体了，不需要的时候关闭，但是需要的时候还得用控件调出或者到VBE界面

去运行，这样是不是很不方便呢？要是有快捷键多好，窗体就可以“呼之即来挥

之即去”。

使用Onkey即可轻松实现。

首先插入标准模块(代码如写在窗体模块中无法调用)，写入过程如下

SUB 窗体1()

0

End sub

然后在Thisworkbook模块写入如下代码

Private Sub Workbook_Open()

"{F2}", "窗体1"

End Sub

接下来即可F2快捷键调出窗体UserForm1。注意：快捷键如与系统原快捷键功

能冲突，快捷键执行代码指定功能。更多详细信息，请查看excel帮助关于onkey

的说明。

九、制作密码登录框

现有情况：

1.以前采用的Excel4.0宏表方式，在Excel2003实现禁用宏就关闭工作簿，但

在EXCEL2007/2010中则可以禁用宏并打开。

2010/2007的工作簿打开密码几乎牢不可破，可以设置打开密码、修改

密码、工作表密码。

3.文本框控件TextBox，可以设置PasswordChar 属性利用其他字符代替输入内

容的显示效果，在制作密码输入的时候防“目测”有作用。

4.可以实现打开工作簿的时候执行指定事件。

5.可以设置只显示窗体，不显示工作簿窗口，可以实现点击窗体“关闭按钮”则

关闭工作簿。

6.可以实现点击关闭工作簿的时候，执行指定事件过程。

7.可以使用代码深度隐藏、取消隐藏工作表。

8.可以添加VBA工程密码。

综合以上情况，我们可以有这样一个思路：

1. 使用Excel2007/2010特有格式XLSM格式保存，设置打开密码、修改密

码、工作表保护、VBA工程密码。

2. 在Thisworkbook模块写下：

（1）打开工作簿启用宏，即运行窗体并隐藏工作簿界面。注意给TextBox控件

设置PasswordChar 属性，避免“偷窥”密码。

（2）按登录窗体输入内容判断取消对应权限的工作表保护、取消深度隐藏。要

先取消工作表保护，才执行取消隐藏，否则出错。

（3）点击关闭的时候，执行深度隐藏工作表，并添加工作表密码，执行保存（注

意：如果对方无修改权限密码，以只读打开，代码执行保存工作簿会导致出错，

因此关闭事件代码要添加On Error Resume Next这一句）。

实现以上过程，基本能实现以下效果：

无密码不能打开；又因带打开密码的工作簿无法破解VBA工程密码，因此无法从

代码中获取密码信息。

不启用宏就无法正常查看隐藏数据，只能按登录用户查看指定内容。

这方法只能对一些对excel了解比较少的人会起作用。但对excel

稍微了解的朋友就知道有什么漏洞，如何破解了。

好比卖密码锁的人，不会宣传如何破解自己密码锁的话，所以我也不说明如何破

解，各位也自己知道好了。

破解方法不普及的话，还能稍微解决excel2010下的宏对话框“安全”登陆。

最后奉献各位一句，除了excel2010/2007的打开密码是比较安全

的，其他浮云。要更加安全，还得借助其他程序。

本文标签： 窗体事件控件工作代码