Excel VBA: lla on IF Sitten muu -rakenne, jonka avulla voit analysoida useita ehtoja ja suorittaa koodeja perustuu näihin ehtoihin.
Toinen samanlainen rakenne, jonka avulla voit tarkistaa useita ehtoja, on SELECT CASE -käsky.
Select Case on hyödyllinen, kun sinulla on vähintään kolme haluamaasi ehtoa. tarkistaa. Voit käyttää tätä myös kahdella ehdolla (mutta mielestäni jos silloin muuta on helpompi käyttää näissä tapauksissa).
Yksinkertainen esimerkki, jossa Select Case -lauseke on hyödyllinen, kun haluat saada arvosanan opiskelija pisteytettyjen pisteiden perusteella (käsitelty esimerkkinä myöhemmin tässä opetusohjelmassa).
Huomaa: Kaikki tässä opetusohjelmassa käsitellyt esimerkkikoodit on tarkoitettu sijoitettaviksi VBA: n moduuliin.
Tämä opetusohjelma kattaa:
Valitse tapaussyntaksi
Alla on Valitse tapauksen syntaksi Excelissä VBA:
Select Case Test_ExpressionCase Value_1Code Block when Test_Expression = Value_1Case Value_2Code Block when Test_Expression = Value_2Case Value_3Code Block when Test_Expression = Value_3Case ElseCode Block when none of the case conditions are metEnd Select
- Test_Expression: Tämä on lauseke, jonka arvoa analysoimme käyttämällä erilaisia tapauksia (selitetään paremmin alla olevilla esimerkeillä).
- Ehto_1, Ehto_2,…: Nämä ovat ehdot, joilla tekstilauseke testataan. Jos se täyttää ehdon, tietyn ehdon koodilohko suoritetaan.
Jokaisessa valitsemassasi Select Case -lausekkeessa on käytettävä End Select -käskyä.
Huomaa: Heti kun ehto täyttyy, VBA poistuu valitun tapausrakenteesta. Joten jos sinulla on viisi ehtoa ja toinen ehto täyttyy, VBA poistuu Select Case -kohdasta – eikä muita ehtoja testata.
Valitse esimerkkitapauksia
Nyt ymmärrämme paremmin, kuinka Select Case -lauseketta käytetään VBA: ssa, käymme läpi muutamia esimerkkejä.
Huomaa, että useimmat tämän opetusohjelman esimerkit on tarkoitettu käsitteen selittämiseen. Tämä voi olla paras tapa saada työ tehtyä.
Aloitetaan yksinkertaisesta esimerkistä siitä, miten Select Case antaa meille mahdollisuuden tarkistaa olosuhteet.
Esimerkki 1 – Tarkista numerot
Alla olevassa esimerkissä koodi pyytää käyttäjää syöttämään minkä tahansa numeron väliltä 1–5 ja näyttää sitten viestiruudun käyttäjän antamalla numerolla.
Sub CheckNumber()Dim UserInput As IntegerUserInput = InputBox("Please enter a number between 1 and 5")Select Case UserInputCase 1MsgBox "You entered 1"Case 2MsgBox "You entered 2"Case 3MsgBox "You entered 3"Case 4MsgBox "You entered 4"Case
read more