VBA编程及应用基础VBA编程及应用基础ppt课件(完整版).pptx

《VBA编程及应用基础VBA编程及应用基础ppt课件(完整版).pptx》由会员分享，可在线阅读，更多相关《VBA编程及应用基础VBA编程及应用基础ppt课件(完整版).pptx（176页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VBA概述本讲内容VBA的开发环境VBE宏的基本概念录制、编辑、运行宏保存带宏的工作簿什么是VBA？VBA（Visual Basic for Applications）是Microsoft Office 系列组件的内置编程语言，即应用程序中的VB。它“寄生”于Office应用程序，是 Office 套装软件的一个重要组件使用 VBA 可以结合 Office 组件开发应用程序，如在 Excel 中自定义函数、开发应用程序等例：认识VBAEXCEL中使用VBA功能VBA使重复的任务自动化自定义Excel功能区和界面自定义Excel，使其成为开发平台创建报表对数据进行复杂的操作和分析VBA开发环境V

2、BEOffice提供了VBA的开发环境，即 Visual Basic 编辑器（VBE）窗口在使用VBE前，必须先运行Office软件，如 Excel 2010在Excel环境中打开VBE窗口的方法：1.单 击“开开 发发 工工 具具”选 项 卡 中“代 码”组 中 的“Visual Basic”按钮2.按 Alt+F11 组合键进入VBE“开发工具”选项卡默认情况下，“开发工具”选项卡没有显示在功能区，可通过“自定义功能区”设置将其显示工程资源管理器窗口代码窗口属性窗口立即窗口本地窗口VBA工程工作表对象工作簿对象窗体模块工程：模块、窗体等对象的集合，在VBA中一个工作簿就是一个工程对象（P.

3、11）：代表应用程序中的元素，比如，工作表、单元格、图表、窗体，或是一份报告属性（P.13）：属性定义了对象特性，像大小、颜色、对象状态等方法（P.13）：对象可以执行的动作模块：声明及过程的集合过程：可单独执行的程序单元事件：是指发生在一个对象上并能被此对象辨别的操作，如打开工作簿了解几个概念添加模块菜单栏“插入”|“模块”命令添加过程在模块中添加过程，最常见的结构如下：可以通过“插入”|“过程”对话框Sub 过程名()程序代码End Sub第一个VBA程序添加一个模块，再添加一个子过程，如下：运行该过程查看结果Sub Test1()Range(A1).Value=Hello,World!E

4、nd Sub如何引用单元格中的值两种方法：1.Cells(行号,列号).Value如：Cells(5,3).Value，表示引用的是C5单元格2.Range(单元格地址).Value如：Range(“C5”).Value，表示引用的也是C5单元格录制宏很好用哦录制宏很好用哦录制宏很好用哦录制宏很好用哦什么是宏？（P.1）具体学习VBA之前，先来了解一下“宏”宏是通过一次单击就可以应用的命令集，一般用于自动执行一系列重复性操作，以提高工作效率本质上宏是保存在 Visual Basic 模块中的一组代码例：将认识宏工作簿Sheet1工作表中的A1单元格设置成绿色底纹的格式创建宏（P.1）使用宏录入

5、器录制宏，步骤如下：在“开发工具”选项卡上的“代码”组中，单击“录制宏”在弹出的“录制新宏”对话框中进行设置后再单击“确定”开始录制。在工作表中执行某些操作。在“开发工具”选项卡上的“代码”组中，单击“停止录制”。实践：录制一个修改单元格底纹的宏保存带宏的工作簿保存带宏的工作簿时会弹出如下信息框需要将工作簿保存为“启用宏的工作簿启用宏的工作簿(.xlsm)”单击“否”按钮，弹出“另存为”对话框在“保存类型”下拉列表框中选择“Excel启用宏的工作簿(.xlsm)”进行保存执行宏方法1（P.2）使用“宏”对话框选择“开发工具”选项卡，在“代码”组中单击“宏”按钮，弹出“宏”对话框单击“执行”按钮

