IIf - Excel VBA

Úvodem IIf

Aby návody ohledně řízení kódu ve VBA byly kompletní, nesmím opomenout VBA konstrukci IIf, která je cílem tohoto článku. Pro přehlednost je článek rozdělen na jednotlivé kapitoly:

• Teorie a syntaxe For Each .. Next
• Volba dle odpověďi na otázku - praktické použítí
• Volba čísla - praktické použítí
• Ke stažení
• Související články

Ukázka

Syntaxe IIf

IIf(podmínka, pokud_pravdiva, pokud_nepravdiva)

Atributy:

• podmínka - podle které se rozhoduje
• pokud_pravdiva - bude provedeno je-li podmínka pravdivá
• pokud_nepravdiva - bude provedeno je-li podmínka nepravdivá

Volba dle odpovědi - praktické použítí

i = MsgBox("Chcete větši plat?", vbYesNo, "Plat") MsgBox (IIf(i = vbNo, "Vaše odpověď NE.", "Vaše odpověď ANO."))

Nebo do jednoho řádku ;)

MsgBox (IIf(MsgBox("Chcete větši plat?", vbYesNo, "Plat") = vbNo, "Vaše odpověď NE.", "Vaše odpověď ANO."))

Lze řešit klasicky přes If Then

i = MsgBox("Chcete větši plat?", vbYesNo, "Plat") If i = vbNo Then MsgBox ("Vaše odpověď NE.") Else MsgBox ("Vaše odpověď ANO.") End If

Nebo Case Select

i = MsgBox("Chcete větši plat?", vbYesNo, "Plat") Select Case i Case vbNo MsgBox ("Vaše odpověď NE.") Case vbYes MsgBox ("Vaše odpověď ANO.") End Select

Kontrola čísla - praktické použití

Využití při kontrole čísla.

MsgBox IIf(Range("A4") = 0, " Nula ", " Různá od nuly ")

Ke stažení

Soubor Iff - prakticky - Excel VBA ke stažení zdarma. Soubor využívá makra.

Další související články

• With ... End With
• Podmínky If, Then, ElseIf, Else
• For Next - Cykly
• Do ... Loop
• While ... Wend
• Exit

Závěrem

Tento článek je součástí on-line výukového kurzu VBA MS Excel.

Osobně raději napíšu (než bych hledal syntaxi) o pár řádku více, klasicky přes If - Else, případně použiju Select Case.

Používá někdo tuto konstrukci? Případně máte nějaký příklad praktického využití? Můžete použít komentáře.

Č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.