VBAforEXCEL教程.ppt

《VBAforEXCEL教程.ppt》由会员分享，可在线阅读，更多相关《VBAforEXCEL教程.ppt（33页珍藏版）》请在三一文库上搜索。

1、VBA for EXCEL 教程,VBA for EXCEL学习一 2007-06 扬州亚星客车股份有限公司,VBA是什么,1.1 VBA是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言-Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集.实际上VBA是“寄生于“VB应用程

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

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

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

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

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

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

8、n = xlSolid .PatternColorIndex = xlAutomatic End With End Sub,将来会十分熟悉这种代码，虽然现在它们看上去像一种奇怪的外语。学习VBA或编程语言在某种程度上比较像在学习一种外语。,Sub 改变颜色():这是宏的名称。 中间的以“ ”开头的五行称为“注释”，它在录制宏时自动产生。 以With 开头到End With 结束的结构是With结构语句，这段语句是宏的主要部分。注意单词“selection”，它代表“突出显示的区域”（即：选定区域）。With Selection.Interior ：它读作“选择区域的的内部”.这整段语句设置该区

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

10、:结束With 语句。 End Sub:整个宏的结束语,1.6 编辑录制的代码,在上一节，我们录制了一个宏并查看了代码，代码中有两句实际上并不起作用。哪两句？现在，在宏中作一个修改，删除多余行，直到和下面代码相同： Sub 改变颜色() 改变颜色 Macro xw 记录的宏 2000-6-10 With Selection.Interior .ColorIndex = 3 End With End Sub 完成后，在工作表中试验一下。你会发现结果和修改前的状况一样。在With 语句前加入一行: Range(“A5“).Select 试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使A5单

11、元格变红. 现在可以看到，编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。一：在录制中出错而不得不修改。二：录制的宏中有多余的语句需要删除，提高宏的运行速度。三：希望增加宏的功能。比如：加入判断或循环等无法录制的语句。,1.7 录制宏的局限性,希望自动化的许多EXCEL过程大多都可以用录制宏来完成.但是宏记录器存在以下局限性.通过宏记录器无法完成的工作有: 1)录制的宏无判断或循环能力. 2)人机交互能力差,即用户无法进行输入,计算机无法给出提示. 3)无法显示EXCEL对话框. 4)无法显示自定义窗体.,VBA for Excel 的基本操作,基础教程 (二),几种用VBA在单

12、元格输入数据的方法：,程序说明： Public Sub Writes() 1- 2 方法，最简单在 “ “ 中输入单元格名称。 1 A1 = 100 在 A1 单元格输入100。 2 A2:A4 = 10 在 A2:A4 单元格输入10。 3- 4 方法，采用 Range(“ “)， “ “ 中输入单元格名称。 3 Range(“B1“) = 200 在 B1 单元格输入200。 4 Range(“C1:C3“) = 300 在 C1:C3 单元格输入300。 5- 6 方法，采用 Cells(Row,Column)，Row是单元格行数，Column是单元格栏数。 5 Cells(1, 4)

13、= 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 = “Test“ 在任何你点选的单元格输入文字 “Test“。 End Sub “观看本程序的方法： 粗体文字为程序，其它字体均为说明文字。 按快捷键 Alt+F11即可看到程序。“,几种如何把别的工作表 Sheet4 数据，读到这个工作表的方法：,在被

14、读取的单元格前加上工作表名称 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“) 把 Shee4工作表单元格 B1 数据，读到 B1

15、 单元格。 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 数据，读到 E1:E 5单元格。 End

16、Sub 你点选任何单元格，按 Selection 按钮，则所点选的单元格均会被输入 Shee4 工作表单元格 F1 数据。 Public Sub Selection1() Selection.Value = Sheet4.F1 把 Shee4 工作表单元格 F1 数据，读到任何你点选的单元格。 End Sub,几种如何把别的工作表 Sheet4 数据，读到这个工作表的方法：,在被读取的单元格前加上工作表名称 Sheet4。 Public Sub Writes() 1- 2 方法，最简单在被读取的 “ “ 前加上被读取的工作表名称 Sheet4。 1 A1 = Sheet4.A1 把Sheet4

17、 A1 单元格的数据，读到 A1单元格。 2 A2:A4 = Sheet4.B1 把 Shee4 工作表单元格 B1 数据，读到 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,Col

18、umn)，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 数据，读到 E1:E 5单元格。 End Sub 你点选任何单元格，按 Selection 按钮，则所点选的单元格均会被输入 Shee4 工作表单元格 F1 数据。 Public Sub Selection1() Selection.Value = Sheet

19、4.F1 把 Shee4 工作表单元格 F1 数据，读到任何你点选的单元格。 End Sub,如何利用 Worksheet_SelectionChange 在限定的单元格输入数据的方法。,Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then Target = 100 End If End Sub If . Then . End If 这是我们学的这一个逻辑判断语句。 Target.Row = 2，指的是鼠标选定的单元格的行大于或等于 2。

