VBA Select Case

A VBA Select Case egyike annak a hasonló feltételnek, amelyet több feltétel tesztelésére használunk a VBA hagyományos IF-feltételei helyett. A Select Case pontosan ugyanúgy működik, ahogyan az IF feltétel működik.

Például, ahogyan több feltételt tesztelünk, és eredményeket rajzolunk IF feltétellel, hasonlóan a SELECT CASE használatával, teszteljük a feltételt és rajzolunk eredményeket. Ebben a cikkben bemutatom a SELECT CASE nyilatkozatának ideológiáját.

A VBA Select Case képlete

Hogyan kell használni az Excel VBA Select esetet ?

Néhány példával megértjük, hogyan kell használni a VBA Select Case Excel funkciót.

Itt töltheti le ezt a VBA eseti függvény sablont - VBA esetes függvény sablon

VBA Select Case Function - 1. példa

Tegyük fel, hogy van-e értéke az A1-es cellában, és meg akarja próbálni, hogy az érték nagyobb-e vagy sem 100.

Ha az érték nagyobb, mint 100, akkor a B1 cellában „Több mint 100” eredményre van szükség, különben „kevesebb mint 100” eredményre van szükség. A kód alatt az elvégzi a munkát.

 Sub SelectCase_Ex () Válassza ki az esettartományt ("A1"). Értékesemény> 100 tartomány ("B1"). Érték = "Több mint 100" Esettartomány-tartomány ("B1"). Érték = "Kevesebb mint 100" Vége Kiválasztás Befejezés Sub 

Futtassa ezt a kódot F5 billentyűvel vagy manuálisan, az ábra szerint, hogy eredményeket kapjon a B1 cellába.

VBA Select Case Function - 2. példa

Most megvizsgáljuk a beágyazott Select Case állításokat. Tegyük fel, hogy január és december között van hiteltörlesztési táblája.

Az adatok állapotrészében az alábbiak szerint kell megszerezni az eredményt.

  • Ha a helyreállítási érték meghaladja a 45000-et, akkor az eredménynek „Kiváló” -nak kell lennie.
  • Ha a visszanyerési érték meghaladja a 40000-at, akkor az eredménynek „nagyon jó” -nak kell lennie.
  • Ha a helyreállítási érték meghaladja a 30000-at, akkor az eredménynek „jó” -nak kell lennie.
  • Ha a helyreállítási érték meghaladja a 20000-at, akkor az eredménynek „Nem rossz” -nak kell lennie.
  • Ha az összes eredmény HAMIS, akkor az eredménynek rossznak kell lennie

Mivel több esetet kell tesztelnünk, ugyanúgy, mint a beágyazott IF utasításokat, beágyazott Select Case utasításokat kell használni.

 Sub IF_Results () Dim i Egész számként i = 2 Az i = 2-től 13-ig Válassza az esetleges cellákat (i, 2) .Érték értéke> 45000 cella (i, 3) .Érték = "Kiváló" Eset> 40000 cella (i, 3). Érték = "Nagyon jó" eset> 30000 cella (i, 3). Érték = "Jó" eset> 20000 cella (i, 3). Érték = "Nem rossz" eset egyéb cella (i, 3). ) .Value = "Rossz" End Válassza a Next i End Sub lehetőséget 

Másolja ezt a kódot, és illessze be a modulba.

Most futtassa ezt a kódot az F5 billentyűvel vagy manuálisan, hogy a kívánt eredményt elérje az Állapot oszlopban.

VBA Select Case Function - 3. példa

Most a Select Case paramétert fogjuk látni a saját bemeneti értékünkkel. Látjuk, hogyan kell értéket szolgáltatni egy beviteli mezőhöz, és a megadott bemeneti érték alapján meghatározzuk az eredményt.

 Sub SelectCase_InputBox () Dim MyValue As Integer MyValue = Application.InputBox ("Csak számérték megadása", "Szám megadása") Select Case MyValue Case Is> 1000 MsgBox "A megadott érték több mint 1000" Eset> 500 MsgBox "Bevitt érték több mint 500 "Case Else MsgBox" A megadott érték kevesebb, mint 500 "End Select End Sub 

Másolja és illessze be ezt a kódot a moduljába.

1. lépés: Miután a kódot a modulra másolta, futtassa a kódot, amelyen látni fogja ezt a beviteli mezőt.

2. lépés: Itt csak numerikus értékeket kell beírnunk.

3. lépés: Most kattintson az OK gombra, és megjelenik egy üzenetmező, amelyben megjelenik a Select Case utasítás eredménye.

VBA Select Case Function - 4. példa

Ebben a példában meglátjuk, hogyan lehet átengedni egy számtartományt tesztként az eset kiválasztásához, és ennek alapján kirajzoljuk az eredményeket.

Másolja és illessze be az alábbi kódot a modulba a futtatáshoz.

 Sub SelectCase () Eltávolítja a szintet egész számként Monoszám = Alkalmazás.InputBox ("Szám megadása", "Kérjük, írjon be számokat 100-tól 200-ig") Válassza az eset Mynumber eset 100-tól 140-ig MsgBox "A megadott szám kevesebb, mint 140" 141. eset 180 MsgBox "A megadott szám kevesebb, mint 180" Case Else MsgBox "A megadott szám> 180 és <200" End Select End Sub 

1. lépés: Futtassa ezt a kódot, látni fogja a Beviteli mezőt .

2. lépés: Amint a prompt azt mondja, be kell írnunk a 100 és 200 közötti számokat. Tehát írjuk be a számokat a 100 és 200 között.

3. lépés: Kattintson az OK gombra. Az eredményt a kiválasztott esettanulmány alapján fogjuk látni.

Dolgok, amikre emlékezni kell

  • Az IF-vel ellentétben a teszt nem fogja teljesíteni a Select Case összes feltételét. Amint a feltétel teljesül, megszűnik a többi feltételtől.
  • A többi itt feltüntetett feltételekhez hasonlóan az összes szöveges értéknek idézőjelekben kell lennie.
  • Ez pontosan hasonló a VBA IF-állításához. Ez egyfajta alternatívája az IF állításnak.

Ajánlott cikkek

Ez a VBA Select Case Function útmutatója. Itt tárgyaltuk a VBA Select Case és az Excel VBA Select Case Function használatának módját, néhány gyakorlati példával és letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -

  1. Útmutató az Excel VBA hurkokhoz
  2. Hogyan lehet használni a VBA függvényt Excelben?
  3. Hogyan kell használni a VBA VLOOKUP funkciót?
  4. Hogyan lehet létrehozni az Excel lista mezőt?

Kategória: