Declarație de caz Excel VBA Select
Select Case este un înlocuitor al notării instrucțiunilor multiple if în VBA, atunci când avem multe condiții într-un cod, ar trebui să folosim mai multe instrucțiuni If și care pot fi plictisitoare pe măsură ce devin mai complexe pe măsură ce sunt furnizate mai multe instrucțiuni If, în selectați declarația de caz, definim criteriile ca fiind cazuri diferite și rezultate conform acestora.
SELECT CASE ajută la procesul decizional. În aceasta, o singură expresie este utilizată pentru a evalua diferitele cazuri posibile. Condițiile multiple sunt analizate cu ușurință pentru a executa codul dezvoltat. Această afirmație de caz este utilizată ca o afirmație substitutivă pentru ELSE IF pentru a evalua expresiile. Este clasificat ca o funcție logică care este încorporată în Excel. Pentru a utiliza această funcție, codul este introdus prin editorul de bază vizual prezentat în fila dezvoltator.
Explicaţie
Diverse grupuri de declarații sunt utilizate în cazul selectat. Următoarea sintaxă ar trebui urmată pentru a utiliza acest lucru în mod eficient. Este similar cu declarația switch prezentată în alte limbaje de programare, cum ar fi Java, C # și PHP.
Selectați (Caz) Expresie pentru testare (Caz) Listă de declarații de expresie (Cazul 1, Cazul 2, Cazul 3 și așa mai departe …) Alt caz (Declarații altele) Sfârșit Selectați
Explicația pentru termenii asociați cu cazul selectat este furnizată după cum urmează.
O expresie pentru testare: este necesară evaluarea diferitelor tipuri de date, cum ar fi număr întreg, șir, boolean, obiect și caracter.
Lista expresiilor: expresiile sunt create cu carcasa pentru a găsi potrivirea exactă a intrării introduse. Dacă există mai mult de două expresii, acestea sunt separate folosind operatorul virgulă. „Este” este un cuvânt cheie utilizat în compararea celor două expresii folosind operatori logici în excel, cum ar fi =,, =.
- End Select: Închide definiția de caz selectată de constructor
- Declarații: Declarațiile sunt dezvoltate folosind carcasa pentru a rula expresiile care sunt evaluate pentru a analiza dacă există o declarație potrivită
- Declarații Else: este de a testa declarația else atunci când expresia de testare nu se potrivește cu nici o declarație de caz.
Cum se utilizează declarația de caz VBA Select?
Funcția de selectare a cazului furnizată de VBA nu rulează în foile de lucru normale. Trebuie să folosim opțiunea Visual Basic din fila Dezvoltator. Funcțiile și codificarea definite de utilizator sunt create în modul dezvoltator pentru a rula diferitele aplicații mici din domeniul afacerii.
Se folosește în situații în care există instrucțiuni imbricate dacă în Excel. Este cea mai bună opțiune pentru a face față unei varietăți de declarații de caz. Pentru a utiliza această opțiune în mod eficient, trebuie efectuate următoarele sarcini.
- În primul rând, trebuie să creeze o macro prin plasarea comenzii butonului de comandă în foaia Excel.
- După aceea, faceți clic dreapta pe butonul de comandă și selectați opțiunea de vizualizare a codului.
- Plasați codul între funcția butonului de comandă și sub-finalul.
- Depanați codul pentru a identifica erorile de sintaxă.
- Compilați codul pentru a găsi erori de compilare pentru a executa cu succes programul
- Modificați valorile de intrare pentru a observa diferite rezultate pe baza criteriilor de potrivire
Exemplul nr. 1 - Declarație de caz simplă
Acest exemplu este de a înțelege cazul selectat simplu pentru a găsi valoarea potrivită.
Cod:
Private Sub Selcaseexmample () Dim A Ca întreg A = 20 Selectați cazul A Cazul 10 MsgBox "Primul caz este potrivit!" Case 20 MsgBox "Al doilea caz este potrivit!" Case 30 MsgBox "Al treilea caz se potrivește în Selectați caz!" Case 40 MsgBox "Al patrulea caz se potrivește în Selectați caz!" Case Else MsgBox "Niciunul dintre cazuri nu se potrivește!" Sfârșit Selectați Sfârșit Sub
Rezultat:
Patru enunțuri de caz și enunț de caz altceva sunt utilizate pentru a compara expresia testului cu diferite cazuri. În prezentul exemplu, al doilea caz este asortat ca variabilă A se potrivește cu 20.
Exemplul nr. 2 - Cuvântul cheie „Către” pentru a testa notele
Acest exemplu explică utilizarea cuvântului cheie „Către” cu cazul selectat.
Cod:
Private Sub Selcasetoexample () Dim Studentmarks As Integer studentmarks = InputBox ("Introduceți marcaje între 1 și 100?") Selectați Case student student Case 1 to 36 MsgBox "Fail!" Cazul 37 la 55 MsgBox „Gradul C” Cazul 56 la 80 MsgBox „Gradul B” Cazul 81 la 100 MsgBox „Un grad” Cazul Altele MsgBox „În afara intervalului” Sfârșit Selectare Sfârșit Sub
Rezultat:
Cuvântul cheie „Către” este util în definirea setului de expresii de testare într-un interval. Este util să găsim nota obținută de un elev prin compararea diferitelor cazuri. După rularea programului, trebuie să introducem valoarea pentru a obține rezultatul.
Ieșirea este afișată cu o casetă de mesaje, așa cum se arată în captura de ecran de mai sus.
Exemplul # 3 - Utilizarea cuvântului cheie „Este” cu caz selectat
Acest exemplu demonstrează utilizarea cuvântului cheie „Este” cu cazul selectat.
Cod:
Sub CheckNumber () Dim NumInput As Inger NumInput = InputBox ("Vă rugăm să introduceți un număr") Selectați Num Numar caz Intrare caz este = 200 MsgBox "Ați introdus un număr mai mare sau egal cu 200" Sfârșit Selectați Sfârșit Sub
Cuvântul cheie „Este” ajută la găsirea valorilor potrivite numai cu instrucțiuni de caz. Compară expresia testului cu intrarea dată pentru a produce ieșirea.
Ieșirea se obține așa cum se arată în figură dacă valoarea introdusă este mai mare de 200
Exemplul # 4 - Cu butonul de comandă pentru a schimba valorile
Cazul selectat este, de asemenea, utilizat cu butonul Comandă prin crearea unei macrocomenzi.
Cod:
Culoare secundară () Culoare slabă Ca culoare șir = Gama ("A1"). Valoare Selectați culoarea carcasei Carcasa "Roșu", "Verde", "Galben" Gama ("B1"). Valoare = 1 Carcasă "Alb", "Negru "," Maro "Interval (" B1 "). Valoare = 2 Carcasă" Albastru "," Cer albastru "Interval (" B1 "). Valoare = 3 Carcasă Interval (" B1 "). Valoare = 4 Sfârșit Selectare Sfârșit Sub
După cum se arată în program, intrarea este preluată din celulele foii de lucru. Programul este executat după ce faceți clic pe butonul de comandă utilizat din comenzile ActiveX. În aceasta, un separator de virgule este utilizat pentru a combina expresiile de testare.
Când valoarea din celula A1 s-a modificat, rezultă o schimbare în celula B1, de asemenea, executând macrocomanda excel prin butonul de comandă. Puteți consulta imaginea de mai jos: -
Exemplul # 5 - Verificați un număr impar sau par
Acest exemplu pentru a ajuta la verificarea unui număr este par sau impar.
Cod:
Sub CheckOddEven () CheckValue = InputBox ("Introduceți numărul") Selectați Case (CheckValue Mod 2) = 0 Case True MsgBox "Numărul este par" Case False MsgBox "Numărul este impar" End Select End End Sub
Codificarea este dezvoltată, așa cum se arată în captura de ecran, iar ieșirea este afișată după cum urmează când este introdus chiar numărul.
Exemplul # 6 - Declarații de caz selectate imbricate
Cuibărirea este o caracteristică utilă a cazului selectat, iar modul în care se face este arătat.
Cod:
Sub TestWeekday () Select Case 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
Aici cazul selectat este definit într-un alt caz selectat pentru a testa o zi, o săptămână sau un weekend. Cu excepția cazurilor 1 și 7 rămase, toate sunt săptămâni (Notă: cazul 1 este duminică și cazul 7 este sâmbătă)
Lucruri de amintit
- Cuvântul cheie „Este” utilizat în enunțul (caz) și (caz altceva) nu sunt egale.
- Controlul ActiveX trebuie utilizat în executarea programului printr-un buton de comandă care preia intrarea și afișează ieșirea în gama de celule a foii Excel.
- Este greu să rulați programele în VBA dacă macrocomenzile sunt dezactivate și permiteți întotdeauna Macros să obțină cele mai bune rezultate.
- VBA este sensibil la majuscule și minuscule, iar datele de intrare trebuie introduse cu precizie pentru a obține rezultate mai bune.
