「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
結果
20
22
24
72
Coding Changes the World
書式
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
結果
20
22
24
72