ExcelVBA マクロ実行で画面更新ちらつきや処理速度が遅くなる改善方法

ExcelVBA  マクロを実行すると、画面が更新されるたびにチラついたり、処理速度が遅くなったりすることがあります。この「画面のちらつき」を抑えることで、処理速度を向上 させ、ユーザーのストレスを軽減 できます。 使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA 画面更新ちらつきや処理速度が遅い｜シーン

Excel VBA 画面更新ちらつきや処理速度が遅い｜サンプルコード

Option Explicit

Sub PreventFlicker()
    ' 画面の更新を停止
    Application.ScreenUpdating = False

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 100行分のセル値を変更（画面のちらつきを抑える）
    Dim i As Integer
    For i = 1 To 100
        ws.Cells(i, 1).Value = "データ" & i
    Next i

    ' 画面の更新を再開
    Application.ScreenUpdating = True
End Sub

標準モジュール

Option Explicit

Sub SwitchSheetsWithoutFlicker()
    Application.ScreenUpdating = False

    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")

    ' シート1のA1の値をシート2のA1にコピー
    ws2.Range("A1").Value = ws1.Range("A1").Value

    ' 画面の更新を再開
    Application.ScreenUpdating = True
End Sub

標準モジュール

Option Explicit

Sub OptimizePerformance()
    ' 画面の更新を停止
    Application.ScreenUpdating = False
    ' 自動計算をオフ（手動計算）
    Application.Calculation = xlCalculationManual
    ' イベント処理をオフ
    Application.EnableEvents = False

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Dim i As Integer
    For i = 1 To 1000
        ws.Cells(i, 1).Value = "処理" & i
    Next i

    ' 設定を元に戻す
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub

Excel VBA 画面更新ちらつきや処理速度が遅い｜注意点

1. 処理が終わったら ScreenUpdating = True に戻す。
False のままだと、Excelの画面が更新されず違和感が出る

2. デバッグ時は False を使わない方がよい。
画面が止まるため、どこで止まっているのか分かりにくくなる。

3. 計算モードの変更に注意
Application.Calculation = xlCalculationManual を設定した場合は、マクロ終了後に xlCalculationAutomatic に戻す必要がある

Excel VBA 画面更新ちらつきや処理速度が遅い｜まとめ