While ... Wend - Excel VBA

Úvodem

Vykonává posloupnost příkazů tak dlouho, dokud je zadaná podmínka True.

Syntaxe

While podmínka [příkazy] Wend

• podmínka Povinné. Numerický výraz nebo řetězcový výraz, který je vyhodnocen jako True nebo False.
• příkazy Volitelné. Jeden nebo více příkazů provedených, dokud je podmínka True.

Je-li podmínka True, jsou provedeny všechny příkazy až k Wend. Procedura se vrací zpět k příkazu While a podmínka je znovu zkontrolována. Jestliže je stále True, proces se opakuje. Není-li True, běh pokračuje příkazem uvedeným za Wend.

Cykly While...Wend mohou být vnořeny do libovolné úrovně. Každý Wend odpovídá naposledy uvedenému While.

Poznámky: Je-li podmínka Null, je vyhodnocena jako False.

Poznámka 2: Místo While...Wend lze použít příkaz Do...Loop, který umožňuje lepší a pružnější zpracování cyklů.

Příklad While...Wend

Počítadlo, které zvyšuje hodnotu na 40.

Dim Pocitadlo Pocitadlo = 0 ' Inicializuj proměnnou (na nulu). While Pocitadlo < 40 ' Testuj hodnotu počítadla. Pocitadlo = Pocitadlo + 1 ' Zvyš počítadlo o jedna. Wend ' Platí-li Pocitadlo > 39, ukonči smyčku While. MsgBox Pocitadlo ' Zapiš 40 do ladícího okna.

Případně lze použít Ověření pomocí Debug

Debug.Print Pocitadlo ' není vyskakovací okno

Závěrem

V kódech nejsou deklarace proměných, jelikož slouží jako ukázkový příklad.

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.