Umjesto više naredbi If Then u Excel VBA, možete koristiti Odaberite Struktura kućišta.
Situacija:
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo, deklarirajte dvije varijable. Jedna varijabla tipa Integer nazvana rezultat i jedna varijabla tipa String imenovani rezultat.
Zatamni rezultat kao cijeli broj, rezultat kao niz
2. Promjenjivi rezultat inicijaliziramo vrijednošću ćelije A1.
score = Raspon ("A1"). Vrijednost
3. Dodajte strukturu Select Case.
Odaberite Ocjena slučaja
Slučaj je> = 80
rezultat = "vrlo dobro"
Slučaj je> = 70
rezultat = "dobro"
Slučaj je> = 60
rezultat = "dovoljan"
Drugi slučaj
rezultat = "nedovoljan"
Kraj Odaberite
Objašnjenje: Excel VBA koristi vrijednost varijabilnog rezultata za testiranje svake naredne izjave slučaja kako bi vidio treba li se izvršiti kod pod stavkom slučaja.
4. Vrijednost rezultata varijable upišite u ćeliju B1.
Raspon ("B1"). Vrijednost = rezultat
5. Testirajte program.
Rezultat kada pritisnete naredbeni gumb na listu:
Napomena: Excel VBA izvršava kôd pod drugim izrazom Case za sve vrijednosti veće ili jednake 70 i manje od 80.