Application.ScreenUpdating

処理速度向上の一。

Application.ScreenUpdating = False

' 実処理

Application.ScreenUpdating = True

画面表示の更新を止めるプロパティですね。もっとも有名なプロパティの一つではないでしょうか。

時間の計測をしてみて、どれくらい異なるかを検証してみます。

Public Sub Test_NoScreenUpdating()
   
    Dim i As Integer
    Dim j As Integer
   
    For j = 1 To 1000
        For i = 1 To 100
            Cells(j, i).Value = i + j
        Next
    Next
   
End Sub

Public Sub Test_ScreenUpdating()
   
    Application.ScreenUpdating = False
    Call Test_NoScreenUpdating
    Application.ScreenUpdating = True
   
End Sub

[Result]
1つ目のコード：100秒
2つ目のコード：51秒

およそ半分ですね。大体どんな時も、ワークシート上に何か手を加えるときについては、使わない手はないです。

タグ：ExcelVBA ScreenUpdating