練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題20について

こちらはマクロVBAの知識で少し発展した課題になります。

強制終了・途中終了・ループ抜け出す練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10まで順番に数値を2倍にしていき、C列に出力する。その数値が100を超えた場合に処理を終了する。

動作説明

BAを使用して、セル番地A1からA10までの数値を順番に2倍にしてC列に出力します。

処理中、出力した数値が100を超えた場合には処理を終了します。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

ループ構造を使用して、セルの範囲を順番に処理します。

ループ変数を使用して、セルの行番号や列番号を更新していく方法を考えてみましょう。

・ヒントその2

条件を満たすと繰り返し処理抜け出す必要があります。

例えば「For Next」で繰り返し処理をしている場合は、「Exit For」でループを抜け出します。

・ヒントその3

条件を満たすと強制終了する必要があります。

こちらはとてもシンプルで「Exit Sub」で強制終了ができます。

以上のヒントを参考に課題に取り組んでみてください！

解答コード

では回答を見ていきましょう！

・回答その①

・回答その②

条件を満たすと「Exit Sub」で強制終了する仕組みです。

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ループ構造

繰り返し処理をするために、セル範囲内の各セルを順番に読み取るループ構造が必要です。
For Nextループを使った反復処理を利用した反復処理について理解しておくと良いでしょう。

これらの知識を応用して、問題を解くためのコードを作成しましょう。  

ループの抜け出し・強制終了

 VBAでは、ループ処理をよく使用しますが、途中でループ処理を中断したい場合があると思います。
その際は「Exit For」を使用してループ処理を抜け出します。

さらに強制終了では「Exit Sub」を使用することで直ちに処理を終了することが出来ます。

場面によって使い分けてください。

まとめ

この練習問題では、Excel VBAの基本的な概念と構文に触れながら、セルの操作やループ処理、条件分岐の活用方法を学ぶことができます。

具体的には、セル番地を指定して値を読み取ったり書き込んだりする方法、
ループ構造を使ってセル範囲を順番に処理する方法、条件分岐を使用して特定の条件に基づいて処理を終了する方法などが含まれています。

これらの基本的な知識と技術を身につけることで、VBAを使用してExcelの操作を自動化する能力を向上させることができます。
また、問題の難易度を徐々に上げることで、より高度なVBAのスキルを磨くことができます。

練習問題を通じて、VBAの基礎を学びながら自身のスキルを向上させていきましょう。
練習問題は段階的に難しくなっていくので、自分のペースで取り組むことをおすすめします。

以上が練習問題20となります。お疲れ様でした！

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

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

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

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

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

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

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

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キー」のみで操作可能なので
とても簡単な方法になっています。

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