6、执行宏方法2为宏指定快捷键 录制宏时可以指定 在“宏”对话框中选中要设置的宏，单击“选项”按钮执行宏方法3将宏命令添加至功能区或快速工具栏运行宏方法4将宏指定到工作表上的按钮（或其它图形对象）插入表单按钮控件为表单按钮控件指定宏实践自己录制一个设置单元格边框的宏，并用以上四种方法运行录制的宏思考：宏的本质是什么？查看宏代码选择“开发工具”选项卡，在“代码”组中单击“宏”按钮，弹出“宏”对话框单击“编辑”按钮查看宏代码VBA过程代码“设置底纹”是宏的名称查看宏代码Sub 设置底纹()设置底纹 宏 With Selection.Interior .Pattern=xlSolid .PatternC

7、olorIndex=xlAutomatic .Color=5287936 .TintAndShade=0 .PatternTintAndShade=0 End WithEnd Sub说明一个宏就是一个 sub 过程单引号后为注释内容，不是代码部分With 语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称Selection.Interior表示“选定区域的内部”对象Pattern等为interior对象的属性使用帮助：选择某个关键字，按F1可弹出帮助系统！实践自动排序（P.17 操作题（3）自动累计自动完成高级筛选（P.17 操作题（4）高级筛选VBA编程基础编程基础本讲内容变量数据

8、类型运算符与表达式常用内部函数变量一个问题：如何交换两个杯子中的可乐？变量如何交换A1和B1两个单元格的值？Sub Test()x=Range(A1).Value Range(A1).Value=Range(B1).Value Range(B1).Value=xEnd Sub变量变量是指在程序运行过程中其值可以改变的量说明（P.22）：1.变量用于存储程序运行中的临时数据2.变量有一定类型，占用一定空间3.变量命名规则：字母打头，最长255个字符。等如：Sum、x_1等数据类型数据是指可以被计算机处理的信息，是程序的必要组成部分，也是程序处理的对象数据分类的目的是为了快速处理数据和有效利用存储

9、空间不同的数据类型占用的存储空间不同、或者存储格式不一样，VBA中常用的数据类型：数值型、字符型、逻辑型、对象型数据类型数值型字节型 Byte：1字节整型 Integer：2字节长整型 Long：4字节单精度浮点数 Single：4字节双精度浮点数 Double：8字节货币型 Currency：8字节数据类型字符型定长 String*N (N1,65535)不定长 String数据类型逻辑型Boolean：2字节对象型任何对象 Object工作簿 Workbook工作表 Worksheet区域 Range变量声明变量声明的目的是说明变量的作用域和变量的类型，以便为变量分配内存空间和及时回收内存

10、空间建议变量先声明再使用，在通用声明中写Option Explicit语句变量声明变量类型的显式说明：Dim语句，语法：Dim 变量名 As 数据类型,变量名As 数据类型 举例：Dim a As SingleDim intCount As Integer,strPhone As String*8如何将 i 和 j 声明为整型变量？Dim i,j As IntegerDim i As Integer,j As Integer 实践编写一个宏，以A1单元格中的数值作为半径，求出圆的周长与面积，并将它们分别写入B1单元格和B2单元格常量除了变量，数据还可以分为常量。常量是指在程序执行之前就已经确定

11、了值，并且在程序执行过程中，其值不会发生改变的量VBA中有三种形式的常量：1.直接常量2.符号常量3.系统常量常量直接常量也叫一般常量，用户直接书写的值，如：18、1.25、”China”、True、False符号常量用符号表示的常量，定义格式如下：Const 常量名 As 数据类型=常量表达式如：Const PI=3.1415926使用符号常量可以减少程序出错的可能性，加快程序的修改和提高程序的可读性常量系统常量VBA提供的系统内部已经定义好的常量，可以直接使用，分为VBA系统常量和Excel系统常量VBA系统常量以小写字母“vb”开头，例如色彩常量“vbBlack”表示黑色。Excel系统

12、常量通常以小写字母“xl”开头系统常数采用大小写混合的格式，用户可以通过在VBE中单击“视图”菜单下的“对象浏览器”命令，在打开的“对象浏览器”中查看系统常量的具体值运算符与表达式运算符是对特定数据执行运算任务的操作符将常量、变量和函数等用运算符连接起来的运算式称为表达式常见的4种基本运算符：1.算术运算符算术运算符2.连接运算符连接运算符3.比较运算符比较运算符4.逻辑运算符逻辑运算符算术运算符运算符运算符+-*/Mod名称加法减法/取负乘法浮点除法整数除法取模指数说明：/：浮点除法，如10/3的结果为3.3333333 ：整数除法，若操作数不是整数，则通过舍去小数 部分再进行整除，如103

