次のコードは、条件式に合う場合はFor…Nextステートメントによる繰り返し処理を終了し、Nextの次の行から処理を続けるマクロである。空欄に入る適切な語句を解答しなさい。
Sub Exam1()
Dim i As Long
For i = 1 To 10
If Cells(i, 1) = "" Then
Exit 【 ① 】
End If
Next i
MsgBox "処理は終了しました”
End Sub
正解
【 ① 】for
解説
Exix Forは For…Next、For Each …Next各ステートメントによる繰り返し処理を終了させ、Nextの次から処理を続けるステートメントです。
本問題の場合、セルが空欄の時には(セルA6)は繰り返し処理を終了し、Nextの次の行から処理を続けメッセージを表示します。
スポンサーリンク
スポンサーリンク