/ / Excel VBA Do Loopまで

Excel VBAはループまで実行する

このサイトではあまり頻繁に使用されていませんが、 ループまで実行するExcel VBA。 Do UntilとLoopの間に配置されたコードはDo Untilの後の部分が真になるまで繰り返されます。

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

Dim i As Integer
i = 1

Do Until i > 6
    Cells(i, 1).Value = 20
    i = i + 1
Loop

シート上のコマンドボタンをクリックすると、結果が表示されます。

Excel VBAはループまで実行する

説明: iが6よりも大きくなるまで、Excel VBAは行iと列1の交差点の値20をセルに入れ、iを1だけインクリメントします。その結果、値20は列Aに6回配置されます(7 Excel VBAは、iが7のときに停止します)。

また読む: