VBA高速化の秘訣！Application.ScreenUpdatingの使い方と処理時間を比較

Sub MultiSheetUpdate()
    '// 画面更新を無効化
    Application.ScreenUpdating = False

    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells(1, 1).Value = "Updated"
    Next ws

    '// 画面更新を有効化
    Application.ScreenUpdating = True
End Sub

Application.ScreenUpdating = False

'// 処理内容

Application.ScreenUpdating = True ' 処理終了後に必ずTrueに戻す

Sub SafeScreenUpdating()
    On Error GoTo ErrorHandler '// エラー時の処理に移動

    Application.ScreenUpdating = False

    '// 処理内容を記載
    For i = 1 To 10000
        Cells(i, 1).Value = i
    Next i

    Application.ScreenUpdating = True '// 正常終了時
    Exit Sub

ErrorHandler:
    Application.ScreenUpdating = True '// エラー発生時もTrueに戻す
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub

Sub InefficientScreenUpdating()
    Dim i As Long
    For i = 1 To 10000
        Application.ScreenUpdating = False '// 画面更新を停止（繰り返しごとに設定）
        Cells(i, 1).Value = i
        Application.ScreenUpdating = True  '// 画面更新を再開（繰り返しごとに設定）
    Next i
End Sub

Sub EfficientScreenUpdating()
    Dim i As Long

    '// 処理全体で1度だけ画面更新を無効化
    Application.ScreenUpdating = False

    For i = 1 To 10000
        Cells(i, 1).Value = i
    Next i

    '// 処理終了後に画面更新を有効化
    Application.ScreenUpdating = True
End Sub

Sub UseArrayForEfficiency()
    Dim dataArray() As Variant
    Dim i As Long

    '// 配列にデータを格納
    ReDim dataArray(1 To 10000, 1 To 1)
    For i = 1 To 10000
        dataArray(i, 1) = i
    Next i

    '// 配列を一括でシートに書き込む
    Range("A1:A10000").Value = dataArray
End Sub

Application.Calculation = xlCalculationManual '// 再計算を停止

'// 処理内容

Application.Calculation = xlCalculationAutomatic '// 再計算を再開

Option Explicit

'// 計測を有効にするフラグ（Trueで計測有効、Falseで無効）
Public Const ENABLE_TIMING As Boolean = True

'// 開始時刻を記録する変数
Private startTime As Double

'// 計測開始関数
Public Sub StartTimer()
    If ENABLE_TIMING Then
        startTime = Timer
    End If
End Sub

'// 計測終了関数
Public Sub EndTimer(taskName As String)
    If ENABLE_TIMING Then
        Dim elapsed As Double
        elapsed = Timer - startTime
        Debug.Print taskName & " の処理時間: " & elapsed & " 秒"
    End If
End Sub

Sub CompareScreenUpdatingPerformance()
    Dim elapsedTime(2) As Double ' 処理時間を格納する配列
    Dim c As Range
    Dim i As Long

    '// 1回目: 画面更新を有効にした場合
    Application.ScreenUpdating = True
    StartTimer
    Worksheets("Sheet1").Activate
    For Each c In ActiveSheet.Columns
        If c.Column Mod 2 = 0 Then c.Hidden = True
    Next c
    EndTimer "画面更新を有効にした場合"
    elapsedTime(1) = Timer

    '// リセット: 列の非表示を解除
    For Each c In ActiveSheet.Columns
        c.Hidden = False
    Next c


    '// 2回目: 画面更新を無効化した場合
    Application.ScreenUpdating = False
    StartTimer
    Worksheets("Sheet1").Activate
    For Each c In ActiveSheet.Columns
        If c.Column Mod 2 = 0 Then c.Hidden = True
    Next c
    EndTimer "画面更新を無効化した場合"
    elapsedTime(2) = Timer

    '// リセット: 列の非表示を解除
    For Each c In ActiveSheet.Columns
        c.Hidden = False
    Next c

    '// 必ず画面更新を再有効化
    Application.ScreenUpdating = True
End Sub