Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Náhrada funkce KDYŽ (IF) ve VBA, aneb když si chcete ušetřit a zrychlit práci při psání VBA kódu.
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:
IIf(podmínka, pokud_pravdiva, pokud_nepravdiva)
Atributy:
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
Využití při kontrole čísla.
MsgBox IIf(Range("A4") = 0, " Nula ", " Různá od nuly ")
Soubor Iff - prakticky - Excel VBA ke stažení zdarma. Soubor využívá makra.
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
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 |