Namiesto viacerých príkazov If Then v Excel VBA, môžete použiť Vyberte Štruktúra prípadu.
Situácia:
Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
1. Najprv deklarujte dve premenné. Jedna premenná typu Celé číslo s názvom skóre a jedna premenná typu Reťazec s názvom výsledok.
Dim skóre ako celé číslo, výsledok ako reťazec
2. Inicializujeme premenné skóre s hodnotou bunky A1.
skóre = rozsah („A1“). Hodnota
3. Pridajte štruktúru Select Case.
Vyberte prípadové skóre
Prípad je> = 80
výsledok = "veľmi dobrý"
Prípad je> = 70
výsledok = "dobrý"
Prípad je> = 60
výsledok = "dostačujúce"
Prípad inak
výsledok = "nedostatočné"
Ukončiť výber
Vysvetlenie: Excel VBA používa hodnotu skóre premennej na testovanie každého nasledujúceho príkazu Case, aby zistil, či je potrebné vykonať kód pod príkazom Case.
4. Napíšte hodnotu výsledku premennej do bunky B1.
Rozsah („B1“). Hodnota = výsledok
5. Otestujte program.
Výsledok po kliknutí na príkazové tlačidlo na hárku:
Poznámka: Excel VBA spustí kód podľa druhého príkazu Case pre všetky hodnoty 70 alebo 70 a menej ako 80.
