VBAforEXCEL教程

1、VBAforEXCEL教程 VBAforEXCEL教程 VBA是什么 1.1 VBA是什么 直到90,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应 用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来 使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发 出来的应用程序共享一种通用的自动化语言-Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集.实际上VBA是寄生于VB应用程序的版本.VBA和VB的区别包括 如下几个方面: 1. VB

2、是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL 等)自动化 2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序. 3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序 是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的父,例如EXCEL. 尽管存在这些不同,VBA和VB在结构上仍然十分相似.事实上,如果你已经了 解了VB,会发现学习VBA非常快.,学完VBA会给学习VB打下坚实的基础.而且,当 学会在EXCEL中用VBA创建解决方案后,即已具备在WORD ACCESS OUTLOOK FOXPRO PROWERPOINT 中用V

3、BA创建解决方案的大部分知识. * VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化. * VBA可以称作EXCEL的“遥控器”. VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自 动化,可以创建自定义的解决方案. 此外,如果你愿意,还可以将EXCEL用做开发平台实现应用程序. VBAforEXCEL教程 1.2 EXCEL环境中基于应用程序自动 化的优点 也许你想知道VBA可以干什么?使用VBA可以实现的功能包括: 1. 使重复的任务自动化. 2. 自定义EXCEL工具栏,菜单和界面. 3. 简化模板的使用. 4. 自定义EXCEL,使其成为开发平台. 5

4、. 创建报表. 6. 对数据进行复杂的操作和分析. 用EXCEL作为开发平台有如下原因: 1. EXCEL本身功能强大,包括打印,文件处理,格式化和文本编辑. 2. EXCEL内置大量函数. 3. EXCEL界面熟悉. 4. 可连接到多种数据库. 用其他语言开发应用程序,一半的工作是编写一些基本功能的模块,包 括文件的打开和保存,打印,复制等.而用EXCEL作为开发平台,则由于 EXCEL已经具备这些基本功能,你要做的只是使用它. VBAforEXCEL教程 1.3 录制简单的宏 在介绍学习VBA之前，应该花几分钟录制一个宏。 新术语：“宏”，指一系列EXCEL能够执行的VBA语句。 以下将要

5、录制的宏非常简单，只是改变单元格颜色。请完成如下步骤： 1)打开新工作簿，确认其他工作簿已经关闭。 2)选择A1单元格。调出“常用”工具栏。 3)选择“工具”“宏”“录制新宏”。 4)输入“改变颜色”作为宏名替换默认宏名，单击确定,注意，此时状态 栏中显示“录制”，特别是“停止录制”工具栏也显示出来。替换默认宏名 主要是便于分别这些宏。 宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包 括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。 5)选择“格式”的“单元格”，选择“图案”选项中的红色,单击“确 定”。 6)单击“停止录制”工具栏按钮，结束宏录制过程。 如

6、果“停止录制”工具栏开始并未出现，请选择“工具”“宏” “停止录制”。 录制完一个宏后就可以执行它了。 VBAforEXCEL教程 1.4 执行宏 当执行一个宏时，EXCEL按照宏语句执行的情况就像 VBA代码在对EXCEL进行“遥控”。但VBA的“遥控”不仅 能使操作变得简便，还能使你获得一些使用EXCEL标准命令 所无法实现的功能。而且，一旦熟悉了EXCEL的“遥控”， 你都会奇怪自己在没有这些“遥控”的情况下，到底是怎么 熬过来的。要执行刚才录制的宏，可以按以下步骤进行： 1）选择任何一个单元格，比如A3。 2）选择“工具”“宏”“宏”，显示“宏”对话框。 3）选择“改变颜色”，选择“执

7、行”，则A3单元格的 颜色变为红色。试着选择其它单元格和几个单元格组成的区 域，然后再执行宏，以便加深印象。 VBAforEXCEL教程 1.5 查看录制的代码 到底是什么在控制EXCEL的运行呢?你可能有 些疑惑.好,让我们看看VBA的语句吧. 1）选择“工具”“宏”“宏”，显示“宏” 对话框。 2）单击列表中的“改变颜色”,选择“编辑” 按钮。 此时，会打开VBA的编辑器窗口（VBE）。关 于该编辑器，以后再详细说明，先将注意力集中到 显示的代码上。代码如下：（日期和姓名会有不同 VBAforEXCEL教程 改变颜色代码 Sub 改变颜色() 改变颜色 Macro xuyigu 记录的宏