20、 Target.Column = 2 ，指的是鼠标选定的单元格的栏等于 2。 If Target.Row = 2 And Target.Column = 2 Then 指的是只有在Target.Row = 2及Target.Column = 2二个条件成立时。 就是 (Target.Row = 2) 为True及(Target.Column = 2)为True时，才执行下面的程序 Target=100， 也就是 B 栏第二行及以下行用鼠标被点选时，才会被输入100，其它单元格则不被输入数据。,比较 Worksheet_SelectionChange() 与用按钮 CommandButton1_

21、Click() 来执行程序二者的方法与写法有何不同,Worksheet_SelectionChange()事件 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then Target = 100 End If End Sub 按鈕 CommandButton1_Click() Private Sub CommandButton1_Click() If ActiveCell.Row = 2 And ActiveCell.Column = 3 T

22、hen ActiveCell = 100 End If End Sub 二者执行方法最大的地方，在于 Worksheet_SelectionChange() 是自动的，你不用了解他是怎么完成工作的。 按钮 CommandButton1_Click() 是人工的，比 SelectionChange()多一道手续，就是要去按那接钮，程序才会执行。 SelectionChange() 有一个参数 Target 可用；CommandButton1_Click ()没有。 所以我们要用 ActiveCell 内定函数来取代Target，ActiveCell 与 Target最大的不同点他只能指定一个单元

