Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Vykonávat posloupnost příkazu dokud platí podmínka.
Vykonává posloupnost příkazů tak dlouho, dokud je zadaná podmínka True.
Syntaxe
While podmínka
[příkazy]
Wend
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ů.
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
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
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.
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ů.
Můžete být prvními co zanechají smysluplný komentář.
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2024 |