Štruktúra Select Case je užitočná štruktúra VBA pre rozhodnutia zahŕňajúce tri alebo viac možností v Exceli 2016 (hoci funguje aj s dvoma možnosťami, ktoré poskytujú alternatívu k štruktúre If-Then-Else).
Nasledujúci príklad ukazuje, ako používať štruktúru Select Case:
Sub ShowDiscount3()
Dim Množstvo ako dlhé
Dvojnásobná zľava
Množstvo = InputBox(“Zadajte množstvo:”)
Vyberte Množstvo prípadu
Prípad 0 až 24
Zľava = 0,1
Prípad 25 až 49
Zľava = 0,15
Prípad 50 až 74
Zľava = 0,2
Prípad je >= 75
Zľava = 0,25
Koniec Vyberte
MsgBox „Zľava: “ & Zľava
End Sub
V tomto príklade sa vyhodnocuje premenná Množstvo. Rutina kontroluje štyri rôzne prípady (0–24, 25–49, 50–74 a 75 alebo viac).
Za každým vyhlásením Case môže nasledovať ľubovoľný počet vyhlásení a všetky sa vykonajú, ak je prípad pravdivý. Ak použijete iba jeden príkaz, ako v tomto príklade, môžete príkaz umiestniť na rovnaký riadok ako kľúčové slovo Case, pred ktorým bude dvojbodka – znak oddeľovača príkazov VBA. Vďaka tomu je kód kompaktnejší a o niečo prehľadnejší. Ako vyzerá rutina v tomto formáte:
Sub ShowDiscount4 ()
Dim Množstvo ako dlhé
Dvojnásobná zľava
Množstvo = InputBox(“Zadajte množstvo:”)
Vyberte Množstvo prípadu
Prípad 0 až 24: Zľava = 0,1
Prípad 25 až 49: Zľava = 0,15
Prípad 50 až 74: zľava = 0,2
Prípad je >= 75: zľava = 0,25
Koniec Vyberte
MsgBox „Zľava: “ & Zľava
End Sub
Keď VBA vykoná štruktúru Select Case, štruktúra sa ukončí hneď, ako VBA nájde skutočný prípad a vykoná príkazy pre tento prípad.
Ako ukazuje nasledujúci príklad, štruktúry Select Case môžete vnoriť. Táto rutina preskúma aktívnu bunku a zobrazí správu s popisom obsahu bunky. Všimnite si, že procedúra má tri štruktúry Select Case a každá má svoj vlastný príkaz End Select:
Sub CheckCell()
Dim Msg As String
Select Case IsEmpty (ActiveCell)
Prípad pravda
Msg = "je prázdne."
Prípad Else
Vyberte Case ActiveCell.HasFormula
Prípad pravda
Msg = „má vzorec“
Prípad Else
Vyberte veľkosť písmen je numerická (ActiveCell)
Prípad pravda
Msg = „má číslo“
Prípad Else
Msg = „má text“
Koniec Vyberte
Koniec Vyberte
Koniec Vyberte
MsgBox „Cell “ & ActiveCell.Address & „ “ & Msg
End Sub
Logika je asi takáto:
Zistite, či je bunka prázdna.
Ak nie je prázdny, skontrolujte, či obsahuje vzorec.
Ak neexistuje vzorec, zistite, či obsahuje číselnú hodnotu alebo text.
Keď rutina skončí, premenná Msg obsahuje reťazec, ktorý popisuje obsah bunky. Funkcia MsgBox zobrazí túto správu.
Správa zobrazená postupom CheckCell.
Štruktúry Select Case môžete vnoriť tak hlboko, ako potrebujete, ale uistite sa, že každý príkaz Select Case má zodpovedajúci príkaz End Select.
Ak stále nie ste presvedčení, že odsadenie kódu stojí za námahu, predchádzajúci zoznam slúži ako dobrý príklad. Zárezy naozaj preto, aby boli úrovne vnorenia jasné. Pozrite sa na rovnaký postup bez akéhokoľvek odsadenia:
Sub CheckCell() Dim Msg As String Select Case IsEmpty (ActiveCell) Prípad pravda Msg = "je prázdne." Prípad Else Vyberte Case ActiveCell.HasFormula Prípad pravda Msg = „má vzorec“ Prípad Else Vyberte veľkosť písmen je numerická (ActiveCell) Prípad pravda Msg = „má číslo“ Prípad Else Msg = „má text“ Koniec Vyberte Koniec Vyberte Koniec Vyberte MsgBox „Cell “ & ActiveCell.Address & „ “ & Msg End Sub
Dosť nepochopiteľné, však?
Ako zablokovať Microsoft Word otváranie súborov v režime len na čítanie v systéme Windows Microsoft Word otvára súbory v režime len na čítanie, takže ich nie je možné upravovať? Nebojte sa, metódy sú uvedené nižšie
Ako opraviť chyby pri tlači nesprávnych dokumentov Microsoft Word Chyby pri tlači dokumentov Word so zmeneným typom písma, chaotickými odsekmi, chýbajúcim textom alebo strateným obsahom sú pomerne časté. Avšak, nie
Ak ste použili pero alebo zvýrazňovač na kreslenie na powerpointové snímky počas prezentácie, môžete si kresby uložiť pre ďalšiu prezentáciu alebo ich vymazať, aby ste pri ďalšom zobrazení začali s čistými powerpointovými snímkami. Ak chcete vymazať kresby perom a zvýrazňovačom, postupujte podľa týchto pokynov: Vymazanie riadkov jedna na […]
Knižnica štýlov obsahuje súbory CSS, súbory XSL (Extensible Stylesheet Language) a obrázky používané preddefinovanými vzorovými stránkami, rozloženiami strán a ovládacími prvkami v SharePointe 2010. Ak chcete nájsť súbory CSS v knižnici štýlov publikačnej lokality: Vyberte Akcie lokality→Zobraziť Všetok obsah stránky. Zobrazí sa obsah stránky. Knižnica štýlov sa nachádza v […]
Nezahlcujte svoje publikum obrovskými číslami. V programe Microsoft Excel môžete zlepšiť čitateľnosť svojich tabúľ a zostáv formátovaním čísel tak, aby sa zobrazovali v tisíckach alebo miliónoch.
Zistite, ako používať nástroje sociálnych sietí SharePoints, ktoré umožňujú jednotlivcom a skupinám komunikovať, spolupracovať, zdieľať a spájať sa.
Juliánske dátumy sa často používajú vo výrobných prostrediach ako časová pečiatka a rýchla referencia pre číslo šarže. Tento typ kódovania dátumu umožňuje maloobchodníkom, spotrebiteľom a servisným zástupcom identifikovať, kedy bol produkt vyrobený, a teda aj vek produktu. Juliánske dátumy sa používajú aj v programovaní, armáde a astronómii. Rôzne […]
V Accesse 2016 môžete vytvoriť webovú aplikáciu. Čo je to teda webová aplikácia? Web znamená, že je online a aplikácia je len skratka pre „aplikáciu“. Vlastná webová aplikácia je online databázová aplikácia, ku ktorej sa pristupuje z cloudu pomocou prehliadača. Vytvárate a udržiavate webovú aplikáciu vo verzii pre počítače […]
Väčšina stránok v SharePointe 2010 zobrazuje zoznam navigačných prepojení na paneli Rýchle spustenie pozdĺž ľavej strany stránky. Panel Rýchle spustenie zobrazuje prepojenia na odporúčaný obsah lokality, ako sú zoznamy, knižnice, lokality a publikačné stránky. Panel Rýchle spustenie obsahuje dva veľmi dôležité odkazy: Odkaz na celý obsah lokality: […]
Pre jednoduché problémy Riešiteľ v Exceli zvyčajne rýchlo nájde optimálne hodnoty premennej Riešiteľ pre cieľovú funkciu. V niektorých prípadoch má však Riešiteľ problém nájsť hodnoty premennej Riešiteľ, ktoré optimalizujú cieľovú funkciu. V týchto prípadoch Riešiteľ zvyčajne zobrazí hlásenie alebo chybové hlásenie, ktoré popisuje alebo diskutuje problém, ktorý […]
