Vba-do-until-loop

VBA-Do-Untilループ

*Do…Until* ループは、条件が偽である限り、一連のステートメントを繰り返す場合に使用されます。 条件は、ループの開始時またはループの終了時に確認できます。

Copy

構文

VBAの Do..Until ループの構文は次のとおりです。

Do Until condition
   [statement 1]
   [statement 2]
   ...
   [statement n]
   [Exit Do]
   [statement 1]
   [statement 2]
   ...
   [statement n]
Loop

Copy

流れ図

vba Do..Until statement

例

次の例では、 Do…Until ループを使用して、ループの開始時に条件を確認します。 ループ内のステートメントは、条件が偽の場合にのみ実行されます。 条件が真になると、ループを抜けます。

Private Sub Constant_demo_Click()
   i = 10
   Do Until i>15  'Condition is False.Hence loop will be executed
      i = i + 1
      msgbox ("The value of i is : " & i)
   Loop
End Sub

Copy

上記のコードが実行されると、メッセージボックスに次の出力が出力されます。

The value of i is : 11

The value of i is : 12

The value of i is : 13

The value of i is : 14

The value of i is : 15

The value of i is : 16

Copy

代替構文

ループの最後に条件をチェックする Do …​ Until ループの代替構文もあります。 これら2つの構文の主な違いを次の例で説明します。

Do
   [statement 1]
   [statement 2]
   ...
   [statement n]
   [Exit Do]
   [statement 1]
   [statement 2]
   ...
   [statement n]
Loop Until condition

Copy

流れ図

VBScript Do..Untilステートメント

例

次の例では、 Do …​ Until ループを使用して、ループの最後の条件を確認します。 条件がTrueの場合でも、ループ内のステートメントは少なくとも1回実行されます。

Private Sub Constant_demo_Click()
   i = 10
   Do
      i = i + 1
      msgbox "The value of i is : " & i
   Loop Until i<15 'Condition is True.Hence loop is executed once.
End Sub

Copy

上記のコードが実行されると、メッセージボックスに次の出力が出力されます。

The value of i is : 11

Copy