ExcelVBA窗体入门.doc

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控件中使用符号代替输入的内容，例如用*代替输入的密码。二、窗体的显示显示窗体的语法：UserFormName.Show例如：UserForm1.Show就是显示名称为UserForm1的窗体。窗体显示方式分两种，可以通过ShowModal属性或者代码调用进行设置。1.有模式：此模式下，只显示本窗体，只能在本窗体使用控件，无法选择其他窗体或者工作表对象。默认ShowModal属性为TRUE，也就是有模式。2.无模式 无模式下，可以同时显示多个窗体，能在多个窗体间切换(其他窗体也必须是无模式)，能自由选择工作表对象，例如复制单元格内容等操作。3.代码设置显示模式前面我们说过，用UserFormName.Show的方法显示窗体。如不指定Show的参数，UserForm1.Show调用模式按ShowModal原有属性设置显示窗体模式。（1）强制使用有模式显示： UserForm1.Show 1（2）强制使用无模式显示： UserForm1.Show 0备注：可以使用load UserForm1装载窗体到内存中而不显示。三、窗体的隐藏要隐藏窗体，可以用Hide，如下代码表示隐藏UserForm1窗体：UserForm1.Hide也可以通过点击窗体右上方的红色关闭按钮实现。 窗体的卸载：Unload UserForm1，通过Unload从内存中删除窗体，释放窗体所占用的内存空间四、窗体事件什么叫事件？这个交给前辈们去解释，在下水平有限无法解释清楚。以下内容参考了/vb/Wlkc/vb2/02-01-00.html网站的文章：1.C1ick单击事件。程序运行时，当用户用鼠标左键单击窗体时，引发该窗体的C1ick事件（也称单击事件）。2.DblClick双击事件。程序运行时，当用户用鼠标左键双击窗体时，引发该窗体的DblClick事件（也称双击事件）。3.Load装载事件。运行程序，当系统把窗体由外部存储介质装入内存时，引发该窗体的Load事件（也称装载事件）。4.Resize改变窗体尺寸事件。程序运行时，当窗体大小被改变时，引发该窗体的Resize事件。5.Activate激活窗体事件。程序运行时，当窗体变为当前窗体时，引发该窗体的Activate事件（也称激活事件）。6.Deactivate失去激活事件。程序运行时，当A窗体取代B窗体变成当前窗体时，引发B窗体的Deactivate事件（也称失去激活事件）。7.Unload卸载事件。当窗体被从内存中卸载时，引发该窗体的Unload事件（也称卸载事件）。8. QueryClose 关闭按钮事件。当点击窗体右上方的关闭按钮时触发的时间，此事件在控制关闭窗体就退出关闭工作簿的时候很有用处，使用登录窗体的朋友不会错过它。如下代码，完整写入到对应窗体代码模块中即可实现点击该窗体的关闭按钮，就执行不保存工作簿就退出。 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode AsInteger)Application.QuitThisWorkbook.Close FalseEnd Sub9.Userform_Initialize()窗体初始化事件。该事件表示利用Userform1.Show方法，加载窗体的时候触发该事件。五、控件事件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 AsMSForms.ReturnInteger, ByVal Shift As Integer) IfKeyCode = 13 Then 此处写执行的代码. End ifEnd sub六、打开即显示窗体这个比较简单，只需要使用工作簿的Open事件即可。在thisworkbook模块加入代码即可。Private Sub Workbook_Open() UserForm1.ShowEnd Sub七、只显示窗体，隐藏工作簿这个也简单，在上面提到的“打开即显示窗体”代码中加入一句隐藏工作簿的代码即可。Private Sub Workbook_Open() Application.Visible = False UserForm1.ShowEnd Sub注意，如果你调用的窗体无调用关闭工作簿的命令，退出窗体并不关闭工作簿，工作簿依然在后台运行。需要关闭，则需要随意打开一个其他excel文档，即可显示全部excel文档窗口。当然，最好是在窗体上用控件关闭工作簿，或者使用前面提到的QueryClose事件控制关闭。八、为窗体设置快捷键有窗体了，不需要的时候关闭，但是需要的时候还得用控件调出或者到VBE界面去运行，这样是不是很不方便呢？要是有快捷键多好，窗体就可以“呼之即来挥之即去”。使用Onkey即可轻松实现。首先插入标准模块(代码如写在窗体模块中无法调用)，写入过程如下SUB 窗体1() UserForm1.Show0End sub然后在Thisworkbook模块写入如下代码Private Sub Workbook_Open()Application.OnKey F2, 窗体1End Sub接下来即可F2快捷键调出窗体UserForm1。注意：快捷键如与系统原快捷键功能冲突，快捷键执行代码指定功能。更多详细信息，请查看excel帮助关于onkey的说明。九、制作密码登录框现有情况：1.以前采用的Excel4.0宏表方式，在Excel2003实现禁用宏就关闭工作簿，但在EXCEL2007/2010中则可以禁用宏并打开。2.Excel2010/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工程密码