Cum se folosește Declarația de caz selectată în VBA? (Exemple)

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ă integrată î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ții și coduri definite de utilizator 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 cod
  • Plasați codul între funcția butonului de comandă și sub-final
  • 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
Puteți descărca acest șablon Excel Excel VBA Select Case - Șablon Excel Excel VBA Select Case

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 afirmații de caz și afirmație 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 student marks As Integer studentmarks = InputBox ("Introduceți semnele între 1 până la 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 mesaj 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 utilizat și cu butonul Comandă prin crearea unei macrocomenzi.

Cod:

 Sub color() Dim color As String color = Range("A1").Value Select Case color Case "Red", "Green", "Yellow" Range("B1").Value = 1 Case "White", "Black", "Brown" Range("B1").Value = 2 Case "Blue", "Sky Blue" Range("B1").Value = 3 Case Else Range("B1").Value = 4 End Select End Sub 

As shown in the program, the input is taken from the cells of the worksheet. The program is executed after clicking on the command button used from ActiveX controls. In this, a comma separator is used to combine the test expressions.

When the value in the Cell A1 changed, it results in a change in the B1 cell also by running the excel macro through the command button. You can refer to the screenshot given below:-

Example #5 – Check a Number Odd or Even

This example to help to check a number is even or odd.

Code:

 Sub CheckOddEven() CheckValue = InputBox("Enter the Number") Select Case (CheckValue Mod 2) = 0 Case True MsgBox "The number is even" Case False MsgBox "The number is odd" End Select End Sub 

The coding is developed as shown in the screenshot and output is displayed as follows when even number is entered.

Example #6 – Nested Select Case Statements

Nesting is a useful feature of the select case and the way how it is done is shown.

Code:

 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 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 best results.
  • VBA is a case sensitive and input should be entered accurately to get better results.