Application

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

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

Load More

タイトルとURLをコピーしました