VBA系列講座(6):提高Excel中VBA的效率

由於Microsoft Office辦公套件的廣泛應用,以及該軟體版本的不斷提升,功能不斷完善,在Office辦公套件平台上開發出的的VBA應用程序越來越多,而VBA是一種宏語言,在運行速度上有很大的限制。因此VBA編程的方法直接關係到VBA程序運行的效率,本文列舉了一些提高VBA程序運行效率的方法。方法1:盡量使用VBA原有的屬性、方法和Worksheet函數由於Excel對象多達百多個,對象的屬性、方法、事件多不勝數,對於初學者來說可能對它們不全部了解,這就產生了編程者經常編寫與Excel對象的屬性、方法相同功能的VBA代碼段,而這些代碼段的運行效率顯然與Excel對象的屬性、方法完成任務的速度相差甚大。例如用Range的屬性CurrentRegion來返回Range 對象,該對象代表當前區。(當前區指以任意空白行及空白列的組合為邊界的區域)。同樣功能的VBA代碼需數十行。因此編程前應儘可能多地了解Excel對象的屬性、方法。充分利用Worksheet函數是提高程序運行速度的極度有效的方法。如求平均工資的例子:For Each c InWorksheet(1).Range(″A1:A1000″)TotalValue = TotalValue + c.ValueNextAverageValue = TotalValue / Worksheet(1).Range(″A1:A1000″).Rows.Count而下面代碼程序比上面例子快得多:AverageValue=Application.WorksheetFunction.Average(Worksheets(1).Range(″A1:A1000″))其它函數如Count,Counta,Countif,Match,Lookup等等,都能代替相同功能的VBA程序代碼,提高程序的運行速度。方法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 With2.使用對象變數。如果你發現一個對象引用被多次使用,則你可以將此對象用Set 設置為對象變數,以減少對對象的訪問。如:Workbooks(1).Sheets(1).Range(″A1″).Value = 100Workbooks(1).Sheets(1).Range(″A2″).Value = 200則以下代碼比上面的要快:Set MySheet = Workbooks(1).Sheets(1)MySheet.Range(″A1″).Value = 100MySheet.Range(″A2″).Value = 2003.在循環中要盡量減少對象的訪問。For k = 1 To 1000Sheets(″Sheet1″).SelectCells(k,1).Value = Cells(1,1).ValueNext k則以下代碼比上面的要快:Set TheValue = Cells(1,1).ValueSheets(″Sheet1″).SelectFor k = 1 To 1000Cells(k,1).Value = TheValueNext k方法3:減少對象的激活和選擇如果你的通過錄製宏來學習VBA的,則你的VBA程序里一定充滿了對象的激活和選擇,例如Workbooks(XXX).Activate、Sheets(XXX).Select、Range(XXX).Select等,但事實上大多數情況下這些操作不是必需的。例如Sheets(″Sheet3″).SelectRange(″A1″).Value = 100Range(″A2″).Value = 200可改為:With Sheets(″Sheet3″).Range(″A1″).Value = 100.Range(″A2″).Value = 200End With方法4:關閉屏幕更新如果你的VBA程序前面三條做得比較差,則關閉屏幕更新是提高VBA程序運行速度的最有效的方法,縮短運行時間2/3左右。關閉屏幕更新的方法:Application.ScreenUpdate = False請不要忘記VBA程序運行結束時再將該值設回來:Application.ScreenUpdate = True以上是提高VBA運行效率的比較有效的幾種方法。
推薦閱讀:

提高寶寶免疫力的五種食物
100天行動之情感日記:幫你提高情感溝通能力
提高工作效率的軟體有哪些?
食療幫助你提高睡眠質量
巧用食物提高生育能力 男人吃什麼

TAG:效率 | 提高 | 講座 | Excel |