「Excel VBA」Do Loop While文のサンプル

書式
DO 処理コード
Loop While 条件式
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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

Excel VBA

Posted by arkgame