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
Pomohl vám článek? Vyřešili jste problém? Můžete mě podpořit zakoupení tabulky (samozdřejmě čokoládové), když kafe nepiji ;) Odkaz na zakoupení čokolády. Za veškerou podporu vám děkuji a samozdřejmě jí využiji do zdokonalování a rozšířování webu.
Případně přidejte odkaz na vaši oblíbenou sociální síť, případně využijste hashtag #JakNaExcel .
Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.
Narazili jste v článku na nejasnost, chybu? Máte tip na vylepšení nebo doplnění článku? Budu rád pokud se zmínite v komentářích.
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.
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 - 2025 |