VBA提速總結

怼烎@ 2022-08-27 02:29 184阅读 0赞

VBA提速總結

1.强制声明变量  
保証在代码顶部有Option Explicit语句，這將要求您在编写代码时对所有出现的变量均进行声明，这样，在使用变量时减少内存需求并加速性能。

2.停止相關屬性  
(1)关闭屏幕刷新,在Excel中，其ScreenUpdating属性值的默认值为True，这样当写数据到工作表或者执行任何导致其显示属性变化的动作时，Excel的屏幕界面将会不断的刷新，不仅影响显示，而且影响程序运行的速度。您可以在进入主程序运行前将屏幕刷新属性关闭，即用Application.ScreenUpdating = False语句关闭屏幕刷新，这样将大大改善程序的运行速度。  
但在程序运行完成前，要确保将其恢复为原来的设置，即将ScreenUpdating属性的值设置为True。因为您对该属性的修改是永久性的修改，Excel不会为您自动恢复其默认值，您必须用语句Application.ScreenUpdating = True恢复设置。

(2)将Application.EnableEvents设定为False,禁止触发事件.这个在有其它自定义事件时,如定义了Worksheet\_Change时,就有需要设定,还原时设定为True.

(3)将Application.Interactive设定为False,禁止交互模式.当我们运行程序时,如删除有数据的工作表而不需要提示,这时就可以使用,见意这段代码只加在需要的地方,之后就立即开启.

(4)在进入主程序运行前，将计算模式设置为手动，即使用如下语句Application.Calculation = xlCalculationManual，以避免不必要的计算。 当程序运行结束前，设置为自动重算，可使用下面的语句Application.Calculation = xlCalculationAutomatic，这同ScreenUpdating属性一样，Excel不会自动恢复其为默认值。Calculation 属性是对所有工作簿进行的设置，您也可以用工作表的EnableCalculation属性来设置对某个工作表是否进行重新计算。

2.對象引用  
(1).单元格（区域）写法的选择  
单元格（区域）写法有3种,以A1单元格为例,可以使用  
最快:Cell对象写法:cells(1,1)  
稍慢:Range对象写法:Range("A1")  
最慢:名称写法:\[A1\]

此外,要明示对象属性而不要依赖于对象的默认属性.  
例1:  
x= cells(1,1)  
优化后:  
x= cells(1,1).value

(2).盡可能少使用對象引用,可以在局部进行缓存对象引用  
如:  
Dim i As Long  
For i=1 to 10  
Workbooks(“Book1.xls”).Worksheets(“Sheet1”).Cells(1,i).Value=i  
Next i  
优化后的:  
Dim ws As Worksheet  
Dim i As Long  
Set ws= Workbooks(“Book1.xls”).Worksheets(“Sheet1”)  
For i=1 to 10  
ws.Cells(1,i).Value=i  
Next i

3.語句選擇  
(1)條件語句  
分解IF语句  
例1:  
IF A AND B THEN  
优化后:  
IF A THEN  
IF B THEN

例2:  
IF A OR B then  
优化后:  
IF A THEN  
...  
ELSE IF B THEN

(2)case語句  
并列的条件使用elseif或select,elseif写起来麻烦,但速度优于select

(3)循环语句  
For 语句快于DO/WHILE,特别是步长为1時更明显  
For/each快于for/to  
盡量不要使用遞歸

(4)使用With…End With语句  
可以使用With…End With语句来尽量减少对象引用。使用With语句对指定的对象完成一系列的任务，而不用重复引用对象。也可以使用嵌套的With语句进一步提高程序代码的效率。  
如:  
With Workbooks(“Book1.xls”).Worksheets(“Sheet1”).Range(“A1”)  
.Formula=”=SQRT(20)”  
With .Font  
.Name=”Arial”  
.Bold=True  
.Size=10  
End With  
End With

4.函數選擇  
(1).使用Len()检验空串  
为了测试零长度的串，可以选择把串与””相比较，或者比较串的长度是否为0，但这些方法比用Len()函数要用更多的执行时间。当对字符串应用Len()函数并且函数返回0值时，说明该字符串是空的或者是零长度的字符串。  
并且，因为在If语句内非零值被认为是True，所以直接使用Len()函数而不必与””或0比较，减少了处理时间，因此执行更快。  
例1:  
if str<>"" then  
优化后:  
if len(str) then

(2).使用工作表函数（方法）

有些工作表函数（方法）速度是很快的,比如FIND,VLOOKUP等,要记得使用它们,不要花力气去做不讨好的事。当使用工作表函数时,操作对象应避免使用内存变量,那样反而慢。

參考文獻:  
[http://fanjy.blog.excelhome.net/user1/fanjy/archives/2006/542.html][http_fanjy.blog.excelhome.net_user1_fanjy_archives_2006_542.html]  
[http://blog.excelhome.net/user1/fanjy/archives/2006/604.html][http_blog.excelhome.net_user1_fanjy_archives_2006_604.html]

[http_fanjy.blog.excelhome.net_user1_fanjy_archives_2006_542.html]: http://fanjy.blog.excelhome.net/user1/fanjy/archives/2006/542.html
[http_blog.excelhome.net_user1_fanjy_archives_2006_604.html]: http://blog.excelhome.net/user1/fanjy/archives/2006/604.html