13、的结果为3，11.64的结 果为3ModMod：取模运算，返回两个数（若是浮点数则四舍五入 为整数）相除的余数，如12 Mod 5的结果为2，19 Mod 6.7 的结果为5：指数运算，进行乘幂运算，如32的结果为9算术表达式算术表达式与数学表达式的区别不能漏写运算符，如3xy应写为3*x*y算术表达式中使用的括号都是圆括号，如(a-b)2+(a+b)2)*c算术运算符的优先级：()、*/、MOD、+-练习：表达式 2 3/3 Mod 9 4的值为？答案：答案：1连接运算符连接运算符用来连接两个以上的字符串，使其成为一个单一的字符串。VBA中有两个：&运算符。任何非字符串变量或表达式在进行&连

14、接前都会被转换为字符串，如+运算符。操作数都是字符串时才可以进行连接运算，如Visual&Basic 的结果为 Visual BasicExcel&2010 的结果为 Excel 20104&5的结果为字符串 45 Visual +Basic 的结果为Visual BasicExcel +2010 运行结果出错，提示“类型不匹配”4+5的结果为整数9关系运算符关系运算符用于比较数据的大小关系，主要有：=、=、dog？101 99？逻辑运算符常用的逻辑运算符有：And 逻辑与Or 逻辑或Not 逻辑非优先级：Not AndOr实践编写一个宏，针对A1单元格中输入的某个个年份数据进行判断，并以“闰

