'画面のちらつきを抑える Application.ScreenUpdating = False '画面のちらつきを解除 Application.ScreenUpdating = True