このサイトでは非常に頻繁に使用されていないが、あなたはエクセルVBAでDo Untilループを使用したい状況で自分自身を見つけるかもしれません。コードはするDo Untilとの間に配置され、ループは真であるまで実行した後の部分まで繰り返されます。

ワークシート上のコマンドボタンを配置し、次のコード行を追加します。

Dim i As Integer

i = 1

Do Until i > 6

Cells(i, 1).Value = 20

i = i + 1

Loop

あなたはシート上のコマンドボタンをクリックすると、結果：

Excel VBA Do Until Loop

説明：私は6より高くなるまで、ExcelのVBAは、結果として1が行iおよび列1及び増分Iの交点にセルに値20を配置し、値20は、（列Aに6回ない配置されます7私は7に等しいときエクセルVBAが停止しているため）。