15、年”或“平年”为结论写入到B1单元格中闰年的判断条件：能被4整除但不能被100整除，或者能被400整除With 语句编写一个宏，设置A1单元格的文字属性为宋体、14磅、粗体、字体颜色为红色？对象重复书写With语句作用：简化代码，不需要输入重复的内容格式：实践：改写过程“字体格式”？With 对象 .属性1=属性值1 .属性2=属性值2 .属性n=属性值n End With常用的VBA函数Int(x)函数返回不大于x的整数如：Int(5.8)的结果为5，Int(-5.8)的结果为-6Rnd()函数返回一个0,1)之间的随机浮点数若要返回一个m,n之间的随机整数，则可以使用公式：Int(Rnd(

16、)*(n-m+1)+m在调用 Rnd 函数之前，应先使用无参数的 Randomize 语句语句初始化随机数生成器实践编写一个宏，先在A1单元格中生成一个10,99之间的随机整数，然后识别该整数是奇数还是偶数，并将识别结果写入到B1单元格常用的VBA函数Val(s)函数返回s中第一个非数字字符之前的数字（忽略空格）例如：Val(“1615 198th Street N.E.”)的返回值为1615198可以把 Val(s)当作是一个将数字文本转换成数字数值的函数常用的VBA函数InputBox 函数作用：产生输入对话框，向计算机提供信息，输入数据格式：变量=InputBox(提示信息,对话框标题,

17、默认值)返回值：输入框中输入的内容，字符型常用的VBA函数MsgBox 函数作用：产生消息框，向用户输出提示信息格式：变量=MsgBox(提示信息,类型,对话框标题)对话框类型一般由“图表样式”+“按钮样式”+“默认按钮”组成返回值：整型，对应用户单击的按钮实践编写一个宏，使用输入框从键盘输入三个整数，然后找出三个数中的最大数，并用消息框输出VBA 程序控制结构程序控制结构判断结构本讲内容If 语句Select Case 语句程序控制结构程序一般是按照书写的顺序执行的，但有时候需要按照不同的条件执行不同的操作，这就是流程控制VBA中程序的控制结构分为：顺序结构选择结构循环结构顺序结构AB选择结

18、构PAB循环结构PA判断语句判断语句用来根据条件表达式的结果控制程序的流程If 语句Select Case 语句If 语句行结构If Then Else 块结构If Then Else End IfIf 语句流程图：语句1语句2表达式TrueFalseIf 语句实例：设计一个找出两个数中更大数的程序，界面设计如下图所示。在 B1 和 B2 单元格分别输入任意一个数，单击“更大数”圆角矩形时，在 B3 单元格输出两数中更大的数If 语句实践1：设计一个找出三个数中最大数的程序，界面设计如下图所示。在 B1、B2 和 B3 单元格分别输入任意一个数，单击“最大数”圆角矩形时，在 B4 单元格输出三

19、个数中更大的数If 语句实践2：编写一个过程，用输入框 InputBox 函数输一个学生的成绩，然后判断此学生的成绩是否合格，并将评判结果以“成绩合格”或“成绩不合格”用消息框显示If 语句实例：设计一个“健康秤”程序，界面设计如下图所示。单击“健康状况”按钮，根据公式：标准体重=身高-105 判断某人的健康状况。体重高于标准体重*1.1为偏胖，在 B3 单元格输出“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，在 B3 单元格输出“偏瘦，增加营养”；其它则在 B3 单元格输出“正常，继续保持”If ThenElseIf ThenElseEnd IfEnd If嵌套的If语句If 语句实践

20、3：编写一个过程，用InputBox函数输入某门课程的百分制成绩x，然后将其按下表的评定条件转换成等级制成绩y，并将等级制成绩用MsgBox函数输出优良中及格不及格90 x10080 x9070 x8060 x70 x60If 语句If ThenElseIf Then ElseIf Then Else End IfIf 语句ElseIf 语句的流程图：语句2 假 真语句1表达式2表达式3语句3语句4 真假 假 真表达式1If 语句If 语句实践4：根据杭州的气候特点，通常认定3月5月为春季，6月8月为夏季，9月11月为秋季，12月次年2月为冬季。编写一个程序，在B1单元格输入当前的月份，单击“

21、判定”按钮时，在B2单元格以“*月是*季”的形式输出结果Select Case语句Select Case Case Case Case ElseEnd Select:算术表达式或字符表达式，测试对象:下列格式中的一个或多个(,)精确表示：,，如：1,3,5,7,9范围表示：To，如：A To Z关系表示：Is ，如：Is =60功能：根据测试表达式的值，从多个语句块中选择符合条件的一个语句块执行！Select Case 语句Select Case 语句实践：使用 Select Case 语句重新实现“实践3”程序？Select Case 语句实践：某商场举行周年庆购物促销活动，活动规则如下：金

22、额500元以下不享受优惠金额500元及以上且小于2000元优惠10%金额2000元及以上且小于4000元优惠12%金额4000元及以上且小于6000元优惠14%金额6000元及以上优惠15%编写一个过程，输入购物总价，计算应付款和优惠款额一个问题在员工信息表中，根据身份证号填充各员工的性别？使用过程（P.75）本讲内容过程的概念Sub子过程Function函数过程过程的概念（P.75）过程是一段完成特定功能的语句集合，以一个名字来标识，并用该名字来调用根据是否有返回值，可以将过程分成两类：SubSub子过程子过程FunctionFunction函数函数过程过程Sub子过程（P.76）Sub子过

23、程用于运行指定的操作，但不返回运行结果，其结构如下：Sub子过程过程的组成部分及其含义Public可选的。表示所有模块的所有其它过程都可访问这个Sub过程。Private可选的。表示只有在包含其声明的模块中的其它过程可以访问该Sub过程。Static可选的。表示在调用之后保留Sub过程中各局部变量的值。name必需的必需的。Sub过程的名字，须遵循标准的变量命名约定。arglist可选的。代表在调用时要传递给Sub过程的参数列表。多个参数则用逗号逗号隔开。Sub子过程特别说明：如果没有使用如果没有使用PublicPublic、PrivatePrivate显式指定，则缺显式指定，则缺省表示省表示

24、SubSub过程是公用的（过程是公用的（PublicPublic）arglistarglist中的具体参数的格式通常为：中的具体参数的格式通常为：varnamevarname()As type()As type不能在别的过程中定义不能在别的过程中定义SubSub过程过程Exit SubExit Sub语句使执行立即从语句使执行立即从SubSub过程中退出，过程中退出，它可以出现在过程中的任何位置它可以出现在过程中的任何位置Sub子过程添加Sub子过程Sub子过程实例1：编写一个名称为Example的Sub过程，该过程用于在当前活动工作表A1:A10区域的各单元格内填上“VBA”文本，且字号大小

25、依次从10等差渐变到28Sub子过程练一练：编写一个名称为Practice的Sub过程，该过程用于在当前活动工作表A1:J1区域的各单元格内填上“SUB”文本，且随机设置各单元格为不同的背景填充色Sub子过程带参数的Sub子过程：Sub子过程调用Sub子过程过程名过程名 参数列表参数列表如：如：HouseCalc 99800,43100HouseCalc 99800,43100Call Call 过程名过程名(参数列表参数列表)如：如：Call HouseCalc(380950,49500)Call HouseCalc(380950,49500)Sub子过程Sub子过程实例2：编写一个名为Ex

26、ample的Sub过程，该过程用于输入一个文本，然后调用编写的另外一个名为MySub的子过程，MySub子过程用于在当前活动工作表A1:A10区域的各单元格内填上Example子过程输入的文本，并设置字号大小依次从10等差渐变到28Sub子过程练一练：编写一个名称为Practice的Sub过程，该过程用于随机生成一个3,9之间的整数x，然后调用编写的另外一个名为MySub的子过程，MySub子过程用于在当前活动工作表A1单元格起输出x行如图所示的星号三角形Function函数过程（P.82）Function函数过程用于完成指定的功能，并通过函数名返回运行结果，它的结构为：Function函数过

27、程特别说明：FunctionFunction函数过程的各组成部分含义同函数过程的各组成部分含义同SubSub子过程子过程函数通常要返回一个值，这个返回值的数函数通常要返回一个值，这个返回值的数据类型通过在定义时用据类型通过在定义时用As TypeAs Type来指定来指定运行结果是通过函数名返回的，因此，过运行结果是通过函数名返回的，因此，过程中通常有程中通常有name=expressionname=expression这样的语句这样的语句Function函数过程添加Function函数过程Function函数过程调用Function函数过程自定义的Function函数过程使用像内置函数一样的

28、调用方法，分两种情况：需得到函数的返回值不在意函数的返回值Function函数过程Function函数过程的使用在VBA程序代码中调用在Excel工作表的公式中调用Function函数过程在VBA程序代码中调用（P.84)实例3：自定义一个名为 MySum 的函数过程，其用于计算 1 到 n 各自然数的和，在当前活动工作表放置两个按钮，其中一个按钮在单击时先调用MySum函数求出1到100各数的和，并将此和加上100显示在A1单元格，另一个按钮在单击时先调用MySum函数求出1到10各数的和，并将此乘上100显示在B1单元格Function函数过程在VBA程序代码中调用练一练：自定义一个名为

