|
第41章 初识ＶＢＡ ＶＢＡ全称为Visual Basic for Application，它是Visual Basic的应用程序版本。作为功能强大的工具，ＶＢＡ使Excel形成了独立的编程环境。本章将简要介绍什么是VBA以及如何学习Excel VBA。 41.1 什么是宏 在很多应用软件中都有宏的应用。什么是宏呢？计算机词典中有多种对于宏的定义。在此无需花费大量时间去研究那些拗口的定义哪个更准确。本书中讨论的宏仅限于微软Office软件包设计的一个特殊功能，目的是让用户的一些任务实现自动化。 与其他用于软件开发的单独编程语言不同，宏代码只能“寄生”于Excel文件之中，并且宏代码不能编译为可执行文件。 41.2 ＶＢＡ的应用场景 Excel VBA作为一种扩展工具，得到了越来越广泛的应用，原因在于，很多实际应用中复杂的Excel操作都可以利用Excel VBA得到简化。一般来说，Excel VBA可以应用在如下几个方面：
41.3 在Excel 中录制宏代码 41.3.1 录制宏是最好的学习工具 录制宏不仅是Excel 中一个非常实用的功能，而且是学习 VBA的好帮手。在 Excel 中，有两种方法可以开始录制一个宏。 １．利用Excel菜单：“工具”——宏——录制新宏，在“录制新宏”对话框中，设置宏的名称、保存位置以及快捷键，再单击“确定”按钮，就可以开始录制一个新的宏。 系统默认录制新宏的名称为“Ｍacro”加数字序号的形式，例如Macro1、Macro2等等，建议用户使用能够代表代码功能的宏名称。宏名称可以包含字母、数字和下划线，但第一个字符必须是字母或中文字符，不能是数字，也就是“1Macro”不可以作为宏名称。建议在宏名称中不要使用中文字符，否则在非中文版的Excel中使用该宏时可能会出现兼容性问题。 ２．利用Ｖisual Basic工具栏 步骤１：单击视图——工具栏——Visual Basec，将显示工具栏。 步骤２：单击第二个按钮“录制宏”，同样会出现“录制新宏”对话框。 步骤３：单击“录制新宏”对话框的“确定”按钮，系统将开始录制宏，Ｖｉｓｕａｌ Ｂａｓｉｃ工具栏的第二个按钮将变为“停止录制”。 开始录制宏后，Ｅｘｃｅｌ中绝大部分操作将被记录为宏代码，此时可以开始在Excel 中进行相关的操作。操作结束后，单击Visual Basic工具栏的“停止录制”按钮，将停止本次录制宏。单击“查看代码”按钮或按<Alt+F11>组合键就可以打开VBE（V isual Basic Editor，即VBA集成开发环境）窗口，在代码窗口中将看到刚才录制的宏代码，下一章中将讲述VBE中主要窗口的功能。 对于ＶＢＡ的初学者，最困难的事情就是想要实现一个功能，却不知道代码从何写起，录制宏可以很好地帮助大家。在Excel中进行操作的同时录制宏，就可以看到整个操作过程的代码，请注意这只是一个“半成品”，经过必要的修改才能得到更高效更智的代码。 41.3.2 录制宏的局限性 录制宏可以忠诚地记录Excel 操作，但也有其本身的局限性，主要表现在以下几个方面： １、录制宏产生的代码不一定完全等同于用户的操作，例如用户设置保护工作表时输入的密码就无法记录在代码中，设置工作表控件的属性也无法产生相关的代码。 ２．录制宏产生的代码执行效率不高，因为代码中大量使用Activate和Select等方法，影响了代码的执行效率，在实际应用中需要进行相应的优化。 第４２章 ＶＢＡ的组装工厂——Ｖisual Basic Editor Ｖisual Basic Editor（以下简称ＶＢＥ），是指Ｅxcel及其他Office组件中集成的VBA编辑器，本章将介绍VBE中主要功能窗口的功能。 ４２．１ＶＢＥ窗口介绍 ４２．１．１ ＶＢＥ窗口介绍 在ＶＢＥ界面中，除了和一般Ｗindows应用程序类似的菜单和工具栏外，其工作区中还提供了多个功能窗口供用户选择。单击VBE“视图”菜单，将显示菜单项，用户可根据需要和使用习惯选择在VBE中显示的功能窗口。 ４２．１．２ 工程窗口 工程窗口以树形结构显示Excel中的所有工程，即Excel中所有已经打开的工作簿，包含隐藏工作簿的加载宏。每个工程作为一个树结构的根结点，一般显示为“VBAProject(Book1.xls)”的形式。 ４２．１．３ 属性窗口 属性窗口会列出选取对象的属性，用户可以修改这些属性的值。当选取了多个控件时，属性窗口会列出所有控件所共有的属性；如果此时更改某个属性的值，那么被选中的多个控件的相应属性会同时被修改。属性窗口所示分为两部分：对象框和属性列表。 ４２．１．４ 代码窗口 代码窗口用来输入、显示以及编辑ＶＢＡ代码。打开对象的代码窗口后，可以查看模块或对象中的代码和在它们之间进行复制和粘贴。 ４２．１．５ 立即窗口 在立即窗口中键入或粘贴一行代码，然后按<Enter>键可以执行该代码。在代码中使用Debug.Print可将内容输出到立即窗口中。 注意：立即窗口中的代码是不能被保存的，关闭Ｅxcel后，立即窗口中的内容将丢失。 第４３章 ＶＢＡ语言基础 ＶＢＡ作为一种编程语言，具有其自身特有的语法规则。本章将介绍ＶＢＡ编程的基础知识，包括变量与常量、过程、程序结构以及对象的属性、方法和事件。 ４３．１ 变量与常量 ４３．１．１ 数据类型 数据类型用来决定可保存何种数据。ＶＢＡ中的数据类型包括Byte,Boolean,Integer,Long,Currency,Decimal,Single,Double,Date,Stri ng,Object,Variant(默认）和用户定义类型等。不同数据类型所需要的存储空间并不相同。
４３．１．２ 变量 变量用于保存在程序运行过程中需要临时保存的值或对象，在程序运行过程中其值可以发生改变。 在ＶＢＡ中，变量无需声明就可以直接使用，此时该变量为变体变量。但使用之前声明变量是一个良好的编程习惯，同时也可以提高程序的运行效率。 在ＶＢＡ中用Dim语句声明变量。下述代码声明局部变量ａ为整数型变量。 Dim a as Integer 使用类型标识符可以简化为： Dim a% 注意：如果在同一个语句中同时声明多个变量，如下面的Dim语句中声明了两个变量，其中的变量a实际声明为Variant变量，则应该使用如下代码： Dim a as Integer,b as Integer 变量赋值使用等号，等号右侧可以是表达式。如下代码是为变量ａ赋值。 ａ ＝ １２８＋５６ ４３．１．３ 常量 常量用于存储固定信息，其值不会发生改变，使用常量可以增加程序的可读性。例如VBA中的常量vbGreen,其值为65 280，在代码中设置绿色时使用常量vbGreen，使得代码更具可读性。 在ＶＢＡ中用Const语句声明常量。如下代码声明字符型常量ClubName。 Const clubName As String = "ExcelHome" ４３．２ 运算符 ＶＢＡ中有如下４种运算符： １．算术运算符：用来进行数学计算的运算符。 ２．比较运算符：用来进行比较的运算符。 ３．连接运算符：用来合并字符串的运算任。 ４．逻辑运算符：用来执行逻辑运算的运算符。 连接运算符包括"&"运算符和"+"运算符两种。 ４３．３ 过程 过程（Ｐrocedure）是可以执行的语句序列单元，所有可执行的代码必须包含在某个过程内，任何过程都不能嵌套在其他过程中。过程的名称只能在模块级别进行定义。 ＶＢＡ中有３种过程，即Sub过程、Function过程和Property过程。 １．Sub过程执行指定的操作，但不返回运行结果，以关键Sub开关和关键字End Sub结束。可以通过录制宏生成Sub过程或在VBE窗口里直接编写。 ２．Function过程执行指定的操作，可以返回运行结果，以关键字Function开关和关键字End Function结束。Function过程可以在其他过程中调用，也可以在工作表的公式中使用，就像Excel的内置函数一样。 ３．Property过程用于设置和获取自定义对象属性的值，或者用来设置对另外一个对象的引用。 ４３．４ 程序结构 ＶＢＡ中的程序结构与控制和大多数编程语言相同，下面介绍最基本的几种程序结构。 ４３．４．１ 条件语句 程序代码经常用到条件判断，并且根据结果执行不同的代码。在ＶＢＡ中有If/Then语句和Select Case语句两种条件语句。 下面的If/Then语句判断活动单元格的内容，如果是“Excelhome”则将其字号设置为10，否则将字号设置为9。 If ActiveCell.Value = "ExcelHome" Then ActiveCell.Font.Size = 10 Else ActiveCell.Font.Size=9 ４３．４．２ 循环语句 对程序中多次重复执行的某段代码就可以使用循环语句。在ＶＢＡ中循环语句有多种形式，包括For循环、Do循环和While循环。下面的For循环实现1~10的累加功能。 Sub ForLoop() Dim i As Integer, iSum As Integer iSum = 0 For i = 1 To 10 iSum = iSum + i Next MsoBox iSum,,"ForLoop" End Sub ４３．４．３ Ｗith语句 With语句可以在一个单一对象或一个用户定义类型上执行一系列的语句。使用With语句不仅可以简化程序代码，而且可以提高代码的运行效率。With/End With结构中以“.”开头的语句相当于引用了With语句中指定的对象。当程序一旦进入With/End 结构，With语句指定的对象就不能改变。因此不能用一个With语句来设置多个不同的对象。如下代码是使用With语句设置活动工作表的相关属性。 With ActiveSheet .Visible = True .Cells(1,1 ) = "ExcelHome" .Name = .Cells(1,1) End With ４３．５ 对象 对象代表应用程序中的元素，例如工作表、单元格、图表或窗体等。应用程序提供的对象按照层次关系进行排列管理。Ｅxcel应用程序中的顶级对象是Application对象的子对象，反之，Application对象是这些对象的的父对象。 许多子对象都有自己的子对象。例如Workbook对象包含Worksheets对象，或者说，Workbook对象是Worksheets对象的父对象。Worksheets对象是一种称为集合中的单个Worksheet对象。 ４３．５．１ 属性 属性是指对象的特征、如大小、颜色或屏幕位置，也可指某一方面的行为，诸如对象是否被激活或是否可见。通过修改对象的属性值可以改变对象的特性。如下代码是设置活动工作表的名称为“ExcelHome”。 ActiveSheet.Name = “ExcelHome” ４３．５．２ 方法 方法指对象能执行的动作。例如使用Worksheets对象的Add方法可以添加一个新的工作表，代码如下： Worksheets.Add 在代码中，属性和方法都是通过连接符“．”来和对象连接的。 ４３．５．３ 事件 事件是一个对象可以辨认的动作，像单击鼠标或按下某键等，并且可以指定代码针对此动作来做出响应。用户操作、程序代码的执行和系统本身都可以触发相关的事件。 第４４章 与Ｅｘｃｅｌ进行交互 在Excel中，系统提供了各式各样的对话框与用户进行交互；在使用VBA编写程序时，为了提高代码的灵活性和程序的友好度，也经常需要实现用户与Excel的交互功能。本章将介绍如何InputBox和MsgBox实现输入和输出信息，以及如何调用Excel的内置对话框。 ４４．１使用ＭｓｇＢｏｘ输出信息 MsgBox函数通常应用于如下几种情况： １．输出代码最终运行结果 ２．产生一个消息框用于提醒用户 ３．在代码运行过程中显示某个变量的值，用于调试代码 MsgBox函数的语法格式如下： MsgBox(prompt[,buttons][,title] [,helpfile,context]) prompt参数用于设置消息框的提示文本信息，最大长度为1 023个字符。显然这么多的字符无法显示在同一行，如果代码中没有使用强制换行，系统将按照每行102个字符进行自动换行处理，多数情况下这并不符合用户的使用习惯。 在文本信息中使用vbCrLf或 vbNewLine常量可以进行强制换行。 示例４４．１ 显示多行文本信息 步骤１：打开一个新的工作簿文件，按Alt+F11组合键切换到VBE窗口。 步骤２．在工程窗口中插入“模块”，修改其名称为“MsgBoxDemo”。 步骤３．在模块MsgBoxDemo中写入如下代码。 Sub MultiLineDemo() '定义变量 Dim MsgStr As String '生成提示信息 MsgStr = "欢迎加入Excel Home论坛!"&vbCrLf MsgStr =MsgStr & "Excel Home 是微软技术社区聪明成员" & vbCrLf MsgStr = MsgStr & "Let's do it better!" '显示消息框 MsgBox MsgStr,,"欢迎" End Sub 步骤４．返回Excel界面，运行宏MultiLineDemo，将显示消息框。 buttons参数用于指定消息框显示按钮的数目及形式、图标样式和缺少按钮等。组合使用参数值可以显示多种不同风格的消息框；省略buttons参数时，消息框只显示一个确定按钮。 ４４．２ 如何利用InpuitBox输入 程序中往往需要用户输入很多内容，例如数字、日期或文本等，这就需要使用InpuitBox获取用户输入。 使用ＶＢＡ提供的InpuitBox函数可以实现用户输入，其语法格式为： InpuBox(prompt[, title] [, default] [,xpos] [, helpfile, context]) 输入框中必须显示相关的提示信息，即prompt参数，否则用户无法知道需要输入什么样的内容。设置输入框的标题，即title参数，使得输入框更接近Excel的内置对话框风格；如果省略该参数，则输入框的标题为“Micrlsoft Excel”。 注意：用户在输入框中输入的内容是否满足要求，需要在代码中进行相应判断，以保证后续程序可以正确地执行。 除了InputBox函数之外，Excel VBA的InpuBox方法（Application.InputBox)也可用于接收用户输入的信息，二者的用法基本相同。区别在于InpuBox方法可以指定返回值的数据类型。其语法格式为： InpuBox(Prompt,Title,Default, Left, Top, HelpFile, HelpContextId, Type) 示例４４．２ 利用InpuBox方法输入员工号信息 步骤１．打开—个新的工作簿文件，按Alt+F11组合键切换到VBE窗口。 步骤２．在工程窗口中插入“模块”，修改其名为“InputBoxDemo”。 步骤３．在模块InputBoxDemo中写入如下代码。 Sub ExcelInputBoxDemo() '定义变量 Dim newID As Integer Do '提示用户输入员工号 newID = Application.InputBox("请输入员工号（四位数字）：", "员工信息管理系统", Type:=1) '如果输入的是四位员工号就退出循环 Loop Until Len(CStr(newID)) = 4 '显示信息框 MsgBox "您输入的员工号为 " & newID, vbInformation, "提示信息" End Sub 步骤４．返回Excel界面，运行宏ExcekInputBoxDemo，将显示输入框；如果输入“abcd”后单击“确定”，将显示消息框。由此可以看出，使用InputBox方法，系统将根据Type参数判断输入的数据类型是否符号要求。 注意：在ＶＢＡ代码中直接使用InputBox相当于调用VBA的InputBox函数。 ４４．３ Excel内置对话框 用户使用Excel时，系统出现的对话框统称为Excel内置对话框，例如单击“文件”——“打开”将显示“打开”对话框。VBA程序与用户之间的交互也可以借助这些内置对话框来实现。 Application对象的Dialogs集合中包含大部分Excel内置对话框，每种对话框对应一个VBA常量。在VBA帮助中搜索“内置对话框参数列表”；可以查看所有的内置对话框参数列表。 使用Show方法可以显示一个内置对话框，下面代码将显示“打开”对话框。 Application.Dialogs(xlDialogOpen).Show 第45章 自定义函数 自定义函数与Excel工作表函数相比具有更强大、更灵活的功能。自定义函数可以用来简化公式，也可以用来完成Excel工作表函数无法完成的功能。 ４５．１ 什么是自定义函数 自定义函数（User-defined Worksheet Functions 简称UDF）就是用户创建的用于满足特定需求的函数，是对于Excel内置工作表函数的一个补充。Excel已经提供了数百个工作表函数可供选择使用，有必要创建自定义函数吗？答案是肯定的。自定义函数的优势在于： １．自定义函数可以简化公式。一般情况下，组合使用Excel工作表函数完全可以满足绝大多数应用，但是复杂的公式有可能太冗长和繁琐，其可读性非常差，不易于修改，除了公式的作者之外，公式的使用者可能很难理解公式的含义。此时就可以通过使用自定义函数来进行简化。 ２．自定义函数与Excel工作函数相比具有更强大和更灵活的功能。Excel实际应用中，要求是千变万化的，仅仅使用Excel工作表函数常常不能圆满地解决问题。此时就可以考虑使用自定义函数来满足实际工作中的个性化需求。 与Excel工作表函数相比，自定义函数的弱点也是显而易见的，就是自定义函数的效率要远远低于Excel工作表函数功能，应该使用45.3节中讲述的方法进行引用。 ４５．２ 函数的参数与返回值 ＶＢＡ中参数有两种传递方式：按值传递（关键字ByVal)和按地址传递（ByRef）。参数的默认传递方式为按地址传递，因此如果希望使用这种方式传递参数，可以省略参数前的关键字。 这两种传递方式的区别在于，按值传递只是将参数值的副本传递到调用过程中，在过程中对于参数的修改，并不改变参数的原始值；按地址传递是将该参数的引用传递到调用过程中，在过程中任何对于参数的修改都将改变参数的原始值。 注意：由于按地址传递方式会修改参数的原始值，所以需要谨慎使用。 函数属于Function过程，其区别于Sub过程之处在于，Function过程可以提供返回值。函数可以返回一个单一值或数组。如下面的自定义函数TaxRate根据工资数返回相应的税费税率，如果在工作表中使用公式实现则需要多层If结构嵌套。 Function TaxRate(Salary) Select Case Salary - 1000 Case Is <0 TaxRate = 0 Case Is <=500 TaxRate = 0.05 Case Is <= 2000 TaxRate = 0.1 Case Is <= 5000 TaxRate = 0.15 Case Else TaxRate =0.2 End Select End Function ４５．３ 如何在ＶＢＡ中引用工作表函数 由于工作表函数的效率远远高于自定义函数，因此对于工作表函数已经实现的功能，可以在ＶＢＡ代码中直接引用工作表函数，其语法格式为： Application.WorksheetFunction.工作表函数名称 WorksheetFunction.工作表函数名称 Application.工作表函数名称 在ＶＢＡ中Application对象可以省略，所以第二种语法格式实际上是第一种语法格式的简化。为了方便读者识别，本书后续章节中所有对于工作表的函数的引用都将采用第一种格式。 在ＶＢＡ代码中调用工作表函数时，函数参数的顺序与在工作表单元格公式中相同，但是具体表示方法会略有不同，例如在工作表中使用公式示Ａ１和Ａ２单元格的和，公式为： ＝SUM（A1，A2） 其中参数为两个单元格的引用Ａ１和Ａ２。而在ＶＢＡ代码中调用工作表函数ＳＵＭ时，需要使用ＶＢＡ中单元格的引用方法，如下所示： Application.WorksheetFunction.Sum(Cells(1,1),Cells(2,1)) ４５．４ 在ＶＢＡ中引用自定义函数 除非自定义函数不使用任何参数，否则自定义函数不能通过单击ＶＢＥ菜单“运行”——“运行子过程／窗体”来运行自定义函数过程。在ＶＢＡ代码中，只能在另一个过程里调用该自定义函数。 ４５．５ 在工作表中引用自定义函数 在工作表单元格公式引用自定义函数的方法和引用普通Excel工作表函数的方法基本相同。 步骤１．单击选中目标单元格。 步骤２．单击菜单“工具”——选项，在“视图”选项卡中，确认已经选中“编辑栏”。 步骤３．单击“编辑栏”的“插入函数”按钮，或单击菜单“插入”——“公式”。 步骤４．在“插入函数”对话框中选择类别“用户定义”，在“选择函数”列表框中将显示可供选择的全部自定义函数名称。 注意：使用关键字Private声明的私有自定义函数不会出现在“插入函数”对话框中，私有自定义函数不能用于公式里，只能在另外一个VBA过程里调用这些私有的自定义函数。 步骤５．单击自定义函数名称，然后单击“确定”，假设选定的函数为TaxRate。 步骤６．在“函数参数”对话框中输入相关参数，单击“确定”，单元格中将出现相应的计算结果。 ４５．６ 自定义函数的限制 并非所有的功能都可以在自定义函数中实现。在工作表单元格公式中引用自定义函数时，不能更改Microsoft Excel的环境，这意味着自定义函数不能执行以下任何操作： １．在工作表中插入、删除单元格或设置单元格格式。 ２．更改其他单元格中的值。 ３．在工作簿中移动、重命名、删除或添加工作表。 ４．更改任何环境选项，例如计算模式或屏幕视图。 ５．向工作簿中添加名称。 ６．设置属性或执行大多数方法。 其实，Excel中的内置工作表函数同样也不能更改Microsoft Excel的环境，函数只能执行计算以在输入它们的单元格中返回某个值或文本。 如果在其他过程中调用自定义函数就不存在上述限制。尽管如此，为了规范代码，建议所有上述需要更改Microsoft Excel环境功能的代码在Sub过程中实现。 ４５．７如何制作加载宏 加载宏（英文名称为Add-in）是一类程序的统称，它们可以为Microsoft Excel添加可选的命令和功能。例如，“分析工具库”加载宏程序提供了一套数据分析工具，在进行复杂统计或工程分析时，可以节省操作步骤，提高分析效率。 Microsoft Excel有三种类型的加载宏程序：Excel加载宏、自定义的组件对象模型（ＣＯＭ）加载宏和自动化加载宏。本节讨论的加载宏特批Excel加载宏。 理论上来说，任何一个工作簿可以制作成为加载宏，但是某些工作簿不适合制作成为加载宏，例如一个包含图表的工作簿，如果该工作簿转换为加载宏，那么就无法查看该图表，除非利用ＶＢＡ代码将图表所在的工作表拷贝成为一个新的工作簿。 制作加载宏的步骤非常简单，一般来说有两种方法可以将普通工作簿转换为加载宏。 １．在ＶＢＥ的工程窗口中双击ThisWorkBook，按F4显示属性窗口，在其中修改IsAddin属性的值为True。 ２．另存为加载宏。 步骤１．在Excel窗口中单击菜单“文件”——“另存为”。 步骤２．在“另存为”对话框中，单击保存类型下拉列表框，选择“Microsoft Office Excel加载宏（*.xla）”。 步骤３．选择保存位置，加载宏的缺省目录为“c:\Documents and Settings\<用户登录名>\Application Data\Microslft\Addlns\”。 步骤４．单击“确定”按钮。 系统默认的加载宏扩展名为XLA，但并非一定要用XLA作为加载宏的扩展名，使用任意的扩展名都不会影响加载宏的功能。为了便于识别，建议使用XLA作为加载宏的扩展名。 第４６章 如何操作工作簿、工作表和单元格 在Excel中，对工作簿、工作表和单元格的操作，多数都可以利用ＶＢＡ代码实现两样的效果。本章介绍了工作簿对象的Workshee t对象的引用方法以及添加删除对象的方法。Range对象是Excel最基本也是最常用的对象之一，对于Rabge对象处理的方法也有多种，本章将进行详细的介绍。 ４６．１ Workbook对象 Workbook对象代表Microsoft Excel工作簿，也就是通常据说的Excel文件，每个Excel文件都是一个Workbook对象。Workbook集合代表所有已经打开的工作簿，加载宏除外。 在代码中经常用的Workbook对象是ThisWorkbook和ActiveWorkbook。 １．ThisWorkbook对象指代码所在的Workbook对象。 ２．ActiveWorkbook对象指Excel中活动窗口中的Workbook对象。 ４６．１．１ 引用Workbook对象 使用Workbooks属性引用工作簿有如下两种方法。 １．使用工作簿序号引用Workbook对象，语法格式为： Workbooks.Item(工作簿序号） 工作簿序号是指创建或打开工作簿的顺序号，Workbooks（1）代表Excel应用程序中创建或打开的第一个工作簿，而Workbook（ Workbooks.Count）为最后一个工作簿，其中Workbooks.Count返回Workbooks集合中包含的Workbook对象的个数。即便是隐藏工作簿也包括在序号计数中，也就是说可以使用工作簿序号引用隐藏的Workbook对象。 Item属性是大多数对象集合的默认属性，因此可以省略Item关键字，简化为下面的语法形式： Workbooks（工作簿序号） ２．使用工作簿（或加载宏）名称引用Workbook对象，语法格式为： Workbooks（工作簿名称） 利用Workbook对象的Name属性可以返回工作簿名称，但是Name为只读性，不能利用Name属性修改工作簿名称；如果需要更改工作簿名称，应使用Workbook对象的SaveAs方法以其他名称保存工作簿。下面代码将工作簿Book1.xls另存到C:\temp目录，文件名称为ExcelHome.xls，如果不指定目录，则新的工作簿保存在与原来工作簿相同的目录中。 Workbooks("Book1.xls").SaveAs"c:\temp\ExcelHome.xls" ４６．１．２ 打开一个已经存在的工作簿 使用Workbooks对象的Open方法可以打开一个已经存在的工作簿，其语法格式如下： Workbooks.Open FileName:="c:\temp\ExcelHome.xls" 注意：参数名和参数值之间应该使用“：＝”符号，而不是等号。 参数名称可以省略，代码简化为： Workbooks.Open"c:\temp\ExcelHome.xls" ４６．１．３ 遍历工作簿 对于两种不同的引用工作簿的方法，分别可以使用For Each循环和For/Next循环遍历Workbooks集合中的Workbook对象。 示例４６．１ 遍历工作簿名称 步骤１．在工程中插入模块，并修改其名称为“AllWorkBook"。 步骤２．在模块AllWorkBook中写入如下代码。 Sub AllWorkBook1() '声明变量 Dim WK As Workbook, iRow As Integer ActiveSheet.Cells(1, 1) = "AllWorkBook1 运行结果" iRow = 2 '循环取得WorkBooks集合中的所有WorkBook对象 For Each WK In Application.Workbooks '将工作簿的名称写入工作表第一列 ActiveSheet.Cells(iRow, 1) = WK.Name '行号递增 iRow = iRow + 1 Next End Sub Sub AllWorkBook2() '声明变量 Dim i As Integer, iRow As Integer ActiveSheet.Cells(1, 2) = "AllWorkBook2 运行结果" iRow = 2 '设置循环变量的初值和终止值 For i = 1 To Application.Workbooks.Count '将工作簿的名称写入工作表第二列 ActiveSheet.Cells(iRow, 2) = Workbooks(i).Name '行号递增 iRow = iRow + 1 Next End Sub 步骤３．运行宏AllWorkBook1。 步骤４．运行宏AllWorkBook２。 运行结果，两个过程的结果分别显示在第一列和第二列，内容完全相同，实际应用中可以根据需要选择任何一种遍历方法。这两种遍历方法适用于多数对集合，如遍历Worksheets集合中的Worksheet对象。 ４６．１．４ 添加一个新的工作簿 在Excel中单击菜单“文件”——新建，然后单击新建工作簿窗口的“空白工作簿”；或单击标准工具栏的“新建”按钮，可以在Excel中产生一个新的工作簿。利用WorkBook对象的Add方法也可以实现添加一个新的工作簿，其语法格式为： Ｗorkbooks.Add ４６．１．５ 保护工作簿 从安全角度考虑，可以为工作簿设置密码。下面代码设置活动工作簿的保密密码为“ａｂｃ”。 ActiveWorkbook.Protect Password:="abc" 如果需要修改工作簿，可以利用Unprotect方法取消工作簿的保护。 ActiveWorkbook.Unprotect Password:="abc" ４６．１．６ 关闭工作簿 使用WorkBook对象的Close方法可以关闭打开的工作簿。如果该工作簿有更改，Excel将显示对话框，询问是否保存更改。 关闭工作簿时设置SaveChanges参数值为False，将放弃所有对该工作簿的更改，并且不会出现保存提示框。 ActiveWorbook.Close SaveChanges:=False ４６．２ Worksheet对象 Worksheet对象代表一张工作表。Worksheet对象既是Worksheets集合的成员，同时又是Sheets集合的成员。Worksheets集合包含工作簿中所有的Worksheet对象。Sheets集合除了包含工作簿中所有的Worksheet对象外，还包含工作簿中所有的图表工作表（Chart）对象和宏表对象。 ActiveSheet对象可用来引用处于活动状态的工作表。 ４６．２．１ 引用Worksheet对象 对于Worksheet对象，有如下３种引用方法。 １．使用工作表序号引用Worksheet对象，语法格式为： Worksheets（工作表序号） 工作表序号是按照工作表的排列顺序依次编号的，Worksheets（1）代表工作簿中的第一个工作表，而Worksheets（Worksheets.Co unt）代表最后一个工作表，其中Worksheets.Count返回Worksheets集合中包含的Worksheet对象的个数。隐藏工作表也包括在序号计数中，也就是说可以使用工作表序号引用隐藏的Worksheet对象。 ２．使用工作表名称引用Worksheet对象，语法格式为： Worksheets(工作表名称） 使用工作表名称引用Workbook对象时，工作表的名称不区分大小写字母，因此Worksheets（“sheet1”）引用的是同一个工作表，但是Worksheet对象的Name属性返回值是工作表的实际名称，可能和引用工作表时的名称有大小写区别。 ３．使用工作表的代码名（Codename)引用Worksheet对象。假设工作簿中有3个工作表。 在ＶＢＥ窗口中查看工程窗口和属性窗口。在工程窗口中Worksheet对象显示为“工作表代码名（工作表名称）”的形式，对应在属性窗口中，“名称”栏为代码名，“Name”栏为工作表名称。使用代码名Sheet1等同于Worksheets（Sht3）。工作表的名称和其代码名也可以相同。 ４６．２．２ 遍历工作簿中的所有工作表 遍历工作表的方法与遍历工作簿的方法完全相同，可以使用For Each循环或For/Next循环，具体请参阅46.1.3小节。 ４６．２．３ 添加新的工作表 在Excel单击菜单“插入”——“工作表”可以在当前工作簿中插入一个新的工作表。使用Add方法也可以在工作簿中插入一个新的工作表，其语法格式为： Sheets.Add 提示：插入指定名称的工作表可以使用代码Sheets.Add.Name = "newSheet",虽然在VBA帮助中没有说明Add方法具有Name属性，但上述代码是可以运行。需要注意的是，采用这个简化方式时，无法使用Add方法的参数。 ４６．２．４ 拷贝和移动工作表 Worksheet对象的Ｃｏｐｙ方法和Move方法可以实现工作表的拷贝和移动。其语法格式为： Copy(Befor,After) Move(Before,After) Before和After均为可选参数，二者只能选择一个。Copy和Move方法不仅可以实现同一个工作簿之内的工作表的拷贝和移动，也可以实现工作簿之间的工作表拷贝和移动。下面的代码可以将工作簿Book1.XLS中的工作表Sheet1拷贝到工作簿Book2.XLS中，并放置在原有的第3个工作表之前。 Workbooks("Book1.xls").Sheets("Sheet1").Copy Before:=Workbooks("Book2.xls").Sheets(3) ４６．２．５ 如何保护工作表 为了防止工作表被意外修改可以设置工作表保护密码。Worksheet对象Protect方法有很多可选参数，其中Password参数用于设置保护密码。 ActiveSheet.Protect "ExcelHome" ４６．２．６ 删除工作表 使用Worksheet对象的Delete方法删除工作表时，将会出现提示框，单击“删除”完成删除工作表。 如果不希望在删除工作表时出现这个提示框，可以使用DisplayAlerts禁止提示框的显示。 Application.DisplayAlerts = False Worksheets("Sheet1").Delete Application.DisplayAlerts = True 注意：代码中如果使用了Application.DisplayAlerts=False, 在使用Application.DisplayAlerts=True恢复之前，所有的系统提示信息都是将被屏蔽。如果没有使用代码进行恢复，则在代码运行结束后，Micorosoft Excel将该属性设置为True。 ４６．３ Range对象 Range对象代表工作表中的单个单元格或多个单元格组成的区域，该区域可以是连续的也可以是非连续的。虽然单元格是Excel操作的基本单位，但是Excel中不存在单元格对象。 ４６．３．１ 引用单个单元格 在ＶＢＡ代码中有多种方法可以用来引用单个单元格。 １．使用“［单元格名称］”的形式：这是在写法上最简单的一种引用方式。其中单元格名称与在工作表单元格公式中使用的Ａ１样式单元格名称完全相同，如［Ｃ５］代表工作表中的Ｃ５单元格。在这种引用方式中，单元格名称不能使用变量。 ２．使用Cells属性：Cells属性返回一个Rabge对象。其语法格式为： Cells(RowIndex,ColumnIndex) Cells属性的参数为行号和列号。行号是一个数值，其范围为１～65 536。列号可以是数值，其范围为1~256；也可以是字母形式的列标，其范围为“A”~“IV”。工作表所支持的列数量为256，其列标为“IV”。同样是引用C5单元格，可以有两种写法： Cells(5,3) Cells(5,"c") ２．使用Range（单元格名称）形式：其中单元格名称可以使用变量或表达式。在参数名称的表达式中可以使用"&"连接符，连接两个字符串。 Range（“C5”） ４６．３．２ 单元格格式的常用属性 常用的单元格格式有字体大小、字体颜色、背景色以及边框等，下面的代码将设置“Ａ１：Ｄ１０”区域的格式为：红色１１号字，背景色为青色，并添加边框。 Sub CellFormat() With Range("A1:D10") With .Font '设置字号 'Size = 11 '设置字体颜色为红色 'Color = vbRed End With '设置单元格边框线 Borders.LineStyle = xlContinuous '设置单元格背景色为青色 .Interior.Color = vbCyan End With End Sub ４６．３．３ 添加批注 Comment对象代表单元格的批注，是Comments集合的成员。Comment对象并没有Add方法，添加批注需要使用Range对象的AddCo mment方法。下述代码在活动单元格添加批注，内容为“ExcelHome”。 Activecell.AddComment "ExcelHome" 利用For Each循环可以遍历Comments集合中的所有Comment对象。 ４６．３．４ 如何表示一个区域 Range属性除了可以返回单个单元格，也可以返回单元格区域。Range的语法格式如下： Range（cell1，cell2） 参数Cell必须为A1样式引用，是一个单元格或区域的名称字符串。参数Cell2，可以是一个包含单个单元格、整列或整行的Range对象，也可以是一个单元格或区域的名称字符串。 如果引用以Ａ３单元格和C6单元格之间所包含的单元格区域对象，可以使用如下几种方法： Range（“A3：C6”） Range（[A3]，[C6]） Range（Cells(3,1),Cells(6,3)) Range(Range("A3"),Range("C6")) 第一种Range（“Ａ３，Ｃ６”）引用方式是最常用的方式，其中的冒号是区域操作符，其含义是以两个Ａ１样式单元格为顶点的矩形单元格区域。 ４６．３．５ 如何定义名称 在工作表公式中，经常通过定义名称来简化工作表单元格公式。本节所批的名称是单元格区域的定义名。Workbook对象的Names集合代表工作簿中所有名称组成的集合。Add方法用于指定新的名称，参数RefersToR1C1用于指定单元格区域，格式为R1C1引用方式。利用Range对象的Name属性，指定名称的代码为： Range("A3:D6").Name = "data" ４６．３．６ 选中工作表的指定区域 在ＶＢＡ代码中经常要引用某些特定区域，CurrentRegion属性和UsedRange属性是两个最常用的属性。 CurrentRegion属性返回Range对象，就是通常据说的当前区域。当前区域是一个由任意空行和空列包围的最小矩形单元格区域。按Ctrl+Shift+8组合键可以选中当前区域，选中着色区域内的任意单元格时，即使该单元格没有内容，按Ctrl+Shift+8组合键，同样会选中相应的着色区域。 UsedRange属性返回Range对象，代表指定工作表上的已使用区域，该区域是由工作表中已经被使用的单元格组成的矩形单元格区域。这里的“使用”与单元格是否有内容无关，即使只是改变了单元格的格式，这个单元格也是已经被告使用，它将被包括在UsedR ange属性返回的Range对象中。 可以使用Rabge对象的Select方法或Activate方法来检查相应区域的范围。 Activate.UsedRange.Select Activate.UsedRange.Activate ４６．３．７ 特殊区域——行与列 行与列是工作表中经常用到的两个Range对象，对于行与列的引用既可以使用Rows属性和Columns属性，也可以使用Range属性。 引用第１行至第５行的区域可以使用如下几种形式： Rows（“1：5”） Range（“A1：IV5”） Range（“1：5”） 列的引用方法与上述行的引用方式类似。例如引用Ａ列～Ｅ列的区域可以使用如下几种形式： Colums("A:E") Range("A1:E65536") Range("A:E") ４６．３．８ 删除单元格 Range对象的Delete方法可删除一个单元格或单元格区域。下面代码将删除C3：F5单元格区域，其下的替补单元格向上移动，也就是原来C6：F8单元格区域将向上移动到被删除的区域。 Range("C3:F5").Delete Shift:=xlShiftUp ４６．３．９ 插入单元格 Range对象的Insert方法可在工作表中插入一个单元格或单元格区域，其他单元格作相应移动以腾出空间。下面代码在工作表的第2行插入单元格，原工作表的第2行单元格将占据第3行的位置。 Rows(2).Insert ４６．３．１０ 合并区域与相交区域 Union方法返回Range对象，代表两个或多个区域的合并区域，其参数为Range类型。 Application.Union(Range("A3:D6"),Range("C5:F8")) Intersect方法返回Range对象，代表两个或多个单元格区域重叠的矩形区域，其参数为Range类型，如果参数单元格区域没有重叠区域，那么结果为Nothing。 Application.Intersect(Range("A3:D6"),Range("C5:F8")) 利用 Intersect方法可以判断某个单元格区域是否完全包含在另一个单元格区域中。 第47章 事件的应用 在Excel VBA中，事件是指对象可以辨认的动作。用户可以指定VBA代码来对这些动作做出响应。Excel可以监视多种不同类型的事件，Excel中的工作表、工作簿、应用程序、图表工作表、查询表和控件等不同对象都有不同的事件，而且每个对象都有多种相关的事件，本章将主要介绍工作表和工作簿的常用事件。 ４７．１ 事件过程 事件过程作为一种特殊的Sub过程，在事件被触发时执行，如果事件过程包含参数，系统会为相关参数赋值。事件过程必须写入相应的模块中才能发挥作用，工作簿事件过程须写入Thisworkbook模块中，工作表事件过程则须写入相应的工作表模块中；且只有过程所在工作表的行为可以触发该事件。 ４７．２ 工作表事件 工作表事件发生在特定的Worksheet对象中。Worksheet对象也是Excel最常用的对象之一，因此实际应用中经常会用到Worksheet对象事件。 ４７．２．１ Change事件 工作表中的单元格被用户手工修改或被ＶＢＡ代码修改时，将触发工作表Change事件。值得注意的是，虽然事件的名称是Change 但是并非工作表中单元格的任何变化都能触发该事件。 Change事件的参数Target是Change变量，代表工作表中发生变化的区域，它可以是一个单元格也可以攻玉是多个单元格组成的区域。在实际应用中，用户通常希望只有工作表中的某些特定单元格区域发生变化时，才激活Change事件，这就需要在Change事件中对Target参数进行判断。 示例４７．１ 自动记录数据录入日期 在工作表ChangDemo的代码窗口中写入如下代码： Private Sub Worksheet_Change(ByVal Target As Range) With Target '判断是否选中了单个单元格 If .Count = 1 Then '判断单元格是否在第一列 If .Column = 1 Then '禁止事件激活 Application.EnableEvents = False '在相应行的第二列输入当前日期 Target.Offset(0, 1) = Date '恢复事件激活 Application.EnableEvents = True End If End If End With End Sub 返回Excel界面，在工作表ChangDemo中的A列中输入备忘内容，Change事件将自动在B列的相应行写入当前日期。修改工作表中其他列的单元格（如C列），工作表的Change事件同样会被触发，但是因为不满足代码中的判断条件，所以不会执行写入日期的代码。 如何禁止事件的激活 上述代码使用Application.EnableEvents=False为防止事件被意外多次激活。Application对象的EnableEvents属性可以设置是否允许对象的事件被激活。上述代码中如果没有禁止事件激活的代码，在写入当前日期的代码执行后，工作表的Change事件被再次激活，事件代码被再次执行。某些情况下，这种事件的意外激活会重复多次发生，甚至造成死循环导致事件代码重复调用，无法结束运行。因此在可能意外触发事件的时候，需要设置Application.EnableEvents=False禁止事件激活。但这个设置并不能限制控件的事件被激活。 EnableEvents属性的值不会随着事件过程的执行结束而自动恢复为True，也就是说需要在代码运行结束之前进行恢复。如果代码被异常终止，而EnableEvents属性的值仍然为False，则相关的事件都无法激活。恢复办法是在VBE的立即窗口中执行Application.EnableEven ts=True。 ４７．２．２ SelectionChange事件 工作表中选定区域的范围发生变化将触发工作表的SelectionChange事件。SelectionChange事件的参数Target是Range变量，代表工作青史被选中的区域，相当于Selection属性返回的Range对象。 示例４７．２ 高亮显示工作表中选定区域所在的行和列 在工作表SelectionChangeDemo中写入如下的SelectionChange事件代码。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target '清除工作表单元格的背景色 .Parent.Cells.Interior.ColorIndex = xlNone '设置选中区域所在行的背景色 .EntireRow.Interior.Color = vbCyan '设置选中区域所在列的背景色 .EntireColumn.Interior.Color = vbCyan End With End Sub 返回Excel界面，在工作表SelectionChangeDemo中选中一个单元格区域C10：C14，显示效果，第10行至第14行以及第3列单元格高亮显示。 ４７．３ 工作簿事件 工作簿事件发生在特定的Workbook对象中。 ４７．３．１ Open事件 Open事件是Workbook对象最常用的事件之一，它发生于用户打开工作簿之时。 注意：在如下两种情况下，打开工作簿不会触发Open事件。 １．在按住<Shift>键的同时打开工作簿。 ２．在打开文件时的宏安全警告提示框里，选择了“禁用宏”。 Open事件经常被用来自动设置用户界面，这样的好处在于，无论工作簿关闭时的状态如何，再次打开时都可以按照某个特定风格呈现在用户面前。 示例４７．３ 自动设置工作簿打开时的界面风格 步骤１．在Thisworkbook模块中写入如下的Open事件代码。 Private Sub Workbook_Open() 'Excel窗口最大化 Application.WindowState = xlMaximized With ActiveWindow '工作表窗口最大化 .WindowState = xlMaximized '禁止显示行标和列标 .DisplayHeadings = False End With '激活Welcome工作表 Sheets("Welcome").Select End Sub 步骤２．返回Excel界面，选中Sheet1工作表。 步骤３．单击Excel窗口右上角的向下还原按钮，取消窗体最大化。 步骤４．单击“文件”——“保存”。 步骤５．单击“文件”——“退出”关闭工作簿。 步骤６．单击“文件”——“打开”，再次打开刚才保存的工作簿。 步骤７．单击安全警告提示框的“启用宏”按钮。 工作簿打开后，Excel窗口是最大化的，Welcome工作表成为活动工作表，而不是关闭工作簿时的Sheet1工作表。 ４７．３．２ BeforeClose事件 工作簿被关闭之前BeforeClose事件被激活。BeforeClose事件经常和Open事件配合使用，在Open事件中修改的Excel设置和用户界面，可以在BeforeClose事件中进行恢复。 示例４７．４ 关闭工作簿时自动恢复Excel默认界面风格 在Thisworkbook模块中写入如下的代码： Private Sub Workbook_Open() With Application '隐藏公式编辑栏 .DisplayFormulaBar = False '设置鼠标指针为沙漏型 .Cursor = xlWait End With End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) With Application '显示公式编辑栏 .DisplayFormulaBar = True '恢复系统默认鼠标指针 .Cursor = xlDefault End With End Sub 保存并关闭工作簿，然后再次打开工作簿，公式编辑栏已经隐藏且鼠标指针改为沙漏形。而在BeforeClose事件中，对相应的设置进行了恢复，所以工作簿关闭后，Excel将恢复默认的系统设置。 ４７．３．３ 全部工作表使用相同的事件代码 工作簿事件有几个名称是以“Sheet”开头的，这些事件的一个共同特点是，工作簿内的任意工作表的行为都将触发事件代码的执行。 如果希望所有的工作表都相应相同的工作表事件代码，有两种实现方法： １．在每个工作表代码模块中写入相同的事件代码。 ２．使用相应的工作簿事件代码。 毫无疑问，第二种方法是最简洁的实现方法。 示例４７．５ 高亮显示任意工作表中选定区域所在的行和列 与示例４７．２相对应，如果希望在工作簿中的任意工作表都拥有这种高亮显示的效果，可以在Thisworkbook模块中写入如下事件代码： Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) With Target '清除工作表单元格的背景色 .Parent.Cells.Interior.ColorIndex = xlNone '设置选中区域所在行的背景色 .EntireRow.Interior.Color = vbCyan '设置选中区域所在列的背景色 .EntireColumn.Interior.Color = vbCyan End With End Sub 与示例４７．２相比，这种方法不必在每个工作表代码模块中写入相同的事件代码，而且当工作簿中新增工作表时，也无需为新建工作表添加Change事件代码。 ４７．４ 非对象事件 Excel提供了两种不与对象关联的特殊事件，利用Application对象的相应方法可以设置这些特殊事件。 ４７．４．１ OnTime事件 OnTime事件指定一个过程在将来的特定时间运行，此处的特定事件既可以是具体指定的某个时间点，也可以是指定的一段时间之后。 示例４７．６ 文件保存提醒 步骤１．在工作簿中插入标准模块，并在其中写入如下代码。 '定义全局变量 Public iTime As Date Sub SaveReminder() '判断当前工作簿是否被修改 If ThisWorkbook.Saved = False Then '显示消息框 If MsgBox("为了防止数据丢失请保存文件" & _ vbCrLf & "点击<是>进行保存", vbYesNo, "OnTimeDemo") = vbYes Then '如果用户选择<是>，则保存当前工作簿 ThisWorkbook.Save End If End If '记录下次运行的时间点 iTime = Now + TimeValue("0:0:10") '设置10秒后再次运行SaveReminder过程 Application.OnTime iTime, "SaveReminder" End Sub 步骤２．在Thisworkbook中写入如下代码。 Private Sub Workbook_Open() '记录下次运行的时间点 iTime = Now + TimeValue("0:0:10") '设置10秒后再次运行SaveReminder过程 Application.OnTime iTime, "SaveReminder" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) '取消设置的自动运行 Application.OnTime iTime, "SaveReminder", Schedule:=False End Sub 步骤３．保存并关闭工作簿。 重新打开工作簿，在１０秒钟之后将看到工作簿保存提醒消息框。 Now函数返回当前计算机系统设置的日期和时间：TimeValue("0:0:10")函数返回一个Date类型数据，相当于10秒；SaveReminder是标准模块中在指定时间执行的过程的名称。为了演示方便，示例中设定的较短的代码执行时间间隔。 首先在工作簿打开时会触发工作簿的Open事件，其中的OnTime设置10秒后运行SaveReminder过程。 在SaveReminder过程中，判断工作簿的Saved属性的值，如果为False说明工作簿已经被修改，进而提示用户进行保存，如果用户单击“是”按钮，就保存当前工作簿。在过程的最后，设置10秒后再次执行SaveReminder过程代码。 在工作簿的BeforClose事件中，利用Onkey方法的Schedule参数清除已经设置的定时运行过程，如果省略此代码，即使工作簿已经关闭，到达指定时间时，Excel将再次打开工作簿运行SaveReminder过程代码。 ４７．４．２ OnKey 使用OnKey方法可以设置按下特定的键或组合键时运行指定的过程代码。Excel会一直监视着用户的任何键盘操作，因此理论上可设置任何一个键或组合键来运行指定的过程代码。 注意：在工作表中输入公式或在对话框中时，OnKey设置的组合键无效。 示例４７．７ 为Excel设置自定义快捷键 步骤１．在工作簿中插入标准模块，在模块中写入如下代码。 Sub OnKeyDemo() Application.OnKey"^a","CtrlA" End Sub Sub CtrlA() MsgBox "您按下了Ctrl+A组合键" End Sub 步骤２．返回Excel界面，按<Ctrl+A>组合键，将出现消息框。 OnKey方法的参数"^a"中的"^"代表<Ctrl>键，关于其他功能键的表示方法请参考ＶＢＡ帮助。 默认情况下，Excel中<Ctrl+A>组合键为选中工作表中的全部单元格。运行OnKeyDemo过程之后，按<Ctrl+A>组合键将执行CtrlA过程代码显示消息框。这也就是说，OnKey方法设置的组合键与系统默认的组合键相比有更高的优先级。 使用如下的代码可以恢复<Ctrl+A>组合键的默认设置功能。 Application.OnKey"^a" 第４８章 控件在工作表中的应 在工作表中可以使用两种控件：窗体控件和ActiveX控件，二者既有联系又有明显的区别。 ４８．１ 在工作表中插入控件 控件是在Excel与用户交互时，用于输入数据或操作数据的对象。在工作表中使用控件将为用户提供更加友好的操作界面。控件具有丰富的属性，并且可以被不同的事件激活以执行相关代码。 示例４８．１ 在工作表中使用按钮控件 下面介绍如何在工作表中插入按钮控件。 步骤１．打开一个新的工作簿。 步骤２．单击菜单“视图”——“工具栏”——“控件工具箱”；或者单击Visual Basic工具栏上的“控件工具箱”按钮，将显示控件工具箱工具栏。 步骤３．单击“命令按钮”。 步骤４．移动鼠标至工作表的任意区域，光标变为十字形。 步骤５．按住鼠标左键，在工作表中拖动；至适当位置再释放鼠标，工作表中将添加一个名称为CommandButton1的按钮。 步骤６．如下４种方法可以为新的命令按钮控件添加事件代码。 １．双击命令按钮控件。 ２．在命令按钮上右键单击选择“查看代码”。 ３．单击控件工具箱工具栏上查看代码按钮。 ４．切换到ＶＢＥ窗口，在代码中选择CommandButton1对象和相应的事件。 步骤７．代码窗口中将自动添加了按钮控件的Click事件模块框架。 步骤８．在模块框架中写入如下事件代码。 Private Sub CommandButton1_Click() MsgBox "欢迎加入Excel Home" End Sub 步骤９．返回Excel界面，单击控件工具箱工具栏或Visual Basic工具栏的退出编辑模式按钮。 步骤１０．单击工作表中的按钮，将看到欢迎消息框。 ４８．２ 窗体控件和工具箱控件 在Excel中有两种控件，分别是窗体控件和控件工具箱控件，后者也被成为ActiveX控件。 单击菜单“视图”——“工具栏”——“窗体”，将显示窗体工具伴。窗体控件是Excel 5和Excel 95完全兼容的，可以用于普通工作表和MS Excel 5.0对话框工作表中。部分工具栏按钮处于禁用状态，这些窗体控件只能用于MS Excel 5.0对话框工作表中，在普通的工作表中无法使用。 控件工具箱控件为ActiveX控件，是用户窗体上的控件子集，这些控件只能用于Excel 97或更高版本的Excel中。对比不难看出，其中部分控件从外观上看是相同的，其功能也非常相似，如按钮，组合框和列表框等，但ActiveX控件拥有丰富的属性，支持多种事件。正是由于ActiveX控件具有的如上这些优势，使得ActiveX控件在Excel中得到比窗体控件更为广泛的应用。本章后续章节中所涉及的控件匀指ActiveX控件。 ４８．３ 控件的属性 每种控件都有多种属性，这些属性是对控件某些特征的描述。ActiveX控件的一个最重要的优势在于拥有丰富的属性，在不同的应用中需要设置不同的属性值。以命令按钮控件为例，更改其属性值的步骤如下。 步骤１．单击控件工具箱工具栏上或Visual Basic工具栏上的编辑模式按钮，进入编辑模式。 步骤２．在控件上右键单击，在弹出的快捷菜单上选择“属性”。 步骤３．在属性窗口中，设置命令按钮的属性值，Caption属性为"Excel Home"；AutoSize属性为True。命令按钮控件的尺寸自动调整以适应新设置的Caption。 如果需要，还可以再继续设置其他的属性。全部设置完成后，切换回工作表窗口，退出控件的编辑模式即可。 ４８．４ 认识常用控件 本节将介绍控件工具箱工具栏所包含的基本控件。 ４８．４．１ 最常用的控件——命令按钮（CommandButton） 命令按钮是最常用的ActiveX控件，一般用来执行指定的代码。鼠标单击命令按钮将触发其Click事件，在Click事件代码中，可以显示消息框，也可以完成操作工作表单元格等任务。 示例４８．２ 使用命令按钮控件设置单元格格式 如果需要多次执行录制的宏，利用命令按钮执行宏代码，是最方便快捷的方法。 步骤１．在工作表中设置活动单元格背景色为红色，录制宏产生相应的代码如下，该代码已经保存在工作簿的“模块１”中。 Sub Macro1() 'Macro1 Macro '宏由 Taller 录制，时间：2007-5-26 With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With End Sub 步骤２．在工作表中添加命令按钮控件。 步骤３．双击处于编辑模式的命令按钮，在ＶＢＥ的代码窗口中将自动添加Click事件的代码框架。 步骤４．使用如下两种方法，可以实现单击命令按钮运行相应的代码。 １．将录制宏产生的代码写入Click事件的代码框架。 Private Sub CommandButton1_Click() With Selection.Interior .ColeorIndex = 3 .Pattern = xlSolid End With End Sub ２．在Click事件的代码中调用录制宏Macro1。 Private Sub CommandButton1_Click() Call Macro1 End Sub 如果录制宏的代码需要被多个不同的过程引用，或者Click事件中的代码较多时，方法二使得代码更具有可读性，也便于日后的代码维护和修改。 步骤５．返回Excel界面，退出编辑模式。 步骤６．在工作表中单击选中任意单元格，单击命令按钮将设置活动单元格的背景色为红色。 ４８．４．２ 复选框（CheckBox) 复选框控件用于二元选择，控件的返回值为True或False。利用复选框控件的LinkCell属性还可以在单元格中得到控件的返回值。 示例４８．３ 使用复选框控件制作多选调查问卷 步骤１．在工作表中添加一个复选框，修改其属性。 １．Caption属性为“Excel基础应用”。 ２．LinkCell属性为C3。 步骤２．调整控件位置，使其位于A3单元格内，退出编辑模式。 步骤３．在B3单元格输入公式“＝IF（C3，“经常”，“偶尔”）”。 步骤４．使用类似方法添加另外３个复选框控件并修改其属性。 １．CheckBox2的Caption属性值为“Excel VBA程序开发”。 ２．CheckBox3的Caption属性值为“Excel 函数和公式”。 ３．CheckBox4的Caption属性值为“Excel 图表与图形”。 ４．CheckBox2的LinkCell属性值为“C4”。 ５．CheckBox3的LinkCell属性值为“C5”。 ６．CheckBox4的LinkCell属性值为“C6”。 无需使用VBA代码也可以实现二选一的效果。选中复选框控件时，相应行的第2列结果为“经常”，否则为“偶尔”，用户通过单击控件可以切换第2列的值。为了便于用户理解控件值变化对最终结果的影响，将首复选框控件的值显示在第3列中。实际应用中，可以设置该列的字体颜色为白色或隐藏第3列，这样可以使得用户界面更加简洁。 ４８．４．３ 选项按钮（OptionButton) 选项按钮控件同样用于进行二元选择，控件的返回值为True或False。与复选框控件的不同之处在于，选项按钮控件用于单项选择，在多个选项按钮成为一组时，选中其中某个选项按钮后，同组的其余选项按钮的值自动设置为False。而复选框控件用于多项选择，单个复选框控件是否被选中，并不影响其他的复选框控件。 示例４８．４ 使用选项按钮控件制作单项调查问卷 步骤１．在工作表中添加一个选项按钮，修改其Caption属性为“Excel基础应用”。 步骤２．双击控件，在代码窗口中写入如下的Click事件代码。 Private Sub OptionButton1_Click() Cells(12,"D").Value = OptionButtonl.Caption End Sub 步骤３．使用类似方法添加另外３个选项按钮控件并修改其Caption属性。 1. OptionButton2的Caption属性值为“Excel VBA程序开发”。 ２．CheckBox3的Caption属性值为“Excel 函数和公式”。 ３．CheckBox4的Caption属性值为“Excel 图表与图形”。 步骤４．在代码窗口中添加如下Click事件代码。 将录制宏产生的代码写入Click事件的代码框架中。 Private Sub CommandButton1_Click() With Selection.Interior .ColorIndes = 3 .Pattern = xlSolik End Sub 在Click事件代码中调用录制的宏Macro1. Private Sub CommandButton1_Click() Call Macro1 End Sub 如果录制宏的代码需要被多个不同的过程引用，或者Click事件中的代码较多时，方法二使得代码更具有可读性，也便于日后的代码维护和修改。 步骤５．返回Excel界面，退出编辑模式。 步骤６．在工作表中单击选中任意单元格，单击命令按钮将设置活动单元格的背景色为红色。 ４８．４．２ 复选框（CheckBox) 复选框控件用于二元选择，控件的返回值为True或False。利用复选框控件的LinkCell属性还可以在单元格中得到控件的返回值。 示例４８．３ 使用复选框控件制作多选调查问卷 步骤１．在工作表中添加一个复选框，修改其属性。 Caption属性为“Excel 基础应用”。 LinkCell属为Ｃ３。 步骤２．调整控件位置，使其位于Ａ３单元格内，退出编辑模式。 步骤３．在Ｂ３单元格输入公式“＝ＩＦ（Ｃ３，“经常”，“偶尔”）”。 步骤４．使用类似方法添加另外３个复选框控件并修改其属性。 １．CheckBox2的 Caption属性值为“ Excel VBA程序开发”。 ２．CheckBox3的 Caption属性值为“ Excel 函数和公式”。 ３．CheckBox4的 Caption属性值为 “Excel 图表与图形”。 ４．CheckBox２的 Caption属性值为“Ｃ4”。 ５．CheckBox3的 Caption属性值为“C5”。 ６．CheckBox4的 Caption属性值为“Ｃ6”。 无需使用ＶＢＡ代码也可以实现二选一的效果。选中复选框控件时，相应行的第２列结果为“经常”，融为“偶尔”，用户通过单击控件可以切换第２列的值。为了便于用户理解控件值变化对最终结果的影响，将复选框控件的值显示在第３列中。实际应用中，可以设置该列的字体颜色为白色或隐藏第３列，这样可以使得用户界面更加简洁。 ４８．４．３ 选项按钮（OptionButton) 选项按钮控件同样用于进行二元选择，控件的返回值为True或 False。与复选框控件的不同之处在于，选项按钮控件用于单项选择，在多个选项按钮成为一组时，选中其中某个选项按钮后，同组的其余选项按钮的值自动设置为 False。而复选框控件用于多项选择，单个复选框控件是否被选中，并不影响其他的复选框控件。 示例４８．４ 使用选项按钮控件制作单项调查问卷 步骤１．在工作表中添加一个选项按钮，修改其Capion属性为“ Excel 基础应用”。 步骤２．双击控件，在代码窗口中写入如下Click事件代码。 Private Sub OptionButton1_Click() Cells(12,"D"),Valeu = OptionButton1.Caption End Sub 步骤３．使用类似方法添加另外３个选项按钮控件并修改其Caption属性。 １．OptionButton2的 Caption属性值为 “Excel VBA程序开发”。 ２．OptionButton3的 Caption属性值为“ Excel 函数和公式”。 ３．OptionButton4的 Caption属性值为 “Excel 图表与图形”。 步骤４．在代码窗口中添加如下Click事件代码。 Private Sub OptionButton2_Click() Cells(12,"D").Value = OptionButton2.Caption End Sub Private Sub OptionButton3_Click() Cells(12,"D").Value = OptionButton3.Caption End Sub Private Sub OptionButton4_Click() Cells(12,"D").Value = OptionButton4.Caption End Sub 步骤５．退出编辑模式，在工作表中单击任意一个OptionButton控件，在D12单元格中将显示选择的结果。 实际应用中，往往需要在多个类别的项目中实现多选一功能。以示例４８．４为例，如果除了上述４个选项外，还有另外一组选项，最终希望用户在每组中选择一个项目，这就需要利用属性对选项按钮控件进行分组。分组后，改变某个选项按钮的值，不影响其他组中的选项按钮。 步骤６．进入编辑模式，依次设置OptionButton1,OptionButton2,OptionButton3和 OptionButton4控件的GroupaName属性值为“Excel” 步骤７．添加４个选项按钮，设置其GroupaName属性值为“NonExcel”，并修改其Caption属性。 OptionButton5的 Caption属性值为“会员广场”。 OptionButton6的 Caption属性值为“电脑网络”。 OptionButton7的 Caption属性值为“休闲吧”。 OptionButton8的 Caption属性值为“MS Office Word”。 步骤８．在代码窗口中写入如下Click事件代码。 Private Sub OptionButton5_Click() Cells(13,"D").Value = OptionButton5.Caption End Sub Private Sub OptionButton6_Click() Cells(13,"D").Value = OptionButton6.Caption End Sub Private Sub OptionButton7_Click() Cells(13,"D").Value = OptionButton7.Caption End Sub Private Sub OptionButton8_Click() Cells(13,"D").Value = OptionButton8.Caption End Sub 步骤９．退出设计模式。用户可以分别选中左右两组控件中的某个选项按钮，选择的结果显示在Ｄ12和D13单元格中。 ４８．４．４ 列表框（ListBox）和组合框（ ComboBox） 组合框控件与列表框控件非常相似，两种控件都可以在一组列表中进行选择；二者的区别在于列表框控件可以选中一个或多个条目，而组合框控件只能选中单个条目。组合框的优点在于控件占用面积小，除了可以在预置选项中进行选择外还可以输入其他数据。 下面介绍组合框控件的几个常用属性。 １．ListFillRange属性可以指定列表来自于工作表中的某个区域。 ２．ListRows属性指定下拉过犹不及显示的行数。 ３．Style属性指定是否允许输入列表中不存在的值。 示例４８．５ 使用组合框控件制作调查问卷 利用组合框控件可以实现与示例４８．４相同的效果。 步骤１．在工作表中插入组合框控件，并修改其属性如下。 １．设置ListFillRange属性值为G1：G4。 ２．设置ListRows属性值为D14。 ３．设置Style属性值为“2-fmStyleDropDownList”，即只允许用户在列表中选择项目。 步骤２．在工作表中插入第二个组合框控件，并修改其属性如下。 １．设置ListFillRange属性值为H1：H4。 ２．设置ListRows属性值为H15。 ３．设置Style属性值为“2-fmStyleDropDownList”，即只允许用户在列表中选择项目。 步骤３．退出设计模式，单击组合框控件，将出现下拉列表，选中某个项目后将更新D15单元格。 ４８．４．５ 文本框（TextBox） 文本框控件主要用于接受用户的输入。一般情况下，用户会在工作表的单元格中直接输入数据，但当单元条处于编辑状态时，E xcel应用程序则无法运行任何代码，借助文本框控件，就可以实现对用户键盘输入的控制。 示例４８．６ 快速录入３数字 在单元格中录入数据时，需要按<Enter>键才能完成输入。如果需要录入大量的数据时，每个单元格都按<Enter>键将会影响录入的效率。假设录入的数据为3位数字，依次放置于第一列单元格，借助文本框控件可以实现快速录入，并防止意外输入非数字字符。 步骤１．在工作表添加文本框控件。 步骤２．双击控件，在ＶＢＥ代码窗口中写入如下事件代码。 Private Sub TextBox1_Change() '判断文本框内字符的个数 In Len(TextBox1.Value) = 3 Then '将文本框的内容写入A列第一个非空单元格 [a65536].End{xlUp}.Offset(1,0) = TextBox1.Value '清空文本框 TextBox1.Text = "" End If End Sub Private Sub TextBox1_KeyPress(ByBal KeyAscii As MSForms.ReturnInteger) '判断键盘输入的字符是否为数字 If KeyAscii <Asc("c") Or KeyAscii > Asc("9") Then '清空键盘输入 KeyAscii = 0 End If End Sub 步骤３．返回Excel界面，退出编辑模式。 步骤４．单元文本框控件，在文本框中输入数字，３个数字输入完成后，自动填充到Ａ列的第一个非空单元格，并清空文本框，此时可以开始录入下一数据。 ４８．４．６ 切换按钮（ToggleButton） 切换按钮控件也被称作开头按钮，单击该擦伤可以在“开”和“关”两种状态之间进行切换，其外观也随之变化。切换按钮的返回值为True（按下状态）或 False（弹起状态）。 ４８．４．７ 数值调节钮（SpinButton) 数值调节钮控件可以实现用户单击控件中的箭头来选择一个值。控件具有两个箭头，一个箭头用于增加值，一个用于减少值；增加或减少以SamllChange属性值为步长。 ４８．４．８ 流动条（ScrollBar) 滚动条控件与数值调节钮控件非常类似，区别在于滚动条控件可按照两种不同的步长（SmallChange属性值和 LargeChange属性值）改变控件的值，而且用户可以拖放滚动条按钮，大幅度改变控件的值。 单击控件两端按钮以SmallChange属性值为步长修改控件的值 单击控件以LargeChange属性值为步长修改控件的值 ４８．４．９ 标签控件（Label） 标签控件主要用于显示文本信息，除非需要使用标签控件的事件代码，否则在工作表中完全可以使用文本框自选图形替代标签控件。 ４８．４．１０ 图像控件（Image） 图像控件用于显示一张图片。使用图像控件可能会使工作簿文件的大小猛增。利用图像控件的Picture属性可以选择需要加载的图片文件。 第４９章 窗体在ＥＸＣＥＬ中的应用 在ＶＢＡ代码中使用InputBox和 MsgBox，可以满足大多数交互应用的需要，但这些对话框并非适合所有的应用场景，其明显的弱点在于缺乏灵活性。例如，除了窗口的显示位置和几种预先定义的按钮组合外，无法按照实际需要添加更多的控件，利用用户窗体则可以实现各种用户定制的对话框。本章将介绍如何插入窗体、修改窗体属性、窗体事件的应用和在窗体中使用控件。 ４９．１ 创建自己的第一个窗体 在示例４４．２中，利用了InpuBox框输入员工号，如果除了员工号还有很多信息需要录入，这就需要多次调用InpuBox逐项输入。使用用户窗体就可以实现在一个窗体中输入某个员工的全部信息。 ４９．１．１ 插入用户窗体 步骤１．打开一个新的工作簿文件，按<Alt+F11>组合键切换到VBE窗口。 步骤２．单击ＶＢＥ菜单“插入”——“用户窗体”，系统将添加名称为Userform1 用户窗体。 步骤３．按<F4>键显示属性窗口，修改用户窗体的Capiton属性为“员工信息管理系统”。 步骤４．单击ＶＢＥ菜单“插入”——“模块”，在模块１中写入如下代码。 Sub ShowFrm() UserForm1.Show End Sub Show方法用于显示 UserForm对象。 步骤５．返回Excel界面，运行宏 ShowFrm，将显示用户窗体。 步骤６．单击用户窗体右上角的红色“Ｘ”按钮，可以关闭窗体。 ４９．１．２ 关闭窗体 使用如下代码将关闭UserForm1窗体，代码执行后UserForm对象将从内存中删除，此后无法访问窗体和其中的控件。 Unload UserForm1 ４９．２ 窗体中使用控件 上面设置中显示的用户窗体只是一个空白窗体，其中没有任何控件，因此也就无法进行用户交互。本节将讲解如何在用户窗体中使用控件。 ４９．２．１ 在窗体中插入控件 示例４９．２ 在用户窗体中插入控件 步骤１．打开示例49.1的工作簿，另存为新工作簿，按<Alt+F11>组合键切换到VBE窗口。 步骤２．在工程窗口中双击UserForm1，对象窗口中将显示UserForm对象。 步骤３．单击ＶＢＥ菜单“视图”——“工具箱”，显示工具箱窗口。 步骤４．单击标签控件的按钮Ａ 步骤５．拽住鼠标左键，在UserForm1控件上拖动至适当位置，再释放鼠标，将添加一个标签控件。 步骤６．按<F4>键，在属性窗口中调整标签控件的属性值。 AutoSize属性值为“True”。 Caption属性值为“员工号”。 步骤７．使用类似的方法添加另外两个标签控件，并设置控件的属性值。 AutoSize属性值为“True”。 Label2控件的Captio属性值为“性别”。 Label3控件的Caption属性值为“部门”。 步骤８．在UserForm1控件上右键单击，选择“全选”，选中全部控件。 步骤９．在选中的控件上右键单击，选择“对齐”——“左对齐”。 步骤１０．在用户窗体中插入TextBox控件，并调整其属性。 MaxLength属性值为4，即控件中最多可输入4个字符。 步骤１１．在用户窗体中插入两个ComboBox控件，并调整其属性。 Style属性值为 "2-fmStyleDropDownList"，即用户只能在下拉列表中选择条目，不能输入新的值。 步骤１２．在用户窗体中插入两个CommandButton控件，并调整其属性。 CommandButton1控件Caption属性设置为“添加数据”。 CommandButton2控件Caption属性设置为“退出”。 步骤１３．调整控件的大小及其位置。 步骤１４．返回Excel界面，运行宏ShowFrm,将显示用户窗体。 步骤１５．单击用户窗体右上角的红色“Ｘ”按钮，可以关闭窗体。 ４９．２．２ 指定控件代码 上面设置的用户窗体中，如果单击“性别”旁边的下拉箭头，会发现下拉列表是空白的，单击“添加数据”按钮也没有任何反应，其原因在于尚未添加各控件相关的事件代码。下面来为控件添加事件代码。 示例４９－３ 为窗体控件添加事件代码 步骤１．打开示例４９－２的工作簿，另存为新工作簿，按<Alr+F11>组合键切换到VBE窗口。 步骤２．在工程窗口中UserForm1上右键单击，选择“查看代码”。 步骤３．在代码窗口上部的对象下拉列表中选择"TextBox1"，在事件下拉列表中选择"KeyPress"，系统将自动添加KeyPress事件模块框架，在其中写入如下代码，用于防止用户意外输入非数字字符。 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) '判断键盘输入的字符是否为数字 If keyAscii <Asc("0") Or KeyAscii > Asc("9") Then '清空键盘输入 KeyAscii = 0 End If End Sub 步骤４．在代码窗口上部的对象下拉列表中选择“Userform”，在事件下拉列表中选择"Initialize"，系统将自动添加Initialize事件模块框架，在其中写入如下代码，用于添加ComboBox控件的下拉列表。 Private Sub UserForm_Initialize() With Me.ComboBox1 .AddItem "男" .AddItem "女" End With With Me.ComboBox2 .AddItem "计划部" .AddItem "建设部" .AddItem "网络部" .AddItem "财务部" End With End Sub 步骤５．在代码窗口上部的对象下拉列表中选择“CommandButton1”，在事件下拉列表中选择"Click"，系统将自动添加Click事件模块框架，在其中写入如下代码。 Private Sub CommandButton1_Click() Dim iRow As Integer '定位工作表中A列第一个空白单元格 iRow = [A65536].End(xlUp).Row + 1 '将数据写入工作表中 '员工号 Cells(iRow, 1) = Me.TextBox1.Value '性别 Cells(iRow, 2) = Me.ComboBox1.Value '部门 Cells(iRow, 3) = Me.ComboBox2.Value '清空用户窗体中输入的内容 Me.TextBox1.Value = "" Me.ComboBox1.Value = "" Me.ComboBox2.Value = "" End Sub 步骤６．在代码窗口上部的对象下拉列表中选择"CommandButton2"，在事件下拉列表中选择"Click"，系统将自动添加Click事件模块框架，在其中写入如下代码。 Private Sub CommandButton2_Click() '卸载窗体 Unload UserForm1 End Sub 步骤７．返回Excel界面，运行宏ShowFrm。 步骤８．在用户窗体的文本框中输入员工“7009”，如果按键为非数字键，将被忽略，并且文本框中最多只能输入4个数字；单击“性别”组合框，选择“男”；单击“部门”组合框，选择“网络部”。 步骤９．单击“添加数据”按钮，新输入数据添加到工作表中，同时用户窗体将清空，用户可以开始输入下一组数据。 步骤１０．单击“退出”按钮，关闭用户窗体。 ４９．３窗体的常用事件 用户窗体作为一个控件的容器，本身也是一个对象，因此用户窗体同样支持多种事件。本节将介绍窗体的几个常用事件。 ４９．３．１ Initialize事件 使用UserForm对象的Show方法显示用户窗体时将触发Initialize事件，也就是说Initialize事件代码运行之后才会显示用户窗体，因此对用户窗体或窗体中的初始化工作可以在Initialize事件代码中完成。如示例49.3中用Initialize事件代码添加ComboBox控件的下拉列表。 ４９．３．２ QueryClose事件和Terminate事件 QueryClose事件和Terminate事件都是和关闭窗体相关的事件。关闭窗体时首先激活QueryClose事件，系统将窗体从屏幕上删除后，在内存中制裁窗体之前将激活Terminate事件，也就是说Terminate事件代码中仍然可以访问用户窗体及窗体上的控件。 示例４９－４ 用户窗体QueryClose事件和Terminate事件 步骤１．打开—个新的工作簿文件，按<Alt+F11>组合键切换到VBE窗口。 步骤２．单击ＶＢＥ菜单“插入”——“用户窗体”，系统将添加名称Userrorm1的用户窗体。 步骤３．在窗体中添加一个TextBox控件。 步骤４．双击窗体，在代码窗口中写入如下事件代码。 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) MsgBox Me.Visible & vbTab & TextBox1.Value, , "QueryClose" End Sub Private Sub UserForm_Terminate() MsgBox Me.Visible & vbTab & TextBox1.Value, , "Terminate" End Sub 步骤５．单击ＶＢＥ菜单“插入”——“模块”，在模块１中写入如下代码。 Sub CloseEventDemo() UserForm1.Show End Sub 步骤６．返回Excel界面，运行宏CloseEventDemo，在用TextBox控件中输入"ExcelHome"。 步骤７．单击用户窗体右上角的红色“Ｘ”按钮，关闭用户窗体，将出现消息框，由消息框的标题可以得知QueryClose事件被激活。 步骤８．单击“确定”，将出现消息框，由消息框的标题可以得知Terminate事件被激活，此时屏幕中已经不再显示用户窗体，因此用户窗体的Visible属性值为False，但是代码可以读取用户窗体中TextBox控件的值。 步骤９．单击“确定”，将关闭消息框。
|
|
|
来自： 昵称380475 > 《Excel 大全》
