VBA Do smyčky Krok za krokem příklady použití Do Do ve VBA

Co je to Do Loop ve VBA Excel?

Ve VBA Do While Loop musíme definovat kritéria po příkazu until, což znamená, když chceme, aby se smyčka zastavila a koncový příkaz je smyčka sama. Pokud je tedy podmínka NEPRAVDA, bude pokračovat ve vykonávání příkazu uvnitř smyčky, ale pokud je podmínka hned PRAVDA, ukončí příkaz Do Dokud.

Protože samotná slova říkají, že dělat nějaký úkol, dokud není dosaženo kritéria, proveďte Do, dokud se smyčka nepoužívá téměř ve všech programovacích jazycích, ve VBA také někdy používáme smyčku Do do. Do Until Loop znamená dělat něco, dokud se podmínka nestane PRAVDA. Je to jako logická funkce funguje na základě PRAVDA nebo NEPRAVDA.

Toto je opak smyčky Do While, kde Do while běží smyčky, pokud je podmínka TRUE.

Syntax

Smyčka Do Until má dva druhy syntaxe.

Syntaxe č. 1

 Smyčka Do Do [podmínka] [Provést nějaký úkol]

Syntaxe č. 2

 Proveďte [Proveďte nějakou úlohu] Smyčka do [podmínka]

Oba vypadají velmi podobně a existuje jedna jednoduchá diferenciace.

V první syntaxi smyčka „Do Dokud“ nejprve zkontroluje podmínku a získá výsledek podmínky, je TRUE nebo FALSE. Pokud je podmínka FALSE, provede kód a provede zadaný úkol, a pokud je podmínka TRUE, pak smyčku opustí.

Ve druhé smyčce syntaxe „Do“ nejprve provede úlohu cod a poté otestuje, zda je podmínka TRUE nebo FALSE. Pokud je podmínka NEPRAVDA, vrátí se zpět a provede stejný úkol. Je-li podmínka PRAVDA, okamžitě smyčku opustí.

Příklad

Vím, že není tak snadné pochopit cokoli v teoretické části, ale není se čeho bát. Dáme vám jednoduché příklady k pochopení smyčky. Číst dál. Chcete-li zahájit učení, provedeme úkol vložení prvních 10 sériových čísel z buňky A1 do A10.

Tuto šablonu VBA Do Dokud Excel můžete stáhnout zde - Šablona VBA Do Dokud Excel

Podle níže uvedených kroků použijte smyčku „Do“.

Krok 1: Nejprve vytvořte název makra a spusťte podproces.

Kód:

 Sub Do_Until_Example1 () End Sub

Krok 2: Definujte proměnnou jako „Long“. Definoval jsem „x“ jako dlouhý datový typ.

Dim x As Long

Krok 3: Nyní zadejte slovo „Do“.

Dělat do

Krok 4: Po spuštění názvu smyčky zadejte podmínku jako „x = 11“.

 Do Dokud x = 11

x = 11 je logický test, který jsme použili. Tento řádek tedy říká, že má běžet smyčka, dokud se x nebude rovnat 11.

Krok 5: Použít vlastnost CELLS a vložit sériová čísla od 1 do 10.

Buňky (x, 1). Hodnota = x

Poznámka: Zde jsme zmínili, že „x“ začíná od 1, takže nejprve je hodnota x rovna 1. Kdekoli je „x“, je rovna 1.

Krok 6: Nyní uzavřete smyčku zadáním slova „LOOP“.

 Sub Do_Until_Example1 () Dim x As Long Do Dokud x = 11 buněk (x, 1). Hodnota = x Loop

End Sub

Dobře, jsme hotovi s kódovací částí, nyní budeme testovat kódy řádek po řádku, abychom lépe porozuměli smyčce.

Chcete-li spustit řádek po řádku, stiskněte nejprve klávesu F8.

Nejprve zvýrazní název makra žlutou barvou.

Když vidíte žlutou čáru, říká se, že se neprovede spuštěním, pokud stisknete klávesu F8 ještě jednou.

Nyní stiskněte ještě jednou klávesu F8, žlutá čára přejde na Do Do Loop.

Nyní pro pochopení smyčky umístěte kurzor na proměnnou „x“ a podívejte se na hodnotu proměnné „x“.

Takže x = 0. Protože zvýrazněný řádek je první řádek ve smyčce, takže hodnota „x“ je nula, stiskněte znovu klávesu F8 a podívejte se na hodnotu „x“. Před tímto ukončením kód běží a přiřadí hodnotu „x“ jako 1.

Nyní znovu spusťte běh smyčky stisknutím klávesy F8. Viz hodnota „x“.

Nyní se hodnota „x“ zobrazuje jako 1. Chcete-li mít k proměnné „x“ přírůstkovou hodnotu, musíme ve smyčce znovu přiřadit hodnotu proměnné „x“ jako x = x + 1.

Nyní stiskněte klávesu F8 ještě jednou a měli bychom získat hodnotu 1 v buňce A1.

Nyní stiskněte znovu klávesu F8 a podívejte se, jaká je hodnota „x“.

Hodnota proměnné „x“ je nyní 2. Naše podmínka tedy říká, že máme spustit smyčku, dokud se podmínka nestane PRAVDA, takže naše smyčka běží dál, dokud hodnota „x“ nebude 11.

Dalším stisknutím klávesy F8 přejdete zpět na řádek smyčky „Do“.