Jste zde: Úvodní stránka » excel » vba-teorie-zaklady » while-wend-excel-vba

While ... Wend - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

Vykonávat posloupnost příkazu dokud platí podmínka.

Ú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: 01.11.2014 14:39

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). 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 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.