我的宏如何計算它，如何防止Excel呈現電子表格？

Question

我的宏用數字更新了一個大的電子表格，但它運行速度非常緩慢，因爲excel在計算結果時會顯示結果。在宏完成之前，如何阻止excel渲染輸出？

Answer 1

我同時使用所提出的解決方案：

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 
... 
... 
... 
Application.Calculation = xlCalculationAutomatic 
Application.ScreenUpdating = True 

Answer 2

您可以在選項對話框中關閉自動計算，它將其設置爲只在您按F9時計算。

Answer 3

Application.ScreenUpdating =假

當然，並將其設置回爲True再次當您完成後，即使出現錯誤。 例子：

Public Sub MyMacro 
    On Error GoTo ErrHandler 
    Application.ScreenUpdating = False 
    ... do my stuff that might raise an error 
    Application.ScreenUpdating = True 
    Exit Sub 
ErrHandler: 
    Application.ScreenUpdating = True 
    ... Do something with the error, e.g. MsgBox  
End Sub 

Answer 4

在喬和SEER大廈（該使用舊的語法，所以它與Office 2000的VBA兼容）：

On Error Goto AfterCalculation 
Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 
... 

AfterCalculation: 
Application.Calculation = xlCalculationAutomatic 
Application.ScreenUpdating = True 

Answer 5

我也傾向於使用兩種建議的解決方案，即 ，但也保留用戶以前的計算模式。

對於這個特定的應用程序，這可能是根本不算什麼， 但它通常是讓用戶有你的程序結束後恢復其設置的最佳實踐：

Application.ScreenUpdating = False 
PreviousCalcMode = Application.Calculation 
Application.Calculation = xlCalculationManual 
    ... 
    ... 
    ... 
Application.Calculation = PreviousCalcMode 
Application.ScreenUpdating = True 

NB。如果在你的其他代碼中出現錯誤，插入一些可以打開Application.ScreenUpdating的錯誤處理也是值得的。） 如果內存爲我服務，當ScreenUpdating = false時，Excel不會顯示任何錯誤消息等。 事情是這樣的：

Sub DoSomeThing 


On Error Goto DisplayError 

Application.ScreenUpdating = False 
PreviousCalcMode = Application.Calculation 
Application.Calculation = xlCalculationManual 
    ... 
    ... 
    ... 
Application.Calculation = PreviousCalcMode 
Application.ScreenUpdating = True 

Exit Sub 

DisplayError: 
Application.Calculation = PreviousCalcMode 
Application.ScreenUpdating = True 

MsgBox Err.Description 
End 'This stops execution of macro, in some macros this might not be what you want' 
    '(i.e you might want to close files etc)' 
End Sub