EXCEL VBA 応答なしを回避・実行中のプログラムを中断・停止させる(DoEvents関数)

 

 

EXCEL VBA 応答なしを回避・実行中のプログラムを中断・停止させる(DoEvents関数)

 

 

 ●はじめに

今回説明するのは、ループ処理などを利用して複雑な処理を実行すると、プログラムの実行中に【応答なし】と表示され、プログラムが固まっているのか、動作中なのか分からなくなります。DoEvents関数をプログラムの処理途中に追記する事で、プログラム実行中の【応答なし】を回避する事が出来ます。DoEvents関数は、オペレーティングシステムに一時的に制御を移すための関数です。なお、プログラム内にDoEvents関数を多用すると全体的な処理時間が掛かってしまうので、処理内容に応じて実行回数を含めて調整する必要があります。それでは、サンプルプログラムを交えて順番に説明いたします。

 

●【DoEvents関数については、下記を参照して下さい】(Microsoft社 様)】
https://docs.microsoft.com/ja-jp/office/vba/api/excel.formatconditions

 

 

 ●書式の説明

● DoEvents関数を利用するには、下記の通りに設定を行います。

【使用例】
DoEvents

※プログラム内部に設置する。引数なし

【使用例】:DoEvents関数無し

【プログラム実行中】:DoEvents関数無し 

【使用例】:DoEvents関数有り


【プログラム実行中】:DoEvents関数有り 

【注意点】
・DoEvents関数を多用すると全体的に処理が遅くなります。
(ループ処理の場合は、100ループに1回DoEvents関数を使うなど処理内容に応じて調整が必要です)

 

 

 

 

EXCEL VBA 応答なしを回避・ステースクバー実行中の状況を表示させる(DoEvents関数)

 

 

 ●プログラム説明 (サンプル①)

下記のサンプルプログラムは、ループ処理内にDoEvents関数を設置し、プログラム実行中の応答無しの回避とステースクバーにより、処理状況を確認する事のできるサンプルプログラムです。なお、下記のプログラムでは、2重ループの構造となっており、ループ①が10万回ループするうちの1万回ごとに、DoEvents関数を実行出来る様に設置して応答なしを回避しています。

【プログラムの流れ】

① ループ①10万回ループします。
② ループ②10回ループします。
③ セル(A1~A10)に数値を記入します。 ※処理部分
④ ループ①で1万回に1回に、ステータスバーに処理状況とDoEvents関数(オペレーティングシステムへ制御を一時的に移す)で「応答なし」を回避します。
⑤ ステータスバーの【■】を加算します。
⑥ ループ①②⇒終了後、ステータスバーを元に戻す。

 

 

 

 

 

●実行前~実行後 ※プログラム実行中は、ループ処理により時間が掛かるが、DoEvents関数により応答なしを回避し、実行経過をステークスバーで確認する事が出来ます。
(画面クリックして拡大)

 

 

 

 

EXCEL VBA 応答なしを回避・キー操作によりプログラムを一時停止・再開させる(DoEvents関数)

 

 

 ●プログラム説明 (サンプル②)

下記のサンプルプログラムは、サンプル①の応用になります。今回のサンプルプログラムは、「ESC」キーを押すことで、処理の実行中に対して中断又は一時停止を行う事ができます。実行処理に時間が掛かるループ処理を行う場合に、一時停止などをする事ができるので、便利だと思います。サンプルプログラム①と同様ループ処理内にDoEvents関数とステースクバーをプログラム内に設置し、処理状況を確認する事もできます。

 

【プログラムの流れ】

① ループ①10万回ループします。
② ループ②10回ループします。
③ セル(A1~A10)に数値を記入します。 ※処理部分
④ ループ①で1万回に1回に、ステータスバーに処理状況とDoEvents関数(オペレーティングシステムへ制御を一時的に移す)で「応答なし」を回避します。ステータスバーの【■】を加算します。
⑤ キーボードの「ESC」押すと一時停止し、「プログラムを中断しますか?」のメッセージが表示します。
(はい…プログラム停止・いいえ・・そのままプログラム実行)
⑥ ループ①②⇒終了後、ステータスバーを元に戻す。

★【サンプルプログラム】
下記のリンク先よりサンプルプログラムをダウンロードする事ができます。
● DoEvents03(サンプルプログラム)

 

 

 

 

 ●実行前~実行後 ※今回のプログラムでは、プログラム実行中にキーボードの「ESC」キーを押すことで、プログラムを中断するか継続するかを選択する事ができます。DoEvents関数により応答なしを回避し、実行経過をステークスバーで確認する事が出来ます。
(画面クリックして拡大)

 

 

最後まで、ご覧いただきまして誠に有難うございました。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。