Excel VBA Select Case Case
Select Case je náhradou za zapísanie viacerých príkazov if do VBA, keď máme v kóde veľa podmienok, možno budeme musieť použiť viac príkazov If a ktoré môžu byť zdĺhavé, pretože sa stávajú zložitejšími, pretože poskytuje viac príkazov If, v select case statement definujeme kritériá ako rôzne prípady a výsledky podľa nich.
VYBERTE PRÍPAD pomáha pri rozhodovaní. V tomto prípade sa na posúdenie rôznych možných prípadov používa iba jeden výraz. Na vykonanie vyvinutého kódu sa ľahko analyzuje viac podmienok. Tento výrok prípadu sa používa ako náhradný výrok k ELSE IF na posúdenie výrazov. Je klasifikovaná ako logická funkcia, ktorá je zabudovaná do programu Excel. Ak chcete použiť túto funkciu, kód sa zadáva prostredníctvom editora jazyka Visual Basic, ktorý sa nachádza na karte vývojár.
Vysvetlenie
Vo výberovom prípade sa používajú rôzne skupiny výpisov. Aby ste to mohli efektívne využiť, je potrebné dodržiavať nasledujúcu syntax. Je to podobné ako príkaz switch uvedený v iných programovacích jazykoch, ako sú Java, C # a PHP.
Vyberte (Prípad) Výraz na testovanie (Prípad) Zoznam príkazov na vyjadrenie (Prípad 1, Prípad 2, Prípad 3 atď.)) Prípad Else (Prípady Iné) Koniec Vybrať
Vysvetlenie pojmov spojených s vybraným prípadom je uvedené nižšie.
Výraz na testovanie: Je potrebné vyhodnotiť rôzne typy údajov, ako sú celé číslo, reťazec, logická hodnota, objekt a znak.
Zoznam výrazov: Výrazy sa vytvárajú s prípadom, aby sa zistila presná zhoda zadaného vstupu. Ak sú viac ako dva výrazy, sú oddelené čiarkou. 'Is' je kľúčové slovo používané pri porovnávaní týchto dvoch výrazov pomocou logických operátorov v exceli, napríklad =,, =.
- Koncový výber: Zatvára definíciu prípadu výberu konstruktora
- Príkazy: Príkazy sa vytvárajú pomocou príkazu case na spustenie výrazov, ktoré sa vyhodnotia na analýzu, či existuje zodpovedajúci príkaz
- Príkazy Else: Je potrebné testovať príkaz else, keď sa testovací výraz nezhoduje so žiadnymi príkazmi case.
Ako používať vyhlásenie VBA Select Case?
Funkcia výberu prípadov poskytovaná VBA sa nespustí v bežných pracovných hárkoch. Musíme použiť voľbu Visual Basic na karte Vývojár. Používateľom definované funkcie a kódovanie sa vytvárajú v režime vývojára na spustenie rôznych malých aplikácií v obchodnej oblasti.
Používa sa v situáciách, keď sú vnorené výroky v Exceli. Je to najlepšia možnosť, ako sa vysporiadať s rôznymi prípadovými vyhláseniami. Aby bolo možné túto možnosť využiť efektívne, je potrebné vykonať nasledujúce úlohy.
- Najskôr je potrebné vytvoriť makro umiestnením ovládacieho prvku príkazového tlačidla do hárka programu Excel.
- Potom kliknite pravým tlačidlom myši na príkazové tlačidlo a vyberte možnosť zobrazenia kódu.
- Vložte kód medzi funkciu príkazového tlačidla a koncový sub.
- Ladením kódu identifikujte všetky syntaktické chyby.
- Zostavte kód a vyhľadajte chyby kompilácie, ktoré umožnia úspešné vykonanie programu
- Zmeňte vstupné hodnoty a sledujte rôzne výsledky na základe kritérií zhody
Príklad č. 1 - Jednoduché vyhlásenie o prípade
Tento príklad slúži na pochopenie jednoduchého prípadu výberu na vyhľadanie zhodnej hodnoty.
Kód:
Súkromný subvýborový príklad () Dim A ako celé číslo A = 20 Vyberte prípad A prípad 10 MsgBox "Prvý prípad sa zhoduje!" Prípad 20 MsgBox „Druhý prípad sa zhoduje!“ Prípad 30 MsgBox „Tretí prípad sa zhoduje s výberom prípadu!“ Prípad 40 MsgBox „Štvrtý prípad sa zhoduje s výberom prípadu!“ Prípad Else MsgBox "Žiadny z prípadov sa nezhoduje!" Koniec Vyberte Koniec Sub
Výsledok:
Na porovnanie testovacieho výrazu s rôznymi prípadmi sa používajú výroky štyroch prípadov a prípad iných prípadov. V tomto príklade je druhý prípad porovnaný, pretože premenná A sa zhoduje s 20.
Príklad č. 2 - Kľúčové slovo „do“ na testovanie známok
Tento príklad vysvetľuje použitie kľúčového slova „Komu“ vo vybranom prípade.
Kód:
Private Sub Selcasetoexample () Stlmiť študentské známky ako celé číslo studentmarkmarks = InputBox ("Zadať známky medzi 1 až 100?") Vybrať prípadové študentské známky Prípad 1 až 36 MsgBox "Fail!" Prípad 37 až 55 MsgBox "C triedy" Prípad 56 až 80 MsgBox "B triedy" Prípad 81 až 100 MsgBox "A" "Prípad Else MsgBox" Mimo rozsahu "Koniec Vyberte Koniec Sub
Výsledok:
Kľúčové slovo „Komu“ je užitočné pri definovaní množiny testovacích výrazov v rozsahu. Je užitočné vyhľadať známku, ktorú študent získal, porovnaním rôznych prípadov. Po spustení programu musíme zadať hodnotu, aby sme dosiahli výsledok.
Výstup sa zobrazí so schránkou so správou, ako je to znázornené na snímke obrazovky vyššie.
Príklad č. 3 - Použitie kľúčového slova „je“ s výberom veľkých a malých písmen
Tento príklad demonštruje použitie kľúčového slova „Je“ s prípadom výberu.
Kód:
Sub CheckNumber () Dim NumInput As Integer NumInput = InputBox ("Prosím, zadajte číslo") Select Case NumInput Case Is = 200 MsgBox "Zadali ste číslo väčšie alebo rovné 200" End Select End Sub
Kľúčové slovo „je“ pomáha nájsť zhodné hodnoty iba s prípadovými príkazmi. Porovnáva testovací výraz s daným vstupom a vytvára výstup.
Výstup je získaný tak, ako je to znázornené na obrázku, ak je zadaná hodnota viac ako 200
Príklad č. 4 - S príkazovým tlačidlom na zmenu hodnôt
Výberový prípad sa používa aj s príkazovým tlačidlom pri vytváraní makra.
Kód:
Sub color () Stlmiť farbu As String color = Range ("A1"). Value Select Case color Case "Red", "Green", "Yellow" Range ("B1"). Value = 1 Case "White", "Black "," Hnedý "rozsah (" B1 "). Hodnota = 2 prípady" Modrý "," Nebesky modrý "rozsah (" B1 "). Hodnota = 3 Iné prípady (" B1 "). Hodnota = 4 Koniec Vyberte Koniec Sub
Ako je uvedené v programe, vstup sa preberá z buniek pracovného hárka. Program sa spustí po kliknutí na príkazové tlačidlo použité z ovládacích prvkov ActiveX. V tomto prípade sa na kombináciu testovacích výrazov používa oddeľovač čiar.
Keď sa zmení hodnota v bunke A1, dôjde k zmene v bunke B1 aj spustením makra programu Excel prostredníctvom príkazového tlačidla. Môžete sa pozrieť na snímku obrazovky uvedenú nižšie: -
Príklad č. 5 - Skontrolujte nepárne alebo párne číslo
Tento príklad na pomoc pri kontrole čísla je párny alebo nepárny.
Kód:
Sub CheckOddEven () CheckValue = InputBox ("Zadajte číslo") Vyberte prípad (CheckValue Mod 2) = 0 Case True MsgBox "Číslo je párne" Case False MsgBox "Číslo je nepárne" Koniec Vyberte Koniec Sub
Programovanie je vyvinuté, ako je znázornené na snímke obrazovky, a výstup je zobrazený nasledujúcim spôsobom, aj keď je zadané párne číslo.
Príklad č. 6 - Vnorené výpisy z vybraných prípadov
Vnorenie je užitočná vlastnosť vybratého prípadu a je znázornený spôsob, ako sa to deje.
Kód:
Sub TestWeekday () Vybrať prípad všedný deň (teraz) Prípad 1, 7 Vybrať prípad všedný deň (teraz) Prípad 1 MsgBox "Dnes je nedeľa" Prípad Else MsgBox "Dnes je sobota" Koniec Vybrať prípad Inokedy MsgBox "Dnes je deň v týždni" Koniec Vyberte koniec Sub
Tu je výberový prípad definovaný vo vnútri iného výberového prípadu na testovanie dňa, týždňa alebo víkendu. Okrem prípadov 1 a 7 zostávajú všetky dni v pracovných dňoch (Poznámka: prípadom 1 je nedeľa a prípadom 7 je sobota)
Na čo treba pamätať
- Kľúčové slovo „Is“ použité vo vyhlásení (case) a (case else) nie sú rovnaké.
- Ovládací prvok ActiveX by sa mal používať pri vykonávaní programu prostredníctvom príkazového tlačidla, ktoré prijíma vstup a zobrazuje výstup v rozsahu buniek tabuľky Excel.
- Je ťažké spustiť programy vo VBA, ak sú makra zakázané a vždy umožnite makrám dosiahnuť najlepšie výsledky.
- VBA rozlišuje veľké a malé písmená a na dosiahnutie lepších výsledkov je potrebné zadávať údaje presne.
