教你4種方法提高Excel中VBA的效率

因?yàn)镸icrosoftOffice辦公軟件被廣泛應(yīng)用，以及該軟件版本的不斷提升，功能不斷完善，所以在Office辦公軟件平臺(tái)上開發(fā)出的VBA應(yīng)用程序越來越多，而VBA是一種宏語言，在運(yùn)行速度上有很大的限制。因此VBA編程的方法直接關(guān)系到VBA程序運(yùn)行的效率，下面列舉了一些提高VBA程序運(yùn)行效率的方法。

一、盡量使用VBA原有的屬性、方法和Worksheet函數(shù)

由于 Excel 對(duì)象多達(dá)百多個(gè)，對(duì)象的屬性、方法、事件多不勝數(shù)，對(duì)于初學(xué)者來說可能對(duì)它們不全部了解，這就產(chǎn)生了編程者經(jīng)常編寫與Excel對(duì)象的屬性、方法相同功能的VBA代碼段，而這些代碼段的運(yùn)行效率顯然與Excel 對(duì)象的屬性、方法完成任務(wù)的速度相差甚大。例如用 Range 的屬性 CurrentRegion 來返回 Range 對(duì)象，該對(duì)象代表當(dāng)前區(qū)。（當(dāng)前區(qū)指以任意空白行及空白列的組合為邊界的區(qū)域）。同樣功能的VBA代碼需數(shù)十行。因此編程前應(yīng)盡可能多地了解Excel對(duì)象的屬性、方法。

充分利用Worksheet函數(shù)是提高程序運(yùn)行速度的極度有效的方法。

如求平均工資的例子：

      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″))

其它函數(shù)如Count,Counta,Countif,Match,Lookup等等，都能代替相同功能的VBA程序代碼，提高程序的運(yùn)行速度。

二、盡量減少使用對(duì)象引用，尤其在循環(huán)中

每一個(gè) Excel 對(duì)象的屬性、方法的調(diào)用都需要通過 OLE 接口的一個(gè)或多個(gè)調(diào)用，這些 OLE調(diào)用都是需要時(shí)間的，減少使用對(duì)象引用能加快VBA代碼的運(yùn)行。例如：

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

如果你發(fā)現(xiàn)一個(gè)對(duì)象引用被多次使用，則你可以將此對(duì)象用Set 設(shè)置為對(duì)象變量，以減少

對(duì)對(duì)象的訪問。如：

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)中要盡量減少對(duì)象的訪問

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

三、減少對(duì)象的激活和選擇

如果你的通過錄制宏來學(xué)習(xí)VBA的，則你的VBA程序里一定充滿了對(duì)象的激活和選擇，例如Workbooks(XXX).Activate、Sheets(XXX).Select、Range(XXX).Select 等,但事實(shí)上大多數(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

四、關(guān)閉屏幕更新

如果你的VBA程序前面三條做得比較差，則關(guān)閉屏幕更新是提高VBA程序運(yùn)行速度的最有效的方法，縮短運(yùn)行時(shí)間2/3左右。

關(guān)閉屏幕更新的方法：

Application.ScreenUpdate = False

請(qǐng)不要忘記VBA程序運(yùn)行結(jié)束時(shí)再將該值設(shè)回來：

Application.ScreenUpdate = True

以上是提高VBA運(yùn)行效率的比較有效的幾種方法。