VBA基础教程.pptVIP

* 一、提高VBA執行效率 方法（1）儘量實用VBA原有的屬性 、方法和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）儘量減少實用對象的引用,尤其在循環中 1．使用With語句。 Workbooks(1).Sheets(1).Range(〃A1:A1000〃).Font.Name=〃Pay〃 Workbooks(1).Sheets(1).Range(〃A1:A1000〃).Font.FontStyle=〃Bold〃?