'画面のちらつきを停止 Application.ScreenUpdating = False '処理 '画面のちらつきを解除 Application.ScreenUpdating = True