Useiden If sitten -lausekkeiden sijaan Excel VBA, voit käyttää Valitse Kotelon rakenne.
Tilanne:
Aseta komentopainike laskentataulukkoosi ja lisää seuraavat koodirivit:
1. Ilmoita ensin kaksi muuttujaa. Yksi muuttuja, jonka tyyppi on Integer -niminen pisteet, ja yksi muuttuja, jonka tyyppi on String -niminen tulos.
Himmennä pisteet kokonaislukuna, tulos merkkijonona
2. Alustamme muuttujan pistemäärän solun A1 arvolla.
score = Range ("A1"). Arvo
3. Lisää Select Case -rakenne.
Valitse Tapaustulos
Tapaus on> = 80
tulos = "erittäin hyvä"
Tapaus on> = 70
tulos = "hyvä"
Tapaus on> = 60
tulos = "riittävä"
Asia Muu
tulos = "riittämätön"
Lopeta Valitse
Selitys: Excel VBA käyttää muuttujapisteen arvoa testatakseen jokaisen seuraavan tapauslausuman nähdäkseen, onko tapauslausekkeen alla oleva koodi suoritettava.
4. Kirjoita muuttujan tuloksen arvo soluun B1.
Alue ("B1"). Arvo = tulos
5. Testaa ohjelma.
Tulos, kun napsautat taulukon komentopainiketta:
Huomautus: Excel VBA suorittaa toisen tapauslausekkeen koodin kaikille arvoille, jotka ovat suurempia tai yhtä suuria kuin 70 ja alle 80.