23、格。 就是你选取多个单元格也只有最上面的单元格会加上数据；用 Selection 取代 ActiveCell， 用法就跟 Target 一样了。,完整的 If.Then End 逻辑判断式。,Private Sub Worksheet_SelectionChange(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 A

24、nd Target.Column = 2 Then Target = 400 Else Target = 500 End If End Sub 这是个完整的 If 逻辑判断式，意思是说，假如 If 後的判断式条件成立的话，就执行第二条程序，否则假如 ElseIf 後的判断式条件成立的话，就执行第四条程序，否则假如另一个 ElseIf 後的判断式条件成立的话，就执行第六条程序。 Else 的意思是说，假如以上条件都不成立的话，就执行第八条程序。 他的执行方式是假如 IF 的条件成立的话，就不执行其它ElseIf 及Else 的逻辑判断式，假如 If 後的条件不成立的话才会执行 ElseIf 或

25、Else 逻辑判断式。第二个 ElseIf後的条件因为与 IF 後的条件一样，所以这个判断式後面的 Target=400 将是永远无法执行到的程序。,我们为什麽要用变数。,Private Sub Worksheet_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 E

26、lseIf i = 2 And j = 4 Then k = 400 Else k = 500 End If End Sub,变数,跟上例比较，程序是不是明朗多了，在前课重复的用 Target.Row，Target.Column及Target来写程序是不是有一点烦。用变量的第一个好处大家马上感觉得出来，就是可以简化程序。 使用变量前，你得先宣告变量。宣告变量的方法是在 “Dim “ 后面写上变量 “ i “ As 后面接上变量的形态 “Integer“。 Dim i , j As Integer 就是宣告 i 与 j 为整数变量，这是同时宣告二个变量 i 与 j 所以要在二个变量间加个 “ ,

27、 “号。 Dim k As Range 是宣告 k 为范围资料形态，Range这是 Excel 特有的资料形态。 i = Target.Row是把当前单元格的行数，指定给变量 i。 j = Target.Column 是把当前单元格的栏数，指定给变量 j。 Set k = Target 是把当前的单元格，指定给变量 k。 用像 i 与 j 这样简单的变量，在程序的前面你可能还记得 i 或 j 代表着什厶。程序写长了，你可能忘记 i 或 j 代表着什厶。所以最好的方法是用比较有意义的代号，来为变量命名如 iRow 或 iCol 来取代 i 及 j 。,体会一下Worksheet_Change()

28、事件。,Private Sub Worksheet_Change(ByVal Target As Range) Dim iRow, iCol As Integer iRow = 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

29、= 2 And Target = “ Then Cells(iRow, iCol + 1) = “ Else Cells(iRow, iCol + 1) = “ End If End Sub,Worksheet_SelectionChange,前几个教程都是用Worksheet_SelectionChange 事件来举例子，大家应该能体会他是怎厶一回事了吧。 这个教程就是要让你来体会什厶是Worksheet_Chang()事件。因为这二个事件在VBA都是非常有用的，所以一定要了解。 简单的说，前者是你鼠标移动到那个单元格，就触发那个事件的执行。後者是要等到你点选的单元格，数有了改变才会触发事件

30、的执行。二者执行的时机一前一後。 Target “ 是代表限定当前的单元格要是有数的，才会执行以下三行的程序。 Cells(iRow, iCol + 1) = Cells(iRow, iCol) * 2，是你在 B 栏输入数时，C 栏将可得到 B 栏二倍的数。 Target = “ 是限定当前的单元格要是没有数的，才会执行以下一行的程序。 Cells(iRow, iCol + 1) = “，是把 C 栏的数清成空格。 Application.EnableEvents = False与Application.EnableEvents = True，这是个成双的程序，当你用了前者记得在执行其他程序

31、後要写上後面的程序。它的目的在抑制事件连锁执行。简单的说就是，在 B 字段所触发的事件，不愿在其它单元格再触发另一个Worksheet_Change()事件。,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.EnableEvent

32、s = True End Sub 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,Worksheet_Change(),这个程序的目的是要在 B2 输入新的数时，C2 会将 B2 输入的新数加上 C2 原有的数呈现在 C2

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

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

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

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

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

38、ancel 参数是设定 False，你用鼠标连按二次就可体会设定成 True 与 False 的不同。,体会一下 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 !“

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

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

41、xcel中VBA的效率,由于Microsoft Office办公套件的广泛应用，以及该软件版本的不断提升，功能不断完善，在Office办公套件平台上开发出的的VBA应用程序越来越多，而VBA是一种宏语言，在运行速度上有很大的限制。因此VBA编程的方法直接关系到VBA程序运行的效率，本文列举了一些提高VBA程序运行效率的方法。,方法1：尽量使用VBA原有的属性、方法和Worksheet函数,由于Excel对象多达百多个，对象的属性、方法、事件多不胜数，对于初学者来说可能对它们不全部了解，这就产生了编程者经常编写与Excel对象的属性、方法相同功能的VBA代码段，而这些代码段的运行效率显然与Exc

42、el对象的属性、方法完成任务的速度相差甚大。例如用Range的属性CurrentRegion来返回Range 对象，该对象代表当前区。（当前区指以任意空白行及空白列的组合为边界的区域）。同样功能的VBA代码需数十行。因此编程前应尽可能多地了解Excel对象的属性、方法。 充分利用Worksheet函数是提高程序运行速度的极度有效的方法。如求平均工资的例子： For Each c In Worksheet(1).Range(A1:A1000) TotalValue = TotalValue c.Value Next AverageValue = TotalValue / Worksheet(1)

43、.Range(A1:A1000).Rows.Count 而下面代码程序比上面例子快得多： AverageValue=Application.WorksheetFunction.Average(Worksheets(1).Range(A1:A1000) 其它函数如Count,Counta,Countif,Match,Lookup等等，都能代替相同功能的VBA程序代码，提高程序的运行速度。,方法2：尽量减少使用对象引用，尤其在循环中,每一个Excel对象的属性、方法的调用都需要通过OLE接口的一个或多个调用，这些OLE调用都是需要时间的，减少使用对象引用能加快VBA代码的运行。例如 1使用With

44、语句。 Workbooks(1).Sheets(1).Range(A1:A1000).Font.Name=Pay Workbooks(1).Sheets(1).Range(A1:A1000).Font.FontStyle=Bold . 则以下语句比上面的快 With Workbooks(1).Sheets(1).Range(A1:A1000).Font .Name = Pay .FontStyle = Bold . End With,2使用对象变量。,如果你发现一个对象引用被多次使用，则你可以将此对象用Set 设置为对象变量，以减少对对象的访问。如： Workbooks(1).Sheets(1

45、).Range(A1).Value = 100 Workbooks(1).Sheets(1).Range(A2).Value = 200 则以下代码比上面的要快： Set MySheet = Workbooks(1).Sheets(1) MySheet.Range(A1).Value = 100 MySheet.Range(A2).Value = 200 3在循环中要尽量减少对象的访问。 For k = 1 To 1000 Sheets(Sheet1).Select Cells(k,1).Value = Cells(1,1).Value Next k 则以下代码比上面的要快： Set TheV

46、alue = Cells(1,1).Value Sheets(Sheet1).Select For k = 1 To 1000 Cells(k,1).Value = TheValue Next k,方法3：减少对象的激活和选择,如果你的通过录制宏来学习VBA的，则你的VBA程序里一定充满了对象的激活和选择，例如Workbooks(XXX).Activate、Sheets(XXX).Select、Range(XXX).Select等,但事实上大多数情况下这些操作不是必需的。例如 Sheets(Sheet3).Select Range(A1).Value = 100 Range(A2).Value = 200 可改为： With Sheets(Sheet3) .Range(A1).Value = 100 .Range(A2).Value = 200 End With,方法4：关闭屏幕更新,如果你的VBA程序前面三条做得比较差，则关闭屏幕更新是提高VBA程序运行速度的最有效的方法，缩短运行时间2/3左右。关闭屏幕更新的方法： Application.ScreenUpdate = False 请不要忘记VBA程序运行结束时再将该值设回来： Application.ScreenUpdate = True 以上是提高VBA运行效率的比较有效的几种方法。,