Excel VBA スタンダード模擬問題 ② 3章-4

次のコードは、Do…Loopステートメントにより指定条件まで繰り返し処理を続け、セル内に”東京”があった場合は”東京”までで処理を終了し、繰り返し処理をぬけてLoop次の行からの処理を行うマクロである。空欄に入る適切な語句を解答しなさい。

Sub Exam1()
Dim i As Long
　Do While i < 50
　i = i + 1
　　Cells(i, 1).Offset(0, 1) = 10
　　If Cells(i, 1) = ”東京” Then
　　　　Exit 【　①　】
　　End If
　Loop
　　MsgBox “処理は終了しました”
End Sub

正解

【　①　】Do

解説

Exix DoはDo…Loopステートメント繰り返し処理をし、指定した条件を判定した後、入れ子の条件式If Cells(i, 1) = ”東京” Thenが成立した際は、Do…Loopステートメントの抜けてMsgBoxの行から処理を続けるステートメントです。

本問題の場合、東京が見つかった際はDo…Loopステートメントを抜けてLoopの次の行から処理を続けを続けます。

この他にもExitステートメントは

・Exit Sub…プロシージャを終了させる
・Exit Function…Functionプロシージャを終了させる
・Exit For…for…Nextステートメント、for Each…Nexステートメントを終了させる
・Exit Do…Do…Loopステートメントを終了させる　に使用します。

　　　　　前へ　　　　　　次へ

Excel VBA スタンダード 3章ステートメント