8、2007-6-10 With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub VBAforEXCEL教程 将来会十分熟悉这种代码，虽然现在它们看上去像一种奇怪的外语。学习VBA或编 程语言在某种程度上比较像在学习一种外语。 Sub 改变颜色():这是宏的名称。 中间的以“ ”开头的五行称为“注释”，它在录制宏时自动产生。 以With 开头到End With 结束的结构是With结构语句，这段语句是宏的主要部 分。注意单词“selecti

9、on”，它代表“突出显示的区域”（即：选定区域）。 With Selection.Interior ：它读作“选择区域的的内部”.这整段语句设置该区 域内部的一些“属性”。 其中： .ColorIndex = 3: 将该内部设为红色。注意：有一小圆点，它的作用在于简化 语句，小圆点代替出现在With后的词,它是With结构的一部分。另外：红色被 数字化为3.(红色警戒是否可称作：3号警戒，嗯？)有兴趣的话，你将3改为其 他数字试试看。 .Pattern = xlSolid：设置该区域的内部图案。由于是录制宏，所以，虽然你并 未设置这一项，宏仍然将其记录下来(因为在“图案”选项中有此一项，只是

10、你为曾设置而已）。xlSolid表示纯色。 .PatternColorIndex = xlAutomatic：表示内部图案底纹颜色为自动配色。 End With:结束With 语句。 End Sub:整个宏的结束语 VBAforEXCEL教程 1.6 编辑录制的代码 在上一节，我们录制了一个宏并查看了代码，代码中有两句实际上并不起作用。哪两 句？现在，在宏中作一个修改，删除多余行，直到和下面代码相同： Sub 改变颜色() 改变颜色 Macro xw 记录的宏 2000-6-10 With Selection.Interior .ColorIndex = 3 End With End Sub

11、完成后，在工作表中试验一下。你会发现结果和修改前的状况一样。在With 语句前加 入一行: Range(A5).Select 试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使A5单元格变红. 现在可以看到，编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。 一：在录制中出错而不得不修改。二：录制的宏中有多余的语句需要删除，提高宏的运行 速度。三：希望增加宏的功能。比如：加入判断或循环等无法录制的语句。 VBAforEXCEL教程 1.7 录制宏的局限性 希望自动化的许多EXCEL过程大多都可 以用录制宏来完成.但是宏记录器存在以下局 限性.通过宏记录器无法完成的工作有: 1

12、)录制的宏无判断或循环能力. 2)人机交互能力差,即用户无法进行输入, 计算机无法给出提示. 3)无法显示EXCEL对话框. 4)无法显示自定义窗体. VBAforEXCEL教程 VBA for Excel 的基本操作 基础教程 (二) VBAforEXCEL教程 几种用VBA在单元格输入数据的方法： 程序说明： Public Sub Writes() 1- 2 方法，最简单在 中输入单元格名称。 1 A1 = 100 在 A1 单元格输入100。 2 A2:A4 = 10 在 A2:A4 单元格输入10。 3- 4 方法，采用 Range( )， 中输入单元格名称。 3 Range(B1)

