【マクロVBA練習問題20】強制・途中終了・ループ抜け出し！IFとExit Sub・Forを組み合わせる

練習問題と内容について
1. ・練習問題の狙い
2. ・練習問題20について
練習問題の内容と動作説明
1. 問題内容
2. 動作説明
ヒント
解答コード
1. ・回答その①
2. ・回答その②
必要な知識
1. ループ構造
2. ループの抜け出し・強制終了
まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題20について

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

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

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

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

問題内容

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

動作説明

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

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

ヒント

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

・ヒントその1

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

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

・ヒントその2

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

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

・ヒントその3

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

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

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

最新・便利な機能を搭載したExcel・officeを試しませんか？
Excel 2013以下を使用している方はサポートが終了しているので注意が必要です！
【最新2023年】Excel・Officeの価格比較！あなたに合ったオススメの製品の選定方法から購入 ► 独学エクセル塾 (dokugakuexcel.com)

解答コード

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

・回答その①

Sub Exercise20to1()
Dim row As Integer
Dim value As Double

For row = 1 To 10
　value = Cells(row, 1).value * 2
　Cells(row, 3).value = value
　　If value > 100 Then
　　　Exit For
　　End If
Next row
End Sub

上記のコードもセル番地A1からA10までの数値を順番に2倍にし、C列に出力するものです。

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

解答コードのポイント

1. rowというループ変数を使用して、行番号を順番に更新します。
2. value変数にセルの値を2倍にした結果を代入します。
3. Range(“A” & row).Valueのようにセル番地を文字列と結合して指定します。
4. Range(“B” & row).Value = valueのようにB列に結果を出力します。
5. If value > 100 Then Exit Forによって、数値が100を超えた場合にループを終了します。

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

A6で100を超えたので、ループを抜け出すことが出来ました。

・回答その②

Sub Exercise20to2()
Dim row As Integer
Dim value As Double

For row = 1 To 10
　value = Cells(row, 1).value * 2
　Cells(row, 3).value = value
　　If value > 100 Then
　　　Exit Sub
　　End If
Next row
End Sub

先ほどは条件を満たすと、ループを抜け出す方法でしたが、今回は「強制終了」で処理しています。

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