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

True の場合、画面の更新がオンです。値の取得および設定が可能です。ブール型 (Boolean) の値を使用します。True if screen updating is turned on. Read/write Boolean.

構文Syntax

expression.ScreenUpdatingexpression . ScreenUpdating

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

注釈Remarks

マクロの速度を向上させるため、画面を更新しないようにします。この場合、マクロの処理過程は見ることができませんが、実行速度が速くなります。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.

Example

次の使用例は、画面表示の更新をオフにすることで、どのくらいコードの実行を速くできるのかを示します。シート 1 の列を 1 列おきに非表示にする操作を 2 回行い、それぞれの操作にかかる時間を調べます。1 回目の操作では、画面表示の更新はオンになりますが、2 回目のときにはオフになります。実行すると、それぞれの操作の所要時間がメッセージ ボックスに表示されます。This example demonstrates how turning off screen updating can make your code run faster. The example hides every other column on Sheet1, while keeping track of the time it takes to do so. 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 
 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."

サポートとフィードバック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.