Přeskočit navigaci | Přeskočit na novinky

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

While ... Wend - Excel VBA

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: 17.12.2011 17:37



| tisk stránky TISK | nahoru NAHORU |
| |

Další články k tématu




Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.


Přidání nového komentáře




(vlož číslo šest)

Z bezpečnostních důvodu dočasně nemůžete použít HTML značky a URL. Děkuji za pochopení.
Děkuji, za Vaše komentáře.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu.




Nejnovější článek

Z článku o excel jsem jako poslední přidal či upravil článek 14.05.2012:
Kombinování funkcí - vzorců.

Nejčtenější článek




Google+

  

Facebook

facebook  

Novinky

Word: 12.5.2012:
Matematické rovnice (vzorce) - Word 2010

Excel: 14.05.2012:
Kombinování funkcí - vzorců

Access: 28.04.2012:
VBA - Jak spustit v MS Access

Power Point: 25.04.2012:
SmartArt - PowerPoint 2010

Outlook 26.04.2012:
Outlook 2010 - jak vypadá

Project: 05.04.2012:
Kalendář ukázka

OneNote: 17.10.2010:
OneNote 2010 – popis obrazovky

Office 30.04.2012:
Kde hledat odpovědi na dotazy o MS Office

Poděkování

Poděkování patří hlavně mojí nejbáječnější manželce.

LinkedIN

Translate

     

Stránky o MS Office produktu společnosti Micosoft. Neslouží jako technická podpora.
| Email na autora: lasak@centrum.cz | Copyright © : Pavel a Danka 2006 - 2012 |
| Doporučuji: Advokátní kancelář Brno - Dana Lasáková | 563

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.