Ako používať If-Then v Exceli 2016 VBA

If-Then je najdôležitejšou riadiacou štruktúrou VBA. Tento príkaz budete pravdepodobne používať každý deň. Štruktúru If-Then použite, ak chcete vykonať jeden alebo viac príkazov podmienečne. Voliteľný Else klauzula, ak sú zahrnuté, môžete vykonať jeden alebo viac príkazov v prípade, že podmienka, ktorú testujete, je to pravda. Tu je jednoduchý postup CheckUser, prekódovaný tak, aby používal štruktúru If-Then-Else:

Sub CheckUser2()
  Používateľské meno = InputBox(“Zadajte svoje meno:”)
  Ak UserName = “Satya Nadella” Potom
    MsgBox („Vitajte Satya...“)
' …[Viac kódu tu] …
  Inak
    MsgBox „Prepáčte. Toto dokáže zvládnuť iba Satya Nadella."
  Koniec Ak
End Sub

Príklady Ak-Potom

Nasledujúca rutina demonštruje štruktúru If-Then bez voliteľnej klauzuly Else:

Sub GreetMe()
  Ak čas < 0,5, potom MsgBox „Dobré ráno“
End Sub

Procedúra GreetMe využíva funkciu Čas VBA na získanie systémového času. Ak je aktuálny čas menší ako 0,5, rutina zobrazí priateľský pozdrav. Ak je Čas väčší alebo rovný 0,5, rutina sa skončí a nič sa nestane.

Ak chcete zobraziť iný pozdrav, ak je Čas väčší alebo rovný 0,5, môžete za prvý pridať ďalší príkaz If-Then:

Sub GreetMe2()
  Ak čas < 0,5, potom MsgBox „Dobré ráno“
  Ak čas >= 0,5, potom MsgBox „Dobré popoludnie“
End Sub

Všimnite si, že >= (väčšie alebo rovné) sa používa pre druhý príkaz If-Then. Tým sa zabezpečí, že bude pokrytý celý deň. Ak by sa použilo > (väčšie ako), nezobrazí sa žiadna správa, ak sa tento postup vykoná presne o 12:00. To je dosť nepravdepodobné, ale s dôležitým programom, ako je tento, nechcete riskovať.

Príklad If-Then-Else

Iný prístup k predchádzajúcemu problému používa klauzulu Else. Tu je rovnaká rutina prekódovaná na použitie štruktúry If-Then-Else:

Sub GreetMe3()
  Ak čas < 0,5, potom MsgBox „Dobré ráno“ Inak _
    MsgBox „Dobré popoludnie“
End Sub

Všimnite si, že znak pokračovania riadku (podčiarkovník) je použitý v predchádzajúcom príklade. Príkaz If-Then-Else je vlastne jeden príkaz. VBA poskytuje mierne odlišný spôsob kódovania konštrukcií If-Then-Else, ktoré používajú príkaz End If. Preto môže byť procedúra GreetMe prepísaná ako

Sub GreetMe4()
  Ak je čas < 0,5, potom
    MsgBox „Dobré ráno“
  Inak
    MsgBox „Dobré popoludnie“
  Koniec Ak
End Sub

V skutočnosti môžete do časti If vložiť ľubovoľný počet príkazov a do časti Else ľubovoľný počet príkazov. Táto syntax sa ľahšie číta a robí príkazy kratšími.

Čo ak potrebujete rozšíriť rutinu GreetMe tak, aby zvládla tri podmienky: ráno, popoludní a večer? Máte dve možnosti: Použite tri príkazy If-Then alebo použite vnorenú štruktúru If-Then-Else. Vnorenie znamená umiestnenie štruktúry If-Then-Else do inej štruktúry If-Then-Else. Prvý prístup s použitím troch príkazov If-Then je jednoduchší:

Sub GreetMe5()
 Dim Msg As String
 Ak je čas < 0,5, potom správa = „ráno“
 Ak čas >= 0,5 a čas < 0,75, potom správa = „Popoludní“
 Ak Čas >= 0,75, potom Msg = „Večer“
 MsgBox „Dobré“ & Msg
End Sub

Nový twist bol pridaný s použitím premennej. Premenná Msg získa inú textovú hodnotu v závislosti od času dňa. Výpis MsgBox zobrazuje pozdrav: Dobré ráno, Dobré popoludnie alebo Dobrý večer.

Nasledujúca rutina vykonáva rovnakú akciu, ale používa štruktúru If-Then-End If:

Sub GreetMe6()
  Dim Msg As String
  Ak je čas < 0,5, potom
    Msg = „Ráno“
  Koniec Ak
  Ak čas >= 0,5 a čas < 0,75, potom
    Msg = „Popoludní“
  Koniec Ak
  Ak Čas >= 0,75 Potom
    Msg = "Večer"
  Koniec Ak
  MsgBox „Dobré“ & Msg
End Sub

Pomocou ElseIf

V predchádzajúcich príkladoch sa vykoná každý príkaz v rutine. O niečo efektívnejšia štruktúra by opustila rutinu hneď, ako sa zistí, že podmienka je pravdivá. Napríklad ráno by sa v procedúre mala zobraziť správa Dobré ráno a potom by sa mala ukončiť – bez hodnotenia ostatných nadbytočných podmienok.

S takouto drobnou rutinou sa nemusíte obávať rýchlosti vykonávania. Ale pre väčšie aplikácie, v ktorých je rýchlosť kritická, by ste mali vedieť o inej syntaxi pre štruktúru If-Then.