29、MySum 的函数过程，其用于计算m到n之间各整数的和，在当前活动工作表放置两个按钮，其中一个按钮在单击时先输入两个正整数x和y，然后调用 MySum 函数求出x到y之间各数的和并显示在 A1 单元格，另一个按钮在单击时先输入一个正整数 b，然后随机生成一个1,b 之间的整数 a，最后调用 MySum 函数求出 a到 b 之间各数的和并显示在 B1 单元格Function函数过程在Excel工作表的公式中调用（P.85）若自定义函数是用Public修饰的公用函数，则在Excel的“插入函数”对话框中能找到此函数Function函数过程在Excel工作表的公式中调用实例4：在员工信息表中，自定义

30、一个函数 Gender，该函数用于判断某身份证持有人的性别，然后在 Sheet1 的 D 列调用此函数根据身份证号填充各员工的性别？Function函数过程在Excel工作表的公式中调用练一练：新建一个工作簿，在Sheet1工作表的A列输入15个年份，分别从2000年到2014年。自定义一个函数 IsLeap，该函数用于判断某个年份是否为闰年，是则返回True，否则返回False，然后在Sheet1的B列调用此函数判断A列各年份是否为闰年Function函数过程在Excel工作表的公式中调用练一练：某企业的年终奖金按销售业绩来发放，标准奖金率见下表，但为了激励员工的忠诚，实际计算时，奖金率还要

