提高Excel中Vba的运行速度的例子

时间：2022-06-27 09:46:15 编辑：袖梨来源：一聚教程网

1、使用Excel原有的函数来进行计算
假如您采用循环的方式进行平均数的求解

代码如下	复制代码
For Each c In Range(″A1:A1000″) 　　TotalValue = TotalValue ＋ c.Value Next AverageValue = TotalValue /Range(″A1:A1000″).Rows.Count

那么上述代码的执行效率，将比下面的代码低的多

代码如下	复制代码
AverageValue=Application.WorksheetFunction.Average(Range(″A1:A1000″))

希望同学们举一反三，能采用Excel自带函数、属性解决的问题，尽量不要自行扩展代码解决。

2、尽量减少使用对象引用，尤其在循环中
每一个Excel对象的属性、方法的调用都需要通过OLE接口的一个或多个调用，这些OLE调用都是需要时间的，减少使用对象引用能加快VBA代码的运行。例如

1．使用With语句

代码如下	复制代码
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

(在With内部执行时,VB将在内存中维护一个临时对象,既如下面方法中一样相当于使用了一个临时变量,只是该临时变量是由系统定义系统命名的变量)

2．使用对象变量
如果你发现一个对象引用被多次使用，则你可以将此对象用Set 设置为对象变量，以减少对对象的访问。如：

代码如下	复制代码
Workbooks(1).Sheets(1).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 TheValue = Cells(1,1).Value 　　Sheets(″Sheet1″).Select 　　For k = 1 To 1000 　　 Cells(k,1).Value = TheValue 　　Next k

3、减少对象的激活和选择

代码如下

复制代码

　　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的童鞋都知道的方法，也是最有效的方法，但需要注意一点，就是关闭屏幕刷新后一定要记得，代码运行完毕后重新打开，特别是运行出错的时候要有正确的错误处理，来保障屏幕刷新可以重新被打开：

代码如下	复制代码
Application.ScreenUpdate = False '关闭屏幕刷新 On Error Goto ErrLab 　　ErrLab: 　　Application.ScreenUpdate = True

'打开屏幕刷新