【Excel VBA】高速化方法まとめ

Sub Test()

    '画面更新 無効
    Application.ScreenUpdating = False
    
    '処理
    Dim i As Integer
    For i = 1 To 10000
        Cells(1, 1).Value = 1
    Next
    
    '画面更新 有効
    Application.ScreenUpdating = True

End Sub

Sub Test()

    '再計算 手動
    Application.Calculation = xlCalculationManual
    
    '処理
    Dim i As Integer
    For i = 1 To 10000
        Cells(1, 1).Value = 1
    Next
    
    '再計算 自動
    Application.Calculation = xlCalculationAutomatic

End Sub

Sub Test()

    'イベント発生 無効
    Application.EnableEvents = False
    
    '処理
    Dim i As Integer
    For i = 1 To 10000
        Cells(1, 1).Value = 1
    Next
    
    'イベント発生 有効
    Application.EnableEvents = True

End Sub