由于Microsoft Office辦公套件的廣泛應用，以及該軟件版本的不斷提升，功能不斷完善，在Office辦公套件平臺上開(kāi)發(fā)出的的VBA應用程序越來(lái)越多，而VBA是一種宏語(yǔ)言，在運行速度上有很大的限制。因此VBA編程的方法直接關(guān)系到VBA程序運行的效率，本文列舉了一些提高VBA程序運行效率的方法。
方法1：盡量使用VBA原有的屬性、方法和Worksheet函數
由于Excel對象多達百多個(gè)，對象的屬性、方法、事件多不勝數，對于初學(xué)者來(lái)說(shuō)可能對它們不全部了解，這就產(chǎn)生了編程者經(jīng)常編寫(xiě)與Excel對象的屬性、方法相同功能的VBA代碼段，而這些代碼段的運行效率顯然與Excel對象的屬性、方法完成任務(wù)的速度相差甚大。例如用Range的屬性CurrentRegion來(lái)返回Range 對象，該對象代表當前區。（當前區指以任意空白行及空白列的組合為邊界的區域）。同樣功能的VBA代碼需數十行。因此編程前應盡可能多地了解Excel對象的屬性、方法。
充分利用Worksheet函數是提高程序運行速度的極度有效的方法。如求平均工資的例子：
For Each c In
Worksheet(1).Range(″A1:A1000″)
TotalValue = TotalValue ＋ c.Value
Next
AverageValue = TotalValue / Worksheet(1).Range(″A1:A1000″).Rows.Count
而下面代碼程序比上面例子快得多：
AverageValue=Application.WorksheetFunction.Average(Worksheets(1).Range(″A1:A1000″))
其它函數如Count,Counta,Countif,Match,Lookup等等，都能代替相同功能的VBA程序代碼，提高程序的運行速度。
方法2：盡量減少使用對象引用，尤其在循環(huán)中
每一個(gè)Excel對象的屬性、方法的調用都需要通過(guò)OLE接口的一個(gè)或多個(gè)調用，這些OLE調用都是需要時(shí)間的，減少使用對象引用能加快VBA代碼的運行。例如
1．使用With語(yǔ)句。
Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.Name=″Pay″
Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.FontStyle=″Bold″ ...
則以下語(yǔ)句比上面的快
With Workbooks(1).Sheets(1).Range(″A1:A1000″).Font
.Name = ″Pay″
.FontStyle = ″Bold″
...
End With
2．使用對象變量。
如果你發(fā)現一個(gè)對象引用被多次使用，則你可以將此對象用Set 設置為對象變量，以減少對對象的訪(fǎng)問(wèn)。如：
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．在循環(huán)中要盡量減少對象的訪(fǎng)問(wèn)。
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：減少對象的激活和選擇
如果你的通過(guò)錄制宏來(lái)學(xué)習VBA的，則你的VBA程序里一定充滿(mǎn)了對象的激活和選擇，例如Workbooks(XXX).Activate、Sheets(XXX).Select、Range(XXX).Select等,但事實(shí)上大多數情況下這些操作不是必需的。例如
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：關(guān)閉屏幕更新
如果你的VBA程序前面三條做得比較差，則關(guān)閉屏幕更新是提高VBA程序運行速度的最有效的方法，縮短運行時(shí)間2/3左右。關(guān)閉屏幕更新的方法：
Application.ScreenUpdate = False
請不要忘記VBA程序運行結束時(shí)再將該值設回來(lái)：
Application.ScreenUpdate = True
以上是提高VBA運行效率的比較有效的幾種方法。
