Struktura Select Case je užitečná struktura VBA pro rozhodnutí zahrnující tři nebo více možností v Excelu 2016 (ačkoli funguje také se dvěma možnostmi, což představuje alternativu ke struktuře If-Then-Else).
Následující příklad ukazuje, jak používat strukturu Select Case:
Sub ShowDiscount3()
Tlumené množství jako dlouhé
Dvojitá sleva
Množství = InputBox(“Zadejte množství:”)
Vyberte Množství pouzdra
Případ 0 až 24
Sleva = 0,1
Případ 25 až 49
Sleva = 0,15
Případ 50 až 74
Sleva = 0,2
Případ je >= 75
Sleva = 0,25
Konec Vyberte
MsgBox „Sleva: “ & Sleva
End Sub
V tomto příkladu se vyhodnocuje proměnná Množství. Rutina kontroluje čtyři různé případy (0–24, 25–49, 50–74 a 75 nebo vyšší).
Za každým příkazem Case může následovat libovolný počet příkazů a všechny jsou provedeny, pokud je případ pravdivý. Pokud použijete pouze jeden příkaz, jako v tomto příkladu, můžete příkaz umístit na stejný řádek jako klíčové slovo Case, před kterým bude dvojtečka – znak oddělovače příkazů VBA. Díky tomu je kód kompaktnější a o něco přehlednější. Takto vypadá rutina v tomto formátu:
Sub ShowDiscount4 ()
Tlumené množství jako dlouhé
Dvojitá sleva
Množství = InputBox(“Zadejte množství:”)
Vyberte Množství pouzdra
Případ 0 až 24: Sleva = 0,1
Případ 25 až 49: Sleva = 0,15
Případ 50 až 74: Sleva = 0,2
Případ je >= 75: Sleva = 0,25
Konec Vyberte
MsgBox „Sleva: “ & Sleva
End Sub
Když VBA spustí strukturu Select Case, struktura se ukončí, jakmile VBA najde pravdivý případ a provede příkazy pro tento případ.
Jak ukazuje následující příklad, můžete vnořit struktury Select Case. Tato rutina prozkoumá aktivní buňku a zobrazí zprávu popisující obsah buňky. Všimněte si, že procedura má tři struktury Select Case a každá má svůj vlastní příkaz End Select:
Sub CheckCell()
Dim Msg As String
Select Case IsEmpty (ActiveCell)
Případ pravdivý
Msg = "je prázdné."
Případ Else
Vyberte Case ActiveCell.HasFormula
Případ pravdivý
Msg = „má vzorec“
Případ Else
Vyberte velikost písmen jeNumeric(ActiveCell)
Případ pravdivý
Msg = „má číslo“
Případ Else
Msg = „má text“
Konec Vyberte
Konec Vyberte
Konec Vyberte
MsgBox „Cell “ & ActiveCell.Address & „ “ & Msg
End Sub
Logika zní asi takto:
Zjistěte, zda je buňka prázdná.
Pokud není prázdný, podívejte se, zda obsahuje vzorec.
Pokud neexistuje žádný vzorec, zjistěte, zda obsahuje číselnou hodnotu nebo text.
Když rutina skončí, proměnná Msg obsahuje řetězec, který popisuje obsah buňky. Funkce MsgBox zobrazí tuto zprávu.
Zpráva zobrazená postupem CheckCell.
Struktury Select Case můžete vnořit tak hluboko, jak potřebujete, ale ujistěte se, že každý příkaz Select Case má odpovídající příkaz End Select.
Pokud stále nejste přesvědčeni, že odsazení kódu stojí za námahu, předchozí výpis slouží jako dobrý příklad. Odsazení opravdu proto, aby byly úrovně vnoření jasné. Podívejte se na stejný postup bez jakéhokoli odsazení:
Sub CheckCell() Dim Msg As String Select Case IsEmpty (ActiveCell) Případ pravdivý Msg = "je prázdné." Případ Else Vyberte Case ActiveCell.HasFormula Případ pravdivý Msg = „má vzorec“ Případ Else Vyberte velikost písmen jeNumeric(ActiveCell) Případ pravdivý Msg = „má číslo“ Případ Else Msg = „má text“ Konec Vyberte Konec Vyberte Konec Vyberte MsgBox „Cell “ & ActiveCell.Address & „ “ & Msg End Sub
Docela nepochopitelné, co?
Jak zablokovat aplikaci Microsoft Word v otevírání souborů v režimu pouze pro čtení v systému Windows Aplikace Microsoft Word otevírá soubory v režimu pouze pro čtení, takže je nelze upravovat? Nebojte se, metody jsou uvedeny níže
Jak opravit chyby při tisku nesprávných dokumentů Microsoft Word Chyby při tisku dokumentů Word se změněným písmem, chaotickými odstavci, chybějícím textem nebo ztraceným obsahem jsou poměrně časté. Nicméně ne
Pokud jste použili pero nebo zvýrazňovač ke kreslení na snímky aplikace PowerPoint během prezentace, můžete kresby uložit pro další prezentaci nebo je vymazat, takže až ji příště ukážete, začnete s čistými snímky aplikace PowerPoint. Chcete-li vymazat kresby perem a zvýrazňovačem, postupujte podle těchto pokynů: Mazání čar jedna na […]
Knihovna stylů obsahuje soubory CSS, soubory XSL (Extensible Stylesheet Language) a obrázky používané předdefinovanými vzorovými stránkami, rozvržení stránek a ovládací prvky v SharePointu 2010. Chcete-li najít soubory CSS v knihovně stylů webu pro publikování: Vyberte Akce webu→ Zobrazit Veškerý obsah webu. Zobrazí se obsah webu. Knihovna stylů se nachází v […]
Nezahlcujte své publikum gargantuovskými čísly. V aplikaci Microsoft Excel můžete zlepšit čitelnost řídicích panelů a sestav formátováním čísel tak, aby se zobrazovaly v tisících nebo milionech.
Naučte se používat nástroje sociálních sítí SharePoints, které umožňují jednotlivcům a skupinám komunikovat, spolupracovat, sdílet a propojovat se.
Juliánská data se často používají ve výrobním prostředí jako časové razítko a rychlý odkaz pro číslo šarže. Tento typ kódování data umožňuje maloobchodníkům, spotřebitelům a servisním zástupcům identifikovat, kdy byl produkt vyroben, a tím i stáří produktu. Juliánská data se také používají v programování, armádě a astronomii. Odlišný […]
Webovou aplikaci můžete vytvořit v Accessu 2016. Co je tedy vlastně webová aplikace? Web znamená, že je online, a aplikace je jen zkratka pro „aplikaci“. Vlastní webová aplikace je online databázová aplikace přístupná z cloudu pomocí prohlížeče. Webovou aplikaci vytváříte a udržujete ve verzi pro počítače […]
Většina stránek v SharePointu 2010 zobrazuje seznam navigačních odkazů na panelu Snadné spuštění na levé straně stránky. Panel Snadné spuštění zobrazuje odkazy na doporučený obsah webu, jako jsou seznamy, knihovny, weby a stránky publikování. Panel Snadné spuštění obsahuje dva velmi důležité odkazy: Odkaz na veškerý obsah webu: […]
U jednoduchých problémů Řešitel v Excelu obvykle rychle najde optimální hodnoty proměnné Řešitel pro účelovou funkci. Ale v některých případech má Řešitel problém najít hodnoty proměnné Řešitel, které optimalizují účelovou funkci. V těchto případech Řešitel obvykle zobrazí zprávu nebo chybovou zprávu, která popisuje nebo popisuje problém, který […]
