我可以使這個宏更快嗎？

Question

我該如何提高這個宏的速度？

我的宏：

Attribute VB_Name = "RemplazoString" 
Sub MACRO() 
    bAlerts = Application.DisplayAlerts 
    Application.DisplayAlerts = False 
    For i = 1 To Worksheets.Count 
     Worksheets(i).Cells.Replace What:="T:\", Replacement:="T:\Gestion\", LookAt:=xlPart 
    Next 
    Application.DisplayAlerts = bAlerts 
End Sub 

Answer 1

在這裏尋找更多的宏觀速度的改進：

• http://blogs.office.com/2009/03/12/excel-vba-performance-coding-best-practices/
• http://www.ozgrid.com/VBA/SpeedingUpVBACode.htm

特別是對於你的代碼，你可以改變：

1. Application.ScreenUpdating = False
2. Application.Calculation = xlCalculationManual
3. Application.EnableEvents = False（這是可選的，但我通常把它放在我的代碼的情況下，我在我的代碼的事件）

此外，我會小心上面的如果你不想凍結你的Excel窗口，如果你的Sub內部發生了錯誤，請加上一個en錯誤處理程序。

所以，你的代碼看起來像如下：

Attribute VB_Name = "RemplazoString" 
Sub MACRO() 
    On Error GoTo ErrHandler: 
    'Speed Up block 
    Application.ScreenUpdating = False 
    Application.Calculation = xlCalculationManual 
    Application.EnableEvents = False 
    '--- 
    bAlerts = Application.DisplayAlerts 
    Application.DisplayAlerts = False 
    For i = 1 To Worksheets.Count 
     Worksheets(i).Cells.Replace What:="T:\", Replacement:="T:\Gestion\", LookAt:=xlPart 
    Next 
    Application.DisplayAlerts = bAlerts 

    'Leave speed up settings as default 
    Application.ScreenUpdating = True 
    Application.Calculation = xlCalculationAutomatic 
    Application.EnableEvents = True 
    '--- 
Exit Sub 

ErrHandler: 
    'Leave speed up settings as default 
    Application.ScreenUpdating = True 
    Application.Calculation = xlCalculationAutomatic 
    Application.EnableEvents = True 
End Sub