「Excel VBA」Do Loop While文のサンプル
書式
DO 処理コード
Loop While 条件式
使用例
Sub funcA()
Dim n As Integer
n = 20
Dim res As Integer
' Do 処理コード Loop While条件
Do
Debug.Print n
n = n + 2
res = res + n
Loop While n < 25
Range("A1") = res
End Sub
Sub funcA()
Dim n As Integer
n = 20
Dim res As Integer
' Do 処理コード Loop While条件
Do
Debug.Print n
n = n + 2
res = res + n
Loop While n < 25
Range("A1") = res
End Sub
Sub funcA() Dim n As Integer n = 20 Dim res As Integer ' Do 処理コード Loop While条件 Do Debug.Print n n = n + 2 res = res + n Loop While n < 25 Range("A1") = res End Sub
結果
20
22
24
72