その際に通常のメニューにある実行の停止はグレーアウトして
選択できないため、プログラム実行が終わるまで待つ方もいるのではないでしょうか。

そこで今回はキーボード操作のみでできる実行中のコードを
停止させる方法について紹介します。

作業自体もとても簡単なので是非参考にしてみてください。
それでは見ていきましょう。

⬛︎こんなことができるようになる！

・実行中のプロシージャを強制的に途中停止できる。
・処理中のコードを途中停止できる

⬛︎実行コードを強制停止・終了する

では本題に入っていきましょう。
見本で下記のような簡単なコードを用意しました。

Sub 繰り返し処理()
Dim Time1 As Double, Time2 As Double, Result As Double
Dim Cycle As Long

Time1 = Timer
For Cycle = 1 To 1000 Step 1
 Cells(1, 1) = "=SUM(D:D)"
 Cells(1, 1) = "=SUM(D:D)" 
 Cells(1, 1) = "=SUM(D:D)"
Next Cycle

Time2 = Timer
Result = Time2 - Time1
MsgBox Result & "秒で処理しました"
End Sub

内容としてはセル番地A1からA3にＤ列の合計の算出を
SUM関数を用いて10000回繰り返すコードになります。

見本なので無意味な繰り返しをしていますが
こちらを実行すると「138秒」かかってしまいます。

一度実行してしまうと止まるまでに約２分待たないといけないので
誤動作時にはとてもめんどくさいです。
こちらを実行中に途中で止めてみましょう。

使用するキーは「エスケープキー」になります。
大半のキーボードでは左上に配置されており「Esc」と記されていると思います。

では実際に「Escキー」を活用してみましょう。
活用方法は簡単で、実行中に押すのみです。

では先程のコードを実行して「Escキー」を押してみたいと思います。
結果はこのようになりました。

「コードの実行が中断されました。」というメッセージが表示されました。
よく、エラー時に表示されるメッセージです。

では確認も含めてデバッグを押してみましょう。

変数Nは本来であれば10000回繰り返しますが
543回で止まっています。

つまり強制的に停止が出来たことになります。

とても簡単ですね。

⬛︎停止後の復帰方法

ここからは停止の復帰方法です。
デバッグ作業をされた事がある方は復習になりますが
一連の復帰方法を見ていきましょう。

・完全に実行を中断したい場合

現在の状態はあくまで強制停止状態にあります。
なので、そこから再度実行もできますし、デバッグもできます。

今回は完全に実行を中断するわけですから
先程のメッセージから「終了」を押します。

これで強制終了が終わりました。

注意点として、どこまでのコードが実行されたかは
確認が出来ないのでシートを確認して現状を把握する必要があります。

どこまでのコードが実行されたか確認する方法は次の項目で説明します。

・どこまでのコードを実行したか確認して終了する

今度はどこまでのコードが実行されたか確認して終了する手順を紹介します。

「Escキー」を押した後にでるメニューか「デバッグ」を選択します。

すると黄色く塗りつぶされた行があるのですか
そこまでコードが実行されたことを示します。

見本のように繰り返し動作の場合は変数を確認すれば何回まで繰り返し処理が行われたか確認することが出来ます。

その後、「リセット」ボタンにて停止中のプロシージャを
完全に中断することができます。

・コード実行を再開したい場合

最後にコードの実行を再開したい場合を見ていきましょう。

まずは、アラーム時の復帰から見ていきます。

操作は簡単でメニューにある「継続」を押せば、動作を再開してくれます。

次に「デバッグ」で停止させた後に再開の方法を見ていきましょう。

こちらは「F5」キーまたは「ユーザーフォームの実行」ボタンでコード実行の再開を行うことができます。

もちろん再開後も再度、「Esc」キーで停止させることも可能です。

■Escでも強制終了できない場合

Escキーでも止まらない場合はタスクマネージャーで停止させることも可能です。

しかし、先ほどまでの停止方法とは異なり、Excel自体の強制終了になるので

上書き保存をしていないと、前回の保存以降の処理が消えてしまうので注意が必要です。

では方法を見ていきましょう。

まずキーボードの「Ctrl」+「Alt」+「Delete」を押します。

するとメニューが表示されるので「タスクマネージャー」を選択します。

「プロセス」タブに「Microsoft　Excel」の項目があると思うので選択します。

最後に「タスクの終了」があるのでこちらを選択します。

するとExcelが強制終了します。

強制終了後のファイルの復元方法については下記記事をご参照ください☟

保存できずに終了・上書きしたエクセルファイルを復元する方法一覧！消えたファイルを元に戻す ► 独学エクセル塾 (dokugakuexcel.com)

いずれもコードの実行前には上書きを推奨します。

⬛︎まとめ

いかがだったでしょうか。
処理に時間がかかるプロシージャを途中で止めたくなった
場合など様々な場面で使用できそうですね。

また「Escキー」のみで操作可能なので
とても簡単な方法になっています。

是非参考にしてみてください。
それでは次回の記事でお会いしましょう。

IFなどの条件分岐をしている場合や、On Errorでエラーになった場合の処理をしている場合などには
今回紹介する方法と相性がよく、指定した条件になったらプログラムを終了なんてこともできます。

見本の事例も紹介していますので是非参考にしてみてください。

