Namesto več stavkov If Then v Excel VBA, lahko uporabite Izberite Struktura ohišja.
Situacija:
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
1. Najprej razglasite dve spremenljivki. Ena spremenljivka tipa Integer z imenom score in ena spremenljivka tipa String named result.
Zatemni rezultat kot celo število, rezultat kot niz
2. Spremenljiv rezultat inicializiramo z vrednostjo celice A1.
score = Razpon ("A1"). Vrednost
3. Dodajte strukturo Select Case.
Izberite Ocena primera
Primer je> = 80
rezultat = "zelo dobro"
Primer je> = 70
rezultat = "dobro"
Primer je> = 60
result = "zadosten"
Primer drugače
result = "nezadostno"
Konec Izberite
Pojasnilo: Excel VBA uporablja vrednost spremenljive ocene za preizkus vsakega naslednjega stavka Case, da preveri, ali je treba izvesti kodo pod stavkom Case.
4. Vrednost rezultata spremenljivke zapišite v celico B1.
Razpon ("B1"). Vrednost = rezultat
5. Preizkusite program.
Rezultat, ko kliknete ukazni gumb na listu:
Opomba: Excel VBA izvede kodo pod drugim stavkom Case za vse vrednosti, ki so večje ali enake 70 in manjše od 80.