Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2124|回复: 2

[分享] 编写高效Excel VBA代码的最佳实践(四)

[复制链接]
发表于 2012-1-11 22:31 | 显示全部楼层 |阅读模式
本帖最后由 happym8888 于 2012-1-12 10:19 编辑

编写高效Excel VBA代码的最佳实践(三)
http://www.excelpx.com/thread-219335-1-1.html
编写高效Excel VBA代码的最佳实践(四)
下面的示例代码更简洁,其运行速度大约是最佳实践(三)中结尾处代码的23倍。因为For EachNext循环自动记录行数并定位,而不需要调用变量i
Sub DoSomethingFaster()
Dim Start As Double, Finish As Double
Start = Timer
'**
Dim Cell As Range
With Sheet1
For Each Cell In .Range(A1:A10000)
If Cell > 0 Then
Cell.Font.ColorIndex = 5
End If
Next
End With
'**
Finish = Timer
MsgBox “本次运行的时间是” & Finish Start
End Sub
在执行循环时考虑如何能够尽可能地节省资源
(1)分析循环以查看是否正在不必要地执行一些消耗内存的重复操作。例如,是否可以在循环外(而不是在循环中)设置某些变量?每次都通过循环执行的转换过程是否可以在循环之外执行?
(2)考虑是否必须在满足特定的条件时才执行循环。如果是,也许可以更早地退出循环。例如,假设正在对一个不应该包含数字字符的字符串进行数据验证。如果循环要检查字符串中的每个字符以确定其中是否包含数字字符,那么您可以在找到第一个数字字符时立即退出循环。
(3)如果必须在循环中引用数组的元素,可以创建一个临时变量存储该元素的值,而不是引用数组中的值。从数组中检索值比从相同类型的变量读取值要慢。
(4) 将属性和方法放在循环外部
在代码运行时,获取变量的值快于获取属性的值。因此,如果您的代码在循环内部获取属性的值,您可以在循环外部将该属性的值先指定给一个变量,然后在循环内部使用此变量代替属性的值,这样的代码将运行得更快。
下面所示的代码运行较慢,因为在每次重复循环时都必须获取SheetRange属性的值。
Sub TryThisSlow()
Dim Start As Double, Finish As Double
Start = Timer
'**
Dim MyLoop As Long
For MyLoop = 2 To 4001
Cells(MyLoop, 2) = Sheet1.Range(B1)
Next
'**
Finish = Timer
MsgBox “本次运行的时间是” & Finish Start
End Sub
下面的示例与上面所产生的结果相同,但比上面的要更快,因为在循环开始以前我们已经将SheetRange属性的值指定给了单独的变量MyVar。这样,代码将在每次重复循环时利用该变量的值,而不必每次都要调有属性。
Sub TryThisFaster()
‘快约35%以上
Dim Start As Double, Finish As Double
Start = Timer
'**
Dim MyVar As String, MyLoop As Long
MyVar = Sheet1.Range(B1)
For MyLoop = 2 To 4001
Cells(MyLoop, 2) = MyVar
Next
'**
Finish = Timer
MsgBox “本次运行的时间是” & Finish Start
End Sub
如果您在一个循环内部使用多个对象访问,您也可以使用WithEnd With将您能够移动的对象移到循环外部。下面的示例在每次循环重复时都调用Sheets对象和Cells属性。
Sub NowTryThisSlow()
Dim Start As Double, Finish As Double
Start = Timer
'**
Dim c As Long
For c = 1 To 8000
Sheet1.Cells(c, 5) = c
Next
'**
Finish = Timer
MsgBox “本次运行的时间是” & Finish Start
End Sub
对上面的代码改写如下,使用With语句将调用Sheets对象移到循环外部,只剩余调用Cells
Sub NowTryThisFaster()'约快3
Dim Start As Double, Finish As Double
Start = Timer
'**
Dim c As Long
With Sheet1
For c = 1 To 8000
.Cells(c, 5) = c
Next
End With
'**
Finish = Timer
MsgBox “本次运行时间为” & Finish Start
End Sub
注:您也能通过使用对象变量在循环外部调用该对象。
编写高效Excel VBA代码的最佳实践(五)
http://www.excelpx.com/thread-219412-1-1.html
发表于 2012-1-11 22:52 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2012-1-11 22:56 | 显示全部楼层
zjxia889 发表于 2012-1-11 22:52
加油,再来

嘻嘻,明天再发(五)我像个精明的生意人,不放过每次赚积分经验的机会。(包括本回复
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-11-1 07:24 , Processed in 0.195523 second(s), 5 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表