それではみていきましょう。

⬛︎忙しい人向けのコピぺ用プログラム

・条件に当てはまる場合はプログラムを終了させる

Sub 条件の場合()

If プログラムをとめる条件 Then
MsgBox "プログラムを終了します"
Exit Sub
End If

'ここに処理プログラム
End Sub

・エラーが発生した場合はプログラムを終了させる

Sub エラーの場合()

On Error GoTo Error1
'ここに処理プログラム
Exit Sub

Error1:
MsgBox "プログラムを終了します"

End Sub

⬛︎構文の説明

Exit Sub

これだけです、
「Exit Sub」を実行した時点でプログラムは終了します。

⬛︎Exit Subの仕組みと特徴

構文を見てもらったらわかる通り「Exit Sub」のみで、実行中のプログラムを終えることができます。
通常、プログラムを終了させるのは「End Sub」ですよね。

しかし「End Sub」はプログラムの最終行になければいけません。
それでも条件によっては途中で終わらせたい場合がありますよね。

そこで使用するのが「Exit Sub」になります。
「Exit Sub」は最終行でなくても機能し、プログラムの実行を終わらせるとこができます。

機能自体は「End Sub」と同様なので、条件分岐やGotoと合わせて使用することが多いです。
では事例をみていきましょう。

⬛︎事例①:If Thenと合わせて、条件の元プログラムを終了する

では一つ目の事例です。
下図のシートをご覧ください。

B3に入力してある「数値①」にD3に入力してある「数値②」で割った値を
「F3」に出力しています。

簡単なプログラムですが、このようになっています。

Sub 数値①から数値②を除算()
Cells(3, 6) = Cells(3, 2) / Cells(3, 4)
End Sub

では実行してみましょう。
結果はこのようになりました。

計算出来ていますね。
では、数値②を空白にして実行してみましょう。

するとこのような画面が出てきます。

エラーが出ました。このエラーは文字通り「0で割ったことが原因で出るエラーです。
このエラー画面はVBAに慣れている人は見慣れているのでうまく対処できますが、
VBAを触ったことがない人がこの画面を見ると戸惑ってしまいます。

「デバッグ」を押すと出てくるプログラムに訳がわからなくわからなったりしたら
対応出来なくなるリスクを踏まえると、みんなに優しいプログラムとは言えませんね。

そこで「数値①」と「数値②」が空白だった場合、「数値①、②が空白です」というメッセージとともにプログラムを終了する方法を見ていきましょう。

使用するのは「If Then」になります。
使用方法については下記記事でまとめてますのでご覧ください。

では見本のプログラムをみていきましょう。

Sub 数値①から数値②を除算()

If Cells(3, 2) = "" Or Cells(3, 4) = "" Then
MsgBox "数値①、②が空白です"
Exit Sub
End If

Cells(3, 6) = Cells(3, 2) / Cells(3, 4)
End Sub

では「B3」と「D3」に数値が入ってない場合
で実行してみたいと思います。
するとこのようになりました。

「数値①、②が空白です」というメッセージと共に
計算をせずにプログラムが終了しています。

つまりIfの条件に当てはまり、メッセージボックスを表示させた後、
「Exit Sub」でプログラムを終了させたことになります。

これで、ある条件に該当した場合はプログラムを止めることができますね。

⬛︎事例②:エラー発生時にプログラムを終了させる

次にエラーが発生した際にプログラムを終了させる事例をみていきましょう。
エラーを検出する方法は「On Error」になります。

「On Error」を詳しい使用方法は下記記事をご覧ください。

【マクロVBAのエラー対策】エラーが発生したら指定行まで移動！エラーに負けないプログラムの作り方 ► 独学エクセル塾 (dokugakuexcel.com)

こちらは先に見本のプログラムを見てみましょう。

On Error Goto 任意ラベル
　　・
　　・
　　・
通常プログラム
　　・
　　・
　　・
Exit Sub

任意ラベル：

エラー時の処理

End Sub

このようになります。
「On Error」の後にある「Goto 任意ラベル」によって
エラーが起きた際は「任意ラベル」へ飛び、「End Sub」で終了します。

対してエラーが起きない通常の場合は「Exit Sub」で終わるようになります。

では先程の見本をご覧ください。
今回も空白の場合は「数値①、②が空白です」というメッセージを出したいと思います。

プログラムはこのようになります。

Sub 数値①から数値②を除算2()

On Error GoTo Error1
Cells(3, 6) = Cells(3, 2) / Cells(3, 4)
Exit Sub

Error1:
MsgBox "数値①、②が空白です"
End Sub

それでは実行してみましょう。

通常の場合はこちら、、、

狙い通り計算出来ています。

対して数値が空白の場合、、、

「数値①、②が空白です」が表示され、プログラムを終えてくれました。
これでエラーが起きた際のプログラム停止が可能になります。

⬛︎公式

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Exit ステートメント (VBA) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
「End Sub」と違い「Exit Sub」はどこにでも配置でき、
Ifなどといった条件分岐や、「On Error」といったエラー時の
処置と相性がいいです。

複数人が触るシステムなどには入力し忘れをメッセージで出したりなど
活用法は様々です。

是非活用してみてください。

それでは次回の記事でお会いしましょう。