Application.DisplayAlerts 屬性 (Excel)

如果開啟螢幕更新，則本屬性值為 True。 可讀寫的 Boolean。

語法

expression.ScreenUpdating

expression 代表 Application 物件的變數。

註解

關閉螢幕更新可加速巨集程式碼。 這樣將看不到巨集的執行程序，但巨集的執行速度加快了。

當巨集結束時，務必將 ScreenUpdating 屬性設定回 True。

範例

本範例示範如何關閉螢幕更新使程式碼執行更快速。 範例會隔欄隱藏 Sheet1 的欄，並追蹤這麼做所花費的時間。 範例第一次隱藏欄時，螢幕更新為開啟狀態；第二次則關閉螢幕更新。 當您執行此範例時，可以比較個別的執行時間，時間都顯示在訊息方塊中。

Dim elapsedTime(2) 
Application.ScreenUpdating = True 
For i = 1 To 2 
 If i = 2 Then Application.ScreenUpdating = False 
 startTime = Time 
 Worksheets("Sheet1").Activate 
 For Each c In ActiveSheet.Columns 
 If c.Column Mod 2 = 0 Then 
 c.Hidden = True 
 End If 
 Next c 
 stopTime = Time 
 elapsedTime(i) = (stopTime - startTime) * 24 * 60 * 60 
Next i 
Application.ScreenUpdating = True 
MsgBox "Elapsed time, screen updating on: " & elapsedTime(1) & _ 
 " sec." & Chr(13) & _ 
 "Elapsed time, screen updating off: " & elapsedTime(2) & _ 
 " sec."

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。