Obsah
Přestože se na tomto webu nepoužívá příliš často, můžete se dostat do situace, kdy budete chtít použít Dělejte Do Loop v Excel VBA. Kód umístěný mezi Do Do a Loop se bude opakovat, dokud část po Do Do nebude pravdivá.
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
Dim i As Integer
i = 1
Dělat Do> 6
Buňky (i, 1). Hodnota = 20
i = i + 1
Smyčka
Výsledek po kliknutí na příkazové tlačítko na listu:
Vysvětlení: dokud i není vyšší než 6, Excel VBA umístí hodnotu 20 do buňky na průsečíku řádku i a sloupce 1 a zvýší i o 1. Výsledkem bude, že hodnota 20 bude umístěna do sloupce A šestkrát (ne sedm, protože Excel VBA se zastaví, když se rovná 7).