Useiden If sitten -lausekkeiden sijaan Excel VBA , voit käyttää Valitse Kotelon rakenne .
Tilanne:
excel jäädyttää ruudut rivin ja sarakkeen samanaikaisesti
Aseta a komentopainiketta laskentataulukkoon 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.
Ei mitäänpisteetKuten Kokonaisluku, tulosKuten Jousisoitin
2. Alustamme muuttujan pistemäärän solun A1 arvolla.
score = Range ('A1'). Arvo3. Lisää Select Case -rakenne.
Valitse KotelopisteetKotelo On> = 80
tulos = 'erittäin hyvä'
Kotelo On> = 70
tulos = 'hyvä'
Kotelo On> = 60
tulos = 'riittävä'
Kotelo Muu
tulos = 'riittämätön'
Loppu 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 = tulos5. Testaa ohjelma.
Tulos, kun napsautat taulukon komentopainiketta:
etsi ja korvaa kaava Excelissä
Huomautus: Excel VBA suorittaa toisen tapauslausekkeen koodin kaikille arvoille, jotka ovat suurempia tai yhtä suuria kuin 70 ja alle 80.
Siirry seuraavaan lukuun: Silmukka