練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロ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となります。お疲れ様でした！

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」といったエラー時の
処置と相性がいいです。

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

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

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