Application

'新たなイベント発生の抑制------ Application .EnableEvents = False '元に戻す------ Application .EnableEvents = True

'警告メッセージの停止 Application.DisplayAlerts = False '警告メッセージを通常表示 Application.DisplayAlerts = True

'1秒間処理を中断する Application .Wait Now + TimeValue ( " 00:00:1 " )

Application.ScreenUpdating = False Application.ScreenUpdating = True

'新たなイベント発生の抑制------
Application.EnableEvents = False

'元に戻す------
Application.EnableEvents = True

'手動計算
Application.Calculation = xlCalculationManual

'再計算の実行
Application.Calculate 

'自動計算
Application.Calculation = xlCalculationAutomatic

'警告メッセージの停止
Application.DisplayAlerts = False

'警告メッセージを通常表示
Application.DisplayAlerts = True

'1秒間処理を中断する
Application.Wait Now + TimeValue("00:00:1")

Application.ScreenUpdating = False
Application.ScreenUpdating = True