【VBA】画面更新関連

画面更新ON/OFF

Function 描画OFF()
    Application.ScreenUpdating = False
End Function
Function 描画ON()
    Application.ScreenUpdating = True
End Function

イベントON/OFF

Function イベントOFF()
    Application.EnableEvents = False
End Function
Function イベントON()
    Application.EnableEvents = True
End Function

自動計算ON/OFF

Function 自動計算OFF()
    Application.Calculation = xlCalculationManual
End Function
Function 自動計算ON()
    Application.Calculation = xlCalculationAutomatic
End Function

画面更新・イベント・自動計算まとめてON/OFF

Function 描画イベント自動計算OFF()
    With Application
        .ScreenUpdating = False              '描画OFF
        .EnableEvents = False                'イベントOFF
        .Calculation = xlCalculationManual   '自動計算OFF
    End With
End Function
Function 描画イベント自動計算ON()
    With Application
    	.Calculation = xlCalculationAutomatic   '自動計算ON
    	.EnableEvents = True                    'イベントON
    	.ScreenUpdating = True                  '描画ON
    End With
End Function

警告ON/OFF

Function 警告OFF
    Application.DisplayAlerts = False
End Function
Function 警告ON()
    Application.DisplayAlerts = True
End Function

コピーモード解除

Function コピーモード解除()
    Application.CutCopyMode = False
End Function