Application.ScreenUpdating プロパティ (Excel)Application.ScreenUpdating property (Excel)

画面の更新が有効の場合は TrueTrue if screen updating is turned on. 読み取り/書き込みが可能な Boolean です。Read/write Boolean.



expression**Application** オブジェクトを 表す変数。expression A variable that represents an Application object.


マクロの速度を向上させるため、画面を更新しないようにします。Turn screen updating off to speed up your macro code. この場合、マクロの処理過程は見ることができませんが、実行速度が速くなります。You won't be able to see what the macro is doing, but it will run faster.

マクロが終了した後は、ScreenUpdating プロパティの値を True に戻してください。Remember to set the ScreenUpdating property back to True when your macro ends.


次の使用例は、画面表示の更新をオフにすることで、どのくらいコードの実行を速くできるのかを示します。This example demonstrates how turning off screen updating can make your code run faster. シート 1 の列を 1 列おきに非表示にする操作を 2 回行い、それぞれの操作にかかる時間を調べます。The example hides every other column on Sheet1, while keeping track of the time it takes to do so. 1 回目の操作では、画面表示の更新はオンになりますが、2 回目のときにはオフになります。The first time the example hides the columns, screen updating is turned on; the second time, screen updating is turned off. 実行すると、それぞれの操作の所要時間がメッセージ ボックスに表示されます。When you run this example, you can compare the respective running times, which are displayed in the message box.

Dim elapsedTime(2) 
Application.ScreenUpdating = True 
For i = 1 To 2 
 If i = 2 Then Application.ScreenUpdating = False 
 startTime = Time 
 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."

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.