13、= 200 在 B1 单元格输入200。 4 Range(C1:C3) = 300 在 C1:C3 单元格输入300。 5- 6 方法，采用 Cells(Row,Column)，Row是单元格行数，Column是单元格 栏数。 5 Cells(1, 4) = 400 在 D1 单元格输入400。 6 Range(Cells(1, 5), Cells(5, 5) = 50 在 E1:E 5单元格输入50。 End Sub 你点选任何单元格，按 Selection 按钮，則则所点选的单元格均会被输入文字 Test。 Public Sub Selection1() Selection.Value =

14、 Test 在任何你点选的单元格输入文字 Test。 End Sub 观看本程序的方法： 粗体文字为程序，其它字体均为说明文字。 按快捷键 Alt+F11即可看到程序。 VBAforEXCEL教程 几种如何把别的工作表 Sheet4 数据， 读到这个工作表的方法： 在被读取的单元格前加上工作表名称 Sheet4。 Public Sub Writes() 1- 2 方法，最简单在被读取的 前加上被读取的工作表名称 Sheet4。 1 A1 = Sheet4.A1 把Sheet4 A1 单元格的数据，读到 A1单元格。 2 A2:A4 = Sheet4.B1 把 Shee4 工作表单元格 B1 数

15、据，读到 A2:A4 单元格。 3- 4 方法，在被读取的工作表 Range( )的 Range 前加上被读取的工作表名称Sheet4。 3 Range(B1) = Sheet4.Range(B1) 把 Shee4工作表单元格 B1 数据，读到 B1 单元 格。 4 Range(C1:C3) = Sheet4.Range(C1) 把 Shee4 工作表单元格 C1 数据，读到 C1:C3 单元格。 5- 6 方法，在被读取的工作表 Cells(Row,Column)，Cells 前加上被读取工作表名称 Sheet4。 5 Cells(1, 4) = Sheet4.Cells(1, 4) 把 S

16、hee4 工作表单元格 D1 数据，读到 D1 单元格。 6 Range(Cells(1, 5), Cells(5, 5) = Sheet4.Cells(1, 5) 把 Shee4 工作表单元格 E1 数据， 读到 E1:E 5单元格。 End Sub 你点选任何单元格，按 Selection 按钮，则所点选的单元格均会被输入 Shee4 工作表单 元格 F1 数据。 Public Sub Selection1() Selection.Value = Sheet4.F1 把 Shee4 工作表单元格 F1 数据，读到任何你点选的单 元格。 End Sub VBAforEXCEL教程 几种如何把

17、别的工作表 Sheet4 数据， 读到这个工作表的方法： 在被读取的单元格前加上工作表名称 Sheet4。 Public Sub Writes() 1- 2 方法，最简单在被读取的 前加上被读取的工作表名称 Sheet4。 1 A1 = Sheet4.A1 把Sheet4 A1 单元格的数据，读到 A1单元格。 2 A2:A4 = Sheet4.B1 把 Shee4 工作表单元格 B1 数据，读到 A2:A4 单元格。 3- 4 方法，在被读取的工作表 Range( )的 Range 前加上被读取的工作表名称Sheet4。 3 Range(B1) = Sheet4.Range(B1) 把 Sh

18、ee4工作表单元格 B1 数据，读到 B1 单元格。 4 Range(C1:C3) = Sheet4.Range(C1) 把 Shee4 工作表单元格 C1 数据，读到 C1:C3 单元格。 5- 6 方法，在被读取的工作表 Cells(Row,Column)，Cells 前加上被读取工作表名称 Sheet4。 5 Cells(1, 4) = Sheet4.Cells(1, 4) 把 Shee4 工作表单元格 D1 数据，读到 D1 单元格。 6 Range(Cells(1, 5), Cells(5, 5) = Sheet4.Cells(1, 5) 把 Shee4 工作表单元格 E1 数据，

19、读到 E1:E 5单元格。 End Sub 你点选任何单元格，按 Selection 按钮，则所点选的单元格均会被输入 Shee4 工作表单元 格 F1 数据。 Public Sub Selection1() Selection.Value = Sheet4.F1 把 Shee4 工作表单元格 F1 数据，读到任何你点选的单元 格。 End Sub VBAforEXCEL教程 如何利用 Worksheet_SelectionChange 在限定的单元格输入数据的方法。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If

20、 Target.Row = 2 And Target.Column = 2 Then Target = 100 End If End Sub If . Then . End If 这是我们学的这一个逻辑判断语句。 Target.Row = 2，指的是鼠标选定的单元格的行大于或等于 2。 Target.Column = 2 ，指的是鼠标选定的单元格的栏等于 2。 If Target.Row = 2 And Target.Column = 2 Then 指的是只有在 Target.Row = 2及Target.Column = 2二个条件成立时。 就是 (Target.Row = 2) 为True

21、及(Target.Column = 2)为True时，才执行 下面的程序 Target=100， 也就是 B 栏第二行及以下行用鼠标被点选时，才会被输入100，其它单 元格则不被输入数据。 VBAforEXCEL教程 比较 Worksheet_SelectionChange() 与用按钮 CommandButton1_Click() 来执行程序二者的方法与写法有何不同 Worksheet_SelectionChange()事件 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 2 And T

22、arget.Column = 2 Then Target = 100 End If End Sub 按鈕 CommandButton1_Click() Private Sub CommandButton1_Click() If ActiveCell.Row = 2 And ActiveCell.Column = 3 Then ActiveCell = 100 End If End Sub 二者执行方法最大的地方，在于 Worksheet_SelectionChange() 是自动的，你不用了解他 是怎么完成工作的。 按钮 CommandButton1_Click() 是人工的，比 Select

23、ionChange()多一道手续，就是要去 按那接钮，程序才会执行。 SelectionChange() 有一个参数 Target 可用；CommandButton1_Click ()没有。 所以我们要用 ActiveCell 内定函数来取代Target，ActiveCell 与 Target最大的不同点他只 能指定一个单元格。 就是你选取多个单元格也只有最上面的单元格会加上数据；用 Selection 取代 ActiveCell， 用法就跟 Target 一样了。 VBAforEXCEL教程 完整的 If.Then End 逻辑判断式。 Private Sub Worksheet_Selec

24、tionChange(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then Target = 200 ElseIf Target.Row = 2 And Target.Column = 3 Then Target = 300 ElseIf Target.Row = 2 And Target.Column = 2 Then Target = 400 Else Target = 500 End If End Sub 这是个完整的 If 逻辑判断式，意思是说，假如 If 後的判断式条件成立的话，就执行第二条 程序，否则

25、假如 ElseIf 後的判断式条件成立的话，就执行第四条程序，否则假如另一个 ElseIf 後的判断式条件成立的话，就执行第六条程序。 Else 的意思是说，假如以上条件都不成立的话，就执行第八条程序。 他的执行方式是假如 IF 的条件成立的话，就不执行其它ElseIf 及Else 的逻辑判断式，假如 If 後的条件不成立的话才会执行 ElseIf 或 Else 逻辑判断式。第二个 ElseIf後的条件因为与 IF 後的条件一样，所以这个判断式後面的 Target=400 将是永远无法执行到的程序。 VBAforEXCEL教程 我们为什麽要用变数。 Private Sub Worksheet_

26、SelectionChange(ByVal Target As Range) Dim i , j As Integer Dim k As Range i = Target.Row j = Target.Column Set k = Target If i = 2 And j = 2 Then k = 200 ElseIf i = 2 And j = 3 Then k = 300 ElseIf i = 2 And j = 4 Then k = 400 Else k = 500 End If End Sub VBAforEXCEL教程 变数 跟上例比较，程序是不是明朗多了，在前课重复的用 Targ

27、et.Row， Target.Column及Target来写程序是不是有一点烦。用变量的第一个好处 大家马上感觉得出来，就是可以简化程序。 使用变量前，你得先宣告变量。宣告变量的方法是在 Dim 后面写上变 量 i As 后面接上变量的形态 Integer。 Dim i , j As Integer 就是宣告 i 与 j 为整数变量，这是同时宣告二个变量 i 与 j 所以要在二个变量间加个 , 号。 Dim k As Range 是宣告 k 为范围资料形态，Range这是 Excel 特有的资 料形态。 i = Target.Row是把当前单元格的行数，指定给变量 i。 j = Target.

28、Column 是把当前单元格的栏数，指定给变量 j。 Set k = Target 是把当前的单元格，指定给变量 k。 用像 i 与 j 这样简单的变量，在程序的前面你可能还记得 i 或 j 代表着什 厶。程序写长了，你可能忘记 i 或 j 代表着什厶。所以最好的方法是用比 较有意义的代号，来为变量命名如 iRow 或 iCol 来取代 i 及 j 。 VBAforEXCEL教程 体会一下Worksheet_Change()事件。 Private Sub Worksheet_Change(ByVal Target As Range) Dim iRow, iCol As Integer iRow

29、 = Target.Row iCol = Target.Column If iRow = 2 And iCol = 2 And Target Then Application.EnableEvents = False Cells(iRow, iCol + 1) = Cells(iRow, iCol) * 2 Application.EnableEvents = True ElseIf iRow = 2 And iCol = 2 And Target = Then Cells(iRow, iCol + 1) = Else Cells(iRow, iCol + 1) = End If End Su

30、b VBAforEXCEL教程 Worksheet_SelectionChange 前几个教程都是用Worksheet_SelectionChange 事件来举例子，大家应 该能体会他是怎厶一回事了吧。 这个教程就是要让你来体会什厶是Worksheet_Chang()事件。因为这二 个事件在VBA都是非常有用的，所以一定要了解。 简单的说，前者是你鼠标移动到那个单元格，就触发那个事件的执行。 後者是要等到你点选的单元格，数有了改变才会触发事件的执行。二 者执行的时机一前一後。 Target 是代表限定当前的单元格要是有数的，才会执行以下三行 的程序。 Cells(iRow, iCol + 1)

31、 = Cells(iRow, iCol) * 2，是你在 B 栏输入数时， C 栏将可得到 B 栏二倍的数。 Target = 是限定当前的单元格要是没有数的，才会执行以下一行的 程序。 Cells(iRow, iCol + 1) = ，是把 C 栏的数清成空格。 Application.EnableEvents = False与Application.EnableEvents = True， 这是个成双的程序，当你用了前者记得在执行其他程序後要写上後面的 程序。它的目的在抑制事件连锁执行。简单的说就是，在 B 字段所触发 的事件，不愿在其它单元格再触发另一个Worksheet_Change(

32、)事件。 VBAforEXCEL教程 Worksheet_Change()事件连锁反应 Private Sub Worksheet_Change(ByVal Target As Range) Dim iRow As Integer iRow = Target.Row Application.EnableEvents = False Cells(iRow, 3) = Cells(iRow, 3) + Cells(iRow, 2) Application.EnableEvents = True End Sub Private Sub Worksheet_Change(ByVal Target As

33、 Range) Dim iRow As Integer iRow = Target.Row Application.EnableEvents = False Cells(iRow, 3) = Cells(iRow, 3) + Cells(iRow, 2) Application.EnableEvents = True End Sub VBAforEXCEL教程 Worksheet_Change() 这个程序的目的是要在 B2 输入新的数时，C2 会将 B2 输 入的新数加上 C2 原有的数呈现在 C2 上。 照上面有加上 Application.EnableEvents = False 程序执

34、行 当然没问题。 现在你在 Application.EnableEvents = False 与 Application.EnableEvents = True 前加上 看看。 程序前加上 的目的是要使 之后的文字变成说明文 字，程序执行时是会跳过说明文字，不执行说明文字的内容。 程序前加上 符号后，文字会变成绿色。 执行第二个程序时，你将发现 C2 不会按你所要求的，呈现 结果。 这就是所谓的事件连锁反应。 VBAforEXCEL教程 Worksheet_Activate() 体会一下Worksheet_Activate()事件。 这个程序的目的是要大家体会一下 Worksheet_Acti

35、vate() 事 件的意义与用法，大家暂且不用去了解事件的程序代码。 我们在 出毛登记表工作表 K栏打勾选取我们要的数 。 当打开 发毛单 工作表时， 出毛登记表 工作表 K栏有打 勾的那一行数 自动就复制至 发毛单 工作表。 这样的做法可省去我们做一个按钮，用人工的方法将数 复制 至 发毛单 工作表。但有个後遗症，那就是每次打开 发毛 单 工作表时Excel一定会执行这个程序，增加Excel 的工作 量。 VBAforEXCEL教程 体会一下Worksheet_Deactivate() 与 Worksheet_BeforeDoubleClick()事件。 Private Sub Worksh

36、eet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Sheet3.Visible = xlSheetVeryHidden End Sub 这个程序的目的是要大家体会一下 Worksheet_Deactivate() 与 Worksheet_BeforeDoubleClick() 事件的意义与用法，大家暂且不用去了解事件的程序 代码。 与 教程 Sheet3 的 Worksheet_Activate() 相同的程序，写在 Sheet1 的 Worksheet_Deactivate()事件上。一

37、样可达成我们在 10 所要达成的目的。 那我们应把程序写在 Sheet3 的 Worksheet_Activate() 事件上，或是写在 Sheet1 的 Worksheet_Deactivate() 事件上呢？依这功能需求当然还是写在 Sheet3 的 Worksheet_Activate() 事件上比较合。 因为假如你从 登记表 工作表切到 说明 工作表，也会触发Worksheet_Deactivate() 的执行，徒增 Excel 的工作量。 Worksheet_BeforeDoubleClick() 事件有二个参数，Target 以前介绍过了，另一个参数 Cancel 是做什厶用途的呢

38、？ 原来我们在单元格 DoubleClick 时会变成编辑状态 。假如我们把 Cancel 设定成 True 时，则你连按鼠标二次时，单元格不会变成编辑状态。 就像这个 Worksheet_BeforeDoubleClick() 事件，我们就是把单元格 DoubleClick变成 编辑状态功能 Cancel 掉。并把 Sheet3 隐藏起来。 说明工作表 Worksheet_BeforeDoubleClick() 的 Cancel 参数是设定 True；出毛登记 表工作表 Worksheet_BeforeDoubleClick() 的 Cancel 参数是设定 False，你用鼠标连 按二次就

39、可体会设定成 True 与 False 的不同。 VBAforEXCEL教程 体会一下 Worksheet_BeforeRightClick () 事件。 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range(D8) Is Nothing Then Cancel = True MsgBox (Target is Range D8 and Cancel is True !) Else Cancel = F

40、alse End If End Sub 这个程序的目的是要大家体会一下Worksheet_BeforeRightClick () 事件的意义与 用法。 Worksheet_BeforeRightClick () 事件也有二个参数，Target 以前介绍过了，另一 个参数 Cancel 是做什厶用途的呢？ 这个 Cancel 与前一个教程 Worksheet_BeforeDoubleClick () 的 Cancel 是有所 不同的。 这个 Cancel 假如设定成 True 的话，将屏闭掉鼠标右键的菜单。 你可以在VBALesson 12工作表 的 D8 单元格 与 D12 单元格，按鼠标右键

41、试看 看有何不同。 在 D12 按鼠标右键将呈现正常的右键菜单；在 D8 按鼠标右键将呈现一个对话 框并且屏闭掉右键菜单。 VBAforEXCEL教程 Worksheet 的事件计有如下七种 1、Worksheet_Activate() 2、Worksheet_BeforeDoubleClick ( ) 3、Worksheet_BeforeRightClick ( ) 4、Worksheet_Calculate ( ) 5、Worksheet_Change ( ) 6、Worksheet_FollowHyperlink ( ) 7、Worksheet_SelectionChange ( ) V

42、BAforEXCEL教程 提高Excel中VBA的效率 由于Microsoft Office办公套件的广泛应用， 以及该软件版本的不断提升，功能不断完善， 在Office办公套件平台上开发出的的VBA应用 程序越来越多，而VBA是一种宏语言，在运 行速度上有很大的限制。因此VBA编程的方 法直接关系到VBA程序运行的效率，本文列 举了一些提高VBA程序运行效率的方法。 VBAforEXCEL教程 方法1：尽量使用VBA原有的属性、 方法和Worksheet函数 由于Excel对象多达百多个，对象的属性、方法、事件多不胜数，对于初学者来说可能 对它们不全部了解，这就产生了编程者经常编写与Excel对象的属性、方法相同功能的VBA 代码段，而这些代码段的运行效率显然与Excel对象的属性、方法完成任务的速度相差甚大。 例如用Range的属性CurrentRegion来返回Range 对象，该对象代表当前区。（当前区指 以任意空白行及空白列的组合为边界的区域）。同样功能的VBA代码需数十行。因此编程 前应尽可能多地了解Excel对象的属性、方法。 充分利用Worksheet函数是提高程序运行速度的极度有效的方法。如求平均工资的例 子： For Each c In Worksheet(1).Ran