Excel VBA Esettanulmány kiválasztása
A Select Case a többszörös if-utasítások leírásának helyettesítője a VBA-ban, ha sok feltételünk van egy kódban, akkor esetleg több If-utasítást kell használnunk, és ami unalmas lehet, ha bonyolultabbá válik, mivel több if-utasítás is rendelkezésre áll, válasszon esettanulmányt, a kritériumokat különböző esetekként és eredményként definiáljuk.
A SELECT CASE segít a döntéshozatalban. Ebben csak egy kifejezést használnak a különböző lehetséges esetek értékelésére. A kifejlesztett kód végrehajtásához több feltételt is könnyen elemezhetünk. Ezt az esetmegállapítást az ELSE IF helyettesítő nyilatkozataként használják a kifejezések értékeléséhez. Az Excelbe beépített logikai függvénynek minősül. Ennek a funkciónak a használatához a kódot a fejlesztői fül alatt bemutatott visual basic szerkesztőn keresztül kell megadni.
Magyarázat
Különféle állításcsoportokat használnak a Kiválasztási esetben. Ennek hatékony használatához a következő szintaxist kell követni. Hasonló a kapcsoló utasításhoz, amelyet más programozási nyelvek mutatnak be, például Java, C # és PHP.
Kiválasztás (eset) Kifejezés teszteléshez (Eset) Kifejezési nyilatkozatok listája (1. eset, 2. eset, 3. eset és így tovább …) Eset Egyéb (Egyéb állítások) Vége Kiválasztás
A kiválasztott esethez kapcsolódó kifejezések magyarázata a következő.
Kifejezés teszteléshez: Meg kell értékelni a különféle típusú adatokat, például egész számot, karakterláncot, logikai értéket, objektumot és karaktert.
Kifejezések listája: A kifejezéseket a kis- és nagybetűvel hozzák létre, hogy megtalálják a bevitt bemenet pontos egyezését. Ha kettőnél több kifejezés van, akkor ezeket vesszővel kell elválasztani. Az 'Is' egy kulcsszó, amelyet a két kifejezés összehasonlításához használnak az excel logikai operátorai segítségével, például =,, =.
- End Select: Bezárja a konstruktor select case definícióját
- Állítások: A kijelentéseket az eset felhasználásával fejlesztjük ki a kifejezések futtatásához, amelyeket elemezünk annak elemzésére, hogy van-e valamilyen egyező utasítás
- Egyéb állítások: Az else utasítás tesztelésére szolgál, ha a tesztelési kifejezés nem egyezik meg egyetlen esetnyilatkozattal sem.
Hogyan használható a VBA Select Case Statement?
A VBA által biztosított válogatás funkció nem működik a normál munkalapokon. Használnunk kell a Visual Basic opciót a Fejlesztő fül alatt. A felhasználó által definiált függvényeket és kódolásokat a fejlesztői módban hozzák létre az üzleti területen található különféle kis alkalmazások futtatásához.
Olyan helyzetekben használják, amikor be vannak ágyazva, ha az excelben szereplő utasítások vannak. Ez a legjobb megoldás a különféle esetmegállapítások kezelésére. Az opció hatékony használatához a következő feladatokat kell végrehajtani.
- Először makrót kell létrehoznia azáltal, hogy a parancsgomb vezérlését az excel lapra helyezi.
- Ezt követően kattintson a jobb gombbal a parancs gombra, és válassza a nézet kód opciót.
- Helyezze a kódot a parancsgomb funkció és a végső al közé.
- Hibaelhárítás a kódot a szintaktikai hibák azonosításához.
- Fordítsa le a kódot, hogy megtalálja a program sikeres végrehajtásához szükséges fordítási hibákat
- Módosítsa a bemeneti értékeket, hogy különböző eredményeket vegyen figyelembe az egyezési kritériumok alapján
1. példa - Esettanulmány egyszerű kiválasztása
Ez a példa az egyszerű kiválasztási eset megértésére szolgál az egyező érték megtalálásához.
Kód:
Private Sub Selcaseexample () Dim A mint egész szám A = 20 Select Case A Case 10 eset MsgBox "Az első eset megegyezik!" 20. eset MsgBox "A második eset megegyezik!" 30. eset MsgBox "A harmadik eset megegyezik a Select Case-ben!" 40. eset MsgBox "A negyedik eset megegyezik a Select Case-ben!" Case Else MsgBox "Egyik eset sem felel meg!" Vége Válassza a Vége al lehetőséget
Eredmény:
Négy eset- és esetkivonat használatával összehasonlítjuk a teszt kifejezést a különböző esetekkel. Ebben a példában a második eset egyeztethető, mivel az A változó 20-val egyezik.
2. példa - 'To' kulcsszó az osztályzatok teszteléséhez
Ez a példa elmagyarázza a „Címzett” kulcsszó használatát a kiválasztott esettel.
Kód:
Private Sub Selcasetoexample () Dim Studentmarks Integer studentmarks = InputBox ("Írja be a jeleket 1 és 100 között?") Válassza ki az eset diákjeleket Case 1 - 36 eset MsgBox "Fail!" 37–55. Eset, MsgBox „C osztály”, eset 56–80, „MsgBox„ B osztály ”, eset 81–100,„ MsgBox ”osztályú„ más osztályú ”eset, egyéb MsgBox„ tartományon kívül ”
Eredmény:
A 'Címszó' kulcsszó segít meghatározni a teszt kifejezések halmazát egy tartományban. Hasznos megtalálni a hallgató által megszerzett osztályzatot a különböző esetek összehasonlításával. A program futtatása után meg kell adnunk az értéket az eredmény eléréséhez.
A kimenet egy üzenetmezővel jelenik meg, amint az a fenti képernyőképen látható.
3. példa - Az „Is” kulcsszó használata a Kiválasztott eset használatával
Ez a példa bemutatja az „Is” kulcsszó használatát a kiválasztott kis- és nagybetűkkel.
Kód:
Sub CheckNumber () Dim NumInput As Integer NumInput = InputBox ("Írjon be egy számot") Kiválasztja az esetet NumInput Case Is = 200 MsgBox "200-nál nagyobb vagy egyenlő számot adott meg" End Select End End Sub
Az 'Is' kulcsszó segít megtalálni az egyező értékeket, csak eseti utasításokkal. Összehasonlítja a teszt kifejezést az adott bemenettel a kimenet előállításához.
A kimenetet az ábra mutatja, ha a megadott érték meghaladja a 200 értéket
4. példa - Parancsgombbal az értékek megváltoztatásához
A kijelölt esetet a Parancs gombra kattintva is használhatja makró létrehozásával.
Kód:
Alszín () Halvány szín, mint Karakterlánc = Tartomány ("A1"). Érték Válassza ki a tok színét: "Piros", "Zöld", "Sárga" tartomány ("B1"). Érték = 1 "Fehér", "Fekete" tok "," Barna "tartomány (" B1 "). Érték = 2 eset" kék "," égkék "tartomány (" B1 "). Érték = 3 eset más tartomány (" B1 "). Érték = 4 vég kiválasztása Vége al
Amint azt a program mutatja, a bemenet a munkalap celláiból származik. A program az ActiveX-vezérlőkből használt parancs gombra kattintás után kerül végrehajtásra. Ebben vessző elválasztót használnak a teszt kifejezések egyesítésére.
Amikor az A1 cellában az érték megváltozott, az a B1 cellában is megváltozik, ha az excel makrót a parancsgombon keresztül futtatja. Hivatkozhat az alábbi képernyőképre: -
5. példa - Ellenőrizze a páratlan vagy páros számot
Ez a példa egy szám ellenőrzésére páros vagy páratlan.
Kód:
Sub CheckOddEven () CheckValue = InputBox ("Írja be a számot") Kiválasztja az esetet (CheckValue Mod 2) = 0 Case True MsgBox "A szám páros" Case False MsgBox "A szám páratlan" End Select End End Sub
A kódolás fejlesztése megtörtént, ahogy a képernyőképen látható, és a kimenet a következőképpen jelenik meg, amikor még a számot is megadják.
6. példa - Beágyazott esetek kijelölése
A fészkelés a kiválasztott eset hasznos tulajdonsága, és ennek módja megmutatkozik.
Kód:
Sub TestWeekday() Select Case Weekday(Now) Case 1, 7 Select Case Weekday(Now) Case 1 MsgBox "Today is Sunday" Case Else MsgBox "Today is Saturday" End Select Case Else MsgBox "Today is a Weekday" End Select End Sub
Here the select case is defined inside another select case to test a day, weekday, or weekend. Except for case 1 and 7 remaining all are weekdays (Note: case 1 is Sunday and case 7 is Saturday)
Things to Remember
- The ‘Is’ keyword using in the statement of (case) and (case else) are not equal.
- ActiveX control should be used in executing program through a command button taking input and displaying output in the excel sheet range of cells.
- It is hard to run the programs in VBA if macros are disabled and always enable Macros to get the best results.
- A VBA kis- és nagybetűk különbözik, és a jobb eredmény elérése érdekében a bevitelt pontosan meg kell adni.
