300 Esimerkkejä

Valitse Kotelo

Select Case

Useiden If sitten -lausekkeiden sijaan Excel VBA , voit käyttää Valitse Kotelon rakenne .





Tilanne:

excel jäädyttää ruudut rivin ja sarakkeen samanaikaisesti

Valitse tapaus Excel VBA: ssa





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'). Arvo

3. Lisää Select Case -rakenne.

Valitse Kotelopisteet
Kotelo 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 = tulos

5. Testaa ohjelma.

Tulos, kun napsautat taulukon komentopainiketta:

Valitse Tapaustulos

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.

3/9 valmis! Lue lisää jos sitten lausunnot>
Siirry seuraavaan lukuun: Silmukka



^