Tu je návod, ako môžete prepísať rutinu GreetMe pomocou tejto syntaxe:

Sub GreetMe7()
 Dim Msg As String
 Ak je čas < 0,5, potom
   Msg = „Ráno“
 ElseIf Čas >= 0,5 a čas < 0,75 Potom
   Msg = „Popoludní“
 Inak
   Msg = "Večer"
 Koniec Ak
 MsgBox „Dobré“ & Msg
End Sub

Keď je podmienka pravdivá, VBA vykoná podmienené príkazy a štruktúra If skončí. Inými slovami, tento postup je o niečo efektívnejší ako predchádzajúce príklady. Kompromisom je, že kód je ťažšie zrozumiteľný.

Ďalší príklad Ak-potom

Tu je ďalší príklad, ktorý používa jednoduchú formu štruktúry If-Then. Tento postup vyzve používateľa na zadanie množstva a potom zobrazí príslušnú zľavu na základe množstva, ktoré používateľ zadá:

Sub ShowDiscount()
  Dim Množstvo ako dlhé
  Dvojnásobná zľava
  Množstvo = InputBox(“Zadajte množstvo:”)
  Ak Množstvo > 0, potom zľava = 0,1
  Ak množstvo >= 25, potom zľava = 0,15
  Ak Množstvo >= 50, potom zľava = 0,2
  Ak Množstvo >= 75, potom zľava = 0,25
  MsgBox „Zľava: “ & Zľava
End Sub

Všimnite si, že každý príkaz If-Then v tejto rutine je vykonaný a hodnota pre Discount sa môže meniť počas vykonávania príkazov. Rutina však nakoniec zobrazí správnu hodnotu pre zľavu, pretože príkazy If-Then sú v poradí vzostupných hodnôt zliav.

Nasledujúci postup vykonáva rovnaké úlohy pomocou alternatívnej syntaxe ElseIf. V tomto prípade sa rutina ukončí ihneď po vykonaní príkazov pre pravdivú podmienku:

Sub ShowDiscount2()
 Dim Množstvo ako dlhé
 Dvojnásobná zľava
 Množstvo = InputBox(“Zadajte množstvo:”)
 Ak množstvo > 0 a množstvo < 25, potom
  Zľava = 0,1
 ElseIf Množstvo >= 25 a množstvo < 50 Potom
  Zľava = 0,15
 ElseIf Množstvo >= 50 a množstvo < 75 Potom
  Zľava = 0,2
 ElseIf Množstvo >= 75 Potom
  Zľava = 0,25
 Koniec Ak
 MsgBox „Zľava: “ & Zľava
End Sub

Tieto viaceré štruktúry If-Then sú dosť ťažkopádne. Možno budete chcieť použiť štruktúru If-Then iba na jednoduché binárne rozhodnutia.

Ako zmeniť pozadie v PowerPointe 2019

Naučte sa, ako jednoducho zmeniť pozadie v PowerPointe 2019, aby vaše prezentácie pôsobili pútavo a profesionálne. Získajte tipy na plnú farbu, prechod, obrázky a vzory.

Ako používať štatistické funkcie v Exceli na počítanie položiek v množine údajov

Excel poskytuje štyri užitočné štatistické funkcie na počítanie buniek v hárku alebo zozname: COUNT, COUNTA, COUNTBLANK a COUNTIF. Pre viac informácií o Excel funkciách, pokračujte.

Klávesové skratky pre bežné príkazy zobrazenia Excel 2013

Objavte efektívne klávesové skratky v Exceli 2013 pre zobrazenie, ktoré vám pomôžu zlepšiť produktivitu. Všetky skratky sú začiatkom s Alt+W.

Ako nastaviť okraje stránky v programe Word 2013

Naučte sa, ako nastaviť okraje v programe Word 2013 s naším jednoduchým sprievodcom. Tento článok obsahuje užitočné tipy a predvoľby okrajov pre váš projekt.

Ako používať štatistické funkcie na výpočet priemerov, režimov a mediánov v Exceli

Excel vám poskytuje niekoľko štatistických funkcií na výpočet priemerov, režimov a mediánov. Pozrite si podrobnosti a príklady ich použitia.

Ako zistiť a opraviť chyby vzorcov v Exceli 2016

Excel 2016 ponúka niekoľko efektívnych spôsobov, ako opraviť chyby vo vzorcoch. Opravy môžete vykonávať po jednom, spustiť kontrolu chýb a sledovať odkazy na bunky.

Archivácia priečinkov programu Outlook

V niektorých prípadoch Outlook ukladá e-mailové správy, úlohy a plánované činnosti staršie ako šesť mesiacov do priečinka Archív – špeciálneho priečinka pre zastarané položky. Učte sa, ako efektívne archivovať vaše položky v Outlooku.

Vytváranie a formátovanie tabuliek v programe Word 2019

Word vám umožňuje robiť rôzne zábavné veci s tabuľkami. Učte sa o vytváraní a formátovaní tabuliek vo Worde 2019. Tabuľky sú skvelé na organizáciu informácií.

Výber rozsahu Excel VBA

V článku sa dozviete, ako umožniť používateľovi vybrať rozsah v Excel VBA pomocou dialógového okna. Získajte praktické tipy a príklady na zlepšenie práce s rozsahom Excel VBA.

Výpočet percentuálneho rozptylu so zápornými hodnotami v Exceli

Vzorec na výpočet percentuálnej odchýlky v Exceli s funkciou ABS pre správne výsledky aj so zápornými hodnotami.