31、加上工龄一半的百分数，试自定义一个函数Reward，然后在“员工奖金”工作簿Sheet1工作表的“奖金”列中调用此函数计算各员工的奖金月销售额月销售额奖金率奖金率月销售额月销售额奖金率奖金率=3000500005000020%20%EXCEL 的VBA对象EXCEL VBA对象模型&RANGE对象EXCEL 对象模型VBA通过对象来操作和控制 Excel 查看完整的 Excel VBA 对象模型：1.在 VBE 的工具栏单击 按钮2.在帮助窗口的工具栏单击 按钮3.在目录窗格的“Excel 2010 开发人员”下选择“Excel 对象模型参考”主题 EXCEL 对象模型在对象模型列表中，以复数

32、形式陈列的表示的是一个集以复数形式陈列的表示的是一个集合合。集合是指一组相似的对象，例如 Workbooks 是一个集合，而 Worksheets 是另一个集合例：Application.Workbooks(Book1).Worksheets(Sheet1).Range(A1)其中，Book1是集合Workbooks的一个元素，Sheet1是集合Worksheets的一个元素，A1是集合Range的一个元素EXCEL VBA的常用对象ExcelExcel应用程序应用程序 (Application)(Application)工作薄工作薄 (Workbook)(Workbook)工作表工作表 (W

33、orksheet)(Worksheet)区域区域 (Range)(Range)使用对象变量定义对象变量Dim xlsApp As Excel.ApplicationDim xlsWB As Excel.WorkbookDim xlsWS As Excel.WorksheetDim xlsRG As Excel.Range为对象变量赋值Set xlsWB=Workbooks(eg1.xlsx)Set xlsWS=Workbooks(1).Worksheets(Sheet1)Set xlsRG=Workbooks(eg1).Sheets(1).Range(A1:D5)几个特殊对象当前宏代码运行的工

34、作簿ThisWorkbookThisWorkbook活动窗口的工作簿ActiveWorkbookActiveWorkbook活动工作簿中的活动工作表ActiveSheetActiveSheet活动窗口的活动单元格ActiveCellActiveCellRANGE对象(P.118)Range 对象本身就表示一个集合，可代表某一单元格、某一行、某一列、某一选定区域可用 Range(arg)来返回代表单个单元格或单元格区域的 Range 对象，其中 arg 为区域名称。例如：Dim vRng As RangeSet vRng=ThisWorkbook.ActiveSheet.Range(A1:A5)

35、RANGE对象还可以使用 Range(Cell1,Cell2)来引用一个单元格或单元格区域，其中 Cell1 是区域左上角（右下角）单元格地址，Cell2 是区域右下角（左上角）单元格地址例如：Range(A1:C5)|Range(A1,C5)RANGE对象的常用属性Value表示单元格的内容，不仅可表示单个单元格的值，也可将整个区域作为一个数组返回或者设置例1：ActiveCell.Value=5例2：vData=ActiveSheet.Range(A5:E6).ValueActiveSheet.Range(A8:E9).Value=vDataRANGE对象的常用属性Cells表示单元格区域

36、中的所有单元格可用 Cells(row,column)表示单元格区域中的某个单元格，其中row 为行号，column 为列标例如，下面代码将当前工作表 B2:D4 区域的第2行第2列的单元格（即C3）的值设为5：ThisWorkbook.ActiveSheet.Range(B2:D4).Cells(2,2).Value=5RANGE对象的常用属性Offset表示相对于指定区域偏移若干行和列以后的区域，使用方法：Offset(row,column)，其中 row 和 column 分别为行偏移量和列偏移量例：ActiveCell.Offset(3,3).Value=5实践1在 公务员考试成绩表

37、工作簿中，假定学生均已获得相应学位，试编写一个宏，用 For EachNext 循环遍历“学历”列各学生的学历，然后在“学位”列填写其对应的学位。学历学位对应关系如下表所示：学历学历学位学位博士研究生博士硕士研究生硕士本科学士其他无RANGE对象的常用属性CurrentRegion表示当前区域当前区域，当前区域是以空行与空列的组合为边界的区域以空行与空列的组合为边界的区域例如，下面代码选定工作表 Sheet1 上的当前区域：Worksheets(Sheet1).ActivateActiveCell.CurrentRegion.SelectRANGE对象的常用属性Columns表示指定单元格区域

