【VBA】画面更新

一括設定と個別設定
必ず入れるというよりは、必要に応じて入れるようにする。

Sub 全更新OFF()

    With Application
        .ScreenUpdating = False '描画OFF
        .EnableEvents = False 'イベントOFF
        .Calculation = xlCalculationManual '自動計算OFF
    End With

End Sub

Sub 全更新ON()

    With Application
        .Calculation = xlCalculationAutomatic '自動計算ON
        .EnableEvents = True 'イベントON
        .ScreenUpdating = True '描画ON
    End With

End Sub

Sub 画面更新OFF()

    Application.ScreenUpdating = False

End Sub

Sub 画面更新ON()

    Application.ScreenUpdating = True

End Sub

Sub イベントOFF()

    Application.EnableEvents = False

End Sub

Sub イベントON()

    Application.EnableEvents = True

End Sub

Sub 自動計算OFF()

    Application.Calculation = xlCalculationManual

End Sub

Sub 自動計算ON()

    Application.Calculation = xlCalculationAutomatic

End Sub

ついでにこちらも。

Sub コピーモード解除()

    Application.CutCopyMode = False

End Sub