Kako se koristi Izjava o slučaju u VBA? (Primjeri)

Izjava o slučaju Excel Excel VBA

Select Case je zamjena za zapisivanje višestrukih naredbi if u VBA, kada u kodu imamo mnogo uvjeta, možda ćemo morati koristiti više izjava If i koji mogu biti dosadni jer postaje složeniji jer se pruža više if naredbi, u select case case definiramo kriterije kao različite slučajeve i rezultate prema njima.

SELECT CASE pomaže u procesu donošenja odluka. U ovome se koristi samo jedan izraz za procjenu različitih mogućih slučajeva. Za izvršavanje razvijenog koda lako se analizira više uvjeta. Ova se izjava slučaja koristi kao zamjenska izjava ELSE IF za procjenu izraza. Klasificiran je kao logička funkcija koja je ugrađena u Excel. Da biste koristili ovu funkciju, kôd se unosi putem uređivača visual basic koji se nalazi na kartici programera.

Obrazloženje

U odabranom slučaju koriste se razne skupine izjava. Da bi se ovo učinkovito koristilo, treba slijediti sljedeću sintaksu. Sličan je naredbi switch predstavljenoj u drugim programskim jezicima kao što su Java, C # i PHP.

 Odaberite [Case] ​​Izraz za testiranje [Case] ​​Popis izjava izraza (Slučaj 1, Slučaj 2, Slučaj 3 i tako dalje ...) Drugi slučaj (Ostali navodi) Kraj Odabir

Objašnjenje pojmova povezanih s odabranim slučajem daje se kako slijedi

Izraz za testiranje: Potrebno je procijeniti različite vrste podataka kao što su cijeli broj, niz, logička vrijednost, objekt i znak.

Popis izraza:  Izrazi se kreiraju s velikim brojem slučajeva kako bi se pronašlo točno podudaranje unesenog unosa. Ako je više izraza, oni se odvajaju pomoću operatora zarez. 'Je' je ključna riječ koja se koristi za usporedbu dva izraza pomoću logičkih operatora u excelu kao što su =,, =.

  • End Select: Zatvara definiciju slučaja odabira konstruktora
  • Izjave: Izjave se razvijaju pomoću slučaja za pokretanje izraza koji se procjenjuju kako bi se analiziralo postoji li podudarna izjava
  • Ostale izjave: To je testiranje naredbe else kad se izraz za testiranje ne podudara s bilo kojim iskazom slučaja.

Kako se koristi Izjava o slučaju VBA?

Značajka odabira slučaja koju pruža VBA ne radi u uobičajenim radnim listovima. Moramo koristiti opciju Visual Basic na kartici Developer. Korisnički definirane funkcije i kodiranje stvoreni u načinu za programere za pokretanje različitih malih aplikacija u poslovnom polju.

Koristi se u situacijama kada postoje ugniježđene izjave if u excelu. Najbolja je opcija baviti se raznim navodima slučajeva. Da biste učinkovito koristili ovu opciju, trebate izvršiti sljedeće zadatke

  • Prije svega, treba stvoriti makronaredbu postavljanjem kontrole naredbenog gumba u excel list.
  • Nakon toga desnom tipkom miša kliknite naredbeni gumb i odaberite opciju prikaza koda
  • Postavite kôd između funkcije naredbenog gumba i završetka pod-mape
  • Otklonite pogreške u kodu kako biste prepoznali sintaksne pogreške.
  • Sastavite kod da biste pronašli pogreške u kompilaciji za uspješno izvršavanje programa
  • Promijenite ulazne vrijednosti kako biste promatrali različite rezultate na temelju kriterija podudaranja
Ovaj predložak VBA Select Case Excel možete preuzeti ovdje - VBA predložak Case Case Excel

Primjer # 1 - Jednostavna izjava slučaja

Ovaj je primjer za razumijevanje jednostavnog slučaja odabira za pronalaženje podudarne vrijednosti.

Kodirati:

Privatni pod Selcaseexmample () Zatamni kao cjelovito A = 20 Odaberi slučaj A Slučaj 10 MsgBox "Prvi slučaj se podudara!" Slučaj 20 MsgBox "Drugi slučaj se podudara!" Slučaj 30 MsgBox "Treći slučaj podudara se u odabranom slučaju!" Slučaj 40 MsgBox "Četvrti slučaj podudara se u odabranom slučaju!" Case Else MsgBox "Nijedan slučaj nije podudaran!" End Odaberite End Sub

Proizlaziti:

Četiri slučaja i case else koriste se za usporedbu testnog izraza s različitim padežima. U ovom se primjeru drugi slučaj podudara kao varijabla A koja se podudara s 20.

Primjer # 2 - Ključna riječ "Za" za testiranje ocjena

Ovaj primjer objašnjava upotrebu ključne riječi "Za" s odabranim padežom.

Kodirati:

Private Sub Selcasetoexample () Zatamni studentske oznake kao cjelobrojne studentske oznake = InputBox ("Unesi ocjene između 1 i 100?") Odaberite slučajeve studentskih oznaka Slučaj 1 do 36 MsgBox "Fail!" Slučaj 37 do 55 MsgBox "C Grade" Kućište 56 do 80 MsgBox "B Grade" Kućište 81 do 100 MsgBox "A Grade" Case Else MsgBox "Van dometa" End Select End Sub

Proizlaziti:

Ključna riječ 'To' korisna je u definiranju skupa testnih izraza u rasponu. Korisno je pronaći ocjenu koju je student stekao usporedbom različitih slučajeva. Nakon pokretanja programa, moramo unijeti vrijednost da bismo dobili rezultat.

Izlaz se prikazuje s okvirom za poruke kao što je prikazano na gornjoj snimci zaslona.

Primjer # 3 - Korištenje ključne riječi "Je" s velikim slovima

Ovaj primjer pokazuje upotrebu ključne riječi 'Je' s odabranim padežom.

Kodirati:

 Sub CheckNumber () Dim NumInput As Integer NumInput = InputBox ("Please enter a number") Select Case NumInput Case Is = 200 MsgBox "Upisali ste broj veći ili jednak 200" End Select End Sub

Ključna riječ "Je" pomaže u pronalaženju podudarnih vrijednosti samo s velikim i malim crtama. Uspoređuje testni izraz s danim ulazom da bi se dobio izlazni rezultat.

Izlaz se dobiva kako je prikazano na slici ako je unesena vrijednost veća od 200

Primjer # 4 - Pomoću naredbenog gumba za promjenu vrijednosti

Slučaj odabira koji se također koristi s gumbom Command stvaranjem makronaredbe.

Kodirati:

 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.