38、中的所有列可用 Columns(index)表示单元格区域中的某列例如，下面代码将 B2:D4 区域第一列中每一单元格的值置为0：ThisWorkbook.ActiveSheet.Range(B2:D4).Columns(1).Value=0RANGE对象的常用属性ColumnWidth表示指定区域中所有列的列宽，例：With Worksheets(Sheet1).Range(B3.A12).ColumnWidth=.ColumnWidth*2End WithRANGE对象的常用属性Column返回指定区域第一个子区域的第一列的列号列号例如，下面代码返回myRange区域最后一列的列号：myR

39、ange.Columns(myRange.Columns.Count).ColumnRANGE对象的常用属性Rows表示指定单元格区域中的所有行可用Rows(index)表示单元格区域中的某行例如，下面代码将B2:D4区域的第3行删除：ThisWorkbook.ActiveSheet.Range(B2:D4).Rows(3).DeleteRANGE对象的常用属性RowHeight表示指定区域中所有行的行高，例：ActiveSheet.Range(B3.A12).RowHeight=10RANGE对象的常用属性Row返回区域中第一个子区域的第一行的行号行号例如，下面代码将工作表 sheet1 中

40、每隔一行的行高设置为 4 磅：For Each rw In Worksheets(Sheet1).Rows If rw.Row Mod 2=0 Then rw.RowHeight=4 End If Next rwRANGE对象的常用属性Count表示指定单元格区域的单元格个数注意：Cells、Columns 和 Rows 集合对象亦有 Count 属性实践2假设 员工薪资表 工作簿中的员工总数未知员工总数未知，试编写一个宏，统计其中薪资超过 5000 的员工人数，并将统计结果用消息框输出RANGE对象的常用属性Font：表示指定区域的字体格式，其本身也是一个对象，有如下常用的属性：Name：字

41、体名称FontStyle：字形Size：字号Strikethrough：删除线Superscript：上标Subscript：下标OutlineFont：空心字Shadow：阴影Underline：下划线ColorIndex：颜色编号RANGE对象的常用属性ColorIndexColor描述描述1vbBlack黑色黑色2vbWhite白色白色3vbRed红色红色4vbGreen绿色绿色5vbBlue蓝色蓝色6vbYellow黄色黄色7vbMagenta洋红洋红8vbCyan青色青色RANGE对象的常用属性Interior表示指定区域的内部格式内部格式，其本身也是一个对象，常用的属性是 Colo

42、rIndex 和 Pattern，其中 ColorIndex 的取值范围如 Font对象的 ColorIndex 值，Pattern 表示填充图案实践3假设 员工薪资表 工作簿中的员工总数未知员工总数未知，试编写一个宏，将薪资最高薪资最高的员工的所在行设置为字体加粗、红色，背景为绿色填充？实践3之我的解决方案 命名参数传递(P.92)命名参数在调用 Sub 或 Function 过程时，可不必拘泥于语法所规定的特定顺序来提供值，而按自定义顺序用命名参数来分配值。例如，假设一Sub过程设定了三个参数：Sub DoSomeThing(namedarg1,namedarg2,namedarg3)则在

43、调用它时，可使用以下语句：DoSomeThing namedarg3:=4,namedarg2:=5,namedarg1:=20命名参数传递命名参数在调用具有可选的参数过程时显得特别有用。如果使用命名参数，则不必利用逗号去区分出失去位置的参数例如：MsgBox Hi,VBA.,命名参数示例等价于MsgBox Hi,VBA.,Title:=命名参数示例RANGE对象的常用属性Address返回区域的引用地址，默认时返回的是绝对引用，例如：Set mc=Worksheets(Sheet1).Cells(1,1)MsgBox mc.Address 上面语句执行后，消息框中显示“$A$1”RANGE对

44、象的常用属性End表示包含源区域的区域尾端的单元格区域尾端的单元格，语法为：End(Direction)，其中 Direction 有4个取值：xlDown、xlToRight、xlToLeft、xlUp 例如，下面代码将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格Worksheets(Sheet1).ActivateRange(B4,Range(B4).End(xlToRight).Select实践4利用Range对象的 End 属性属性实现实践2的功能?RANGE对象的常用属性MergeCells判断单元格或区域是否被包含在一个合并区域中，如果是，则该值为 TrueMerg

45、eArea表示某单元格所在的合并区域。如果该单元格不在合并区域内，则该属性返回该单元格本身例如，下面代码表示为包含单元格 A3 的合并区域赋值Set ma=Range(a3).MergeAreaIf ma.Address=$A$3 Then MsgBox not mergedElse ma.Cells(1,1).Value=42End IfRANGE对象的常用属性注意：Cells、Columns 及 Rows 本身也是一个 Range 型的集合对象，因此，它们也具有 Value、Count、Font、Interior等属性RANGE对象的常用方法Activate激活单个或多个单元格Worksh

46、eets(sheet1).Range(A1).ActivateSelect选中区域Worksheets(sheet1).Range(A1:B5).SelectAutoFit将区域中的列宽和行高调整为最适当的值Worksheets(1).Range(A1:E1).Columns.AutoFitRANGE对象的常用方法Copy：复制Cut：剪切PasteSpecial：粘贴，允许设置粘贴值还是格式（详见帮助）例如，下面代码表示用 Sheet1 上单元格区域 C1:C5 和单元格区域 D1:D5 原有内容的和来取代单元格区域 D1:D5 中的数据With Worksheets(Sheet1).Ran

47、ge(C1:C5).Copy .Range(D1:D5).PasteSpecial _ Operation:=xlPasteSpecialOperationAddEnd WithRANGE对象的常用方法Insert插入一个单元格或区域，其他单元格作相应移位以腾出空间ActiveSheet.Range(A1:D1).InsertDelete删除ActiveSheet.Range(A1:D1).DeleteRANGE对象的常用方法Clear清除Range内的内容，包括注释和格式Worksheets(Sheet2).Range(A3.D12).ClearClearContents清除Range内的内

48、容，不清除格式和注释Worksheets(Sheet2).Range(A3.D12).ClearContentsClearFormats清除Range内的格式Worksheets(Sheet2).Range(A3.D12).ClearFormatsRANGE对象的常用方法Merge合并单元格ThisWorkbook.ActiveSheet.Range(A1:D1).MergeUnMerge将合并区域分解为独立的单元格 If Range(A1).MergeCells Then Range(A1).MergeArea.UnMergeElse MsgBox not mergedEnd IfBye B

49、yeBye ByeVBA程序设计用户界面的设计本讲内容窗体控件ActiveX控件用户窗体窗体控件&ActiveX控件 Why控件nEXCEL开发中需要对一个问题有所概念，即：谁使用？这决定了程序的操作难度及界面感观窗体控件n打开“开发工具”选项卡n“控件”|“插入”|“表单控件”命令窗体控件n窗体控件有12个控件，其中9个可放到工作表内标签：它用于表现静态文本分组框：它用于将其他控件进行组合按钮：用于执行宏命令复选框：它是一个选择控件，通过单击可以选择和取消选择，可以多项选择选项按钮：通常几个选项按钮组合在一起使用，在一组中只能选择一个选项按钮窗体控件列表框：用于显示多个选项并从中选择一个组合

50、框：用于显示多个选项，可以选择其中的项目或者输入一个其它值 滚动条：包括水平滚动条和垂直滚动条，是一种数值选择机制，如调节过渡色微调控件：是一种数值选择机制，通过单击控件的箭头来选择数值，如改变日期或时间示例ActiveX控件n打开“开发工具”选项卡n“控件”|“插入”|“ActiveX控件”命令ActiveX控件与窗体控件的区别不是靠建立与之相关的“宏”来使用的ActiveX控件有自己的属性和事件过程ActiveX控件隶属于具体的工作表ActiveX控件n利用窗体控件实现eg1.xlsx中的Sheet1中的格式设置界面和相应的格式编辑功能？用户窗体UserForm用户窗体n用户窗体(User