「Excel VBA」Do Loop Untilを使用するサンプル

2021年3月16日

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

Sub funcBB()

 Dim nn As Integer
   nn = 20
   
  'Do Loop Until文
   Do
    nn = nn + 3
    '値を出力
    Debug.Print nn
    'Until条件式
   Loop Until nn > 30
   'セルA2 値を表示
   Range("A2") = nn
End Sub

実行結果
23
26
29
32