Místo více příkazů If Then v Excel VBA, můžete použít Vyberte Struktura případu.
Situace:
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
1. Nejprve deklarujte dvě proměnné. Jedna proměnná typu Integer s názvem skóre a jedna proměnná typu String pojmenovaný výsledek.
Dim skóre jako celé číslo, výsledek jako řetězec
2. Inicializujeme proměnné skóre s hodnotou buňky A1.
skóre = Rozsah („A1“). Hodnota
3. Přidejte strukturu Select Case.
Vyberte Case case
Případ je> = 80
výsledek = "velmi dobrý"
Případ je> = 70
výsledek = "dobrý"
Případ je> = 60
výsledek = "dostačující"
Případ Jinak
výsledek = "nedostatečné"
Konec Vybrat
Vysvětlení: Excel VBA používá hodnotu skóre proměnné k testování každého následujícího příkazu Case, aby zjistil, zda by měl být spuštěn kód pod příkazem Case.
4. Zapište hodnotu výsledku proměnné do buňky B1.
Rozsah („B1“). Hodnota = výsledek
5. Otestujte program.
Výsledek po kliknutí na příkazové tlačítko na listu:
Poznámka: Excel VBA spustí kód pod druhým příkazem Case pro všechny hodnoty větší nebo rovné 70 a menší než 80.