以下のコード「Exam1」と「Exam2」は同じ結果になるマクロである。このとき、【 1 】に入る適切な語句を解答しなさい、
Sub Exam1()
Dim i As Long, A As Long
i = 1
Do While Cells(i, 1) <> “”
A = A + Cells(i, 1)
i = i + 1
Loop
MsgBox A
End Sub
ーーーーーーーーーーーーーーーーー
Sub Exam2()
Dim i As Long, A As Long
i = 1
Do【 1 】Cells(i, 1) = “”
A = A + Cells(i, 1)
i = i + 1
Loop
MsgBox A
End Sub
正解
Until
解説
以下はどちらも同じ結果になります。
Do While Cells(i, 1) <> “” 条件Cells(i, 1)<> “”が正しい間は繰り返す( 空欄でない時は)
Do Until Cells(i, 1) = “” 条件Cells(i, 1) = “”が正しくないときは繰り返す( 空欄が正しくない時は) 両方とも空欄でない間は繰り返します。
Do～LoopステートメントでDo に続く条件に「Until」や「 While 」を指定することで、空欄となるまでは条件が正しいとき(While)、あるいは正しくないとき(Until)まで処理を繰り返すステートメントになります。
構文：Do WhileあるいはUntil ①条件
処理
Loop WhileあるいはUntil ⓶条件
条件…①、⓶処理の前か後どちらかに設定できる
また条件の設定は、繰り返しの前、または後、DoあるいはUntilのどちらかに設定可能です。計4パータンです。
繰り返しの前に設定・Do While 条件 ・Do Until 条件
繰り返しの後に設定 ・Loop While 条件 ・Loop Until 条件
