07/06/26 03:20:47
Application.ScreenUpdating = False
処理の終了段階でTrueに戻して下さい。
Application.EnableEvents = False
処理の終了段階でTrueに戻して下さい。
Application.Calculation = xlCalculationManual
処理の終了段階でxlCalculationAutomaticに戻して下さい。
マクロ動作中にEscキーで止められるのを抑制する。
マクロ動作中に一切のキーやマウス操作を制限する。
Application.Interactive = False
処理の終了段階でTrueに戻して下さい。
但し、この状態で何らかの理由でマクロが停止してしまうと、Excel自体は何も操作できない状態になってしまい、タスクマネージャで強制終了させなければならなくなります。この記述だけは確実に動作検証が終わってから設定して下さい。
マクロ動作中はマウスカーソルを「砂時計」にする。
Application.Cursor = xlWait
処理の終了段階でxlDefaultに戻して下さい。
URLﾘﾝｸ(www.asahi-net.or.jp)