Excel VBA are construcția IF Then Else pe care o puteți utiliza pentru a analiza condiții multiple și a executa coduri bazat pe aceste condiții.
O altă construcție similară care vă permite să verificați condiții multiple este declarația SELECT CASE.
Select Case este util atunci când aveți trei sau mai multe condiții pe care le doriți a verifica. Puteți utiliza acest lucru și cu două condiții (dar consider că If Then Else este mai ușor de utilizat în aceste cazuri).
Un exemplu simplu în care declarația Select Case este utilă atunci când doriți să obțineți nota de student pe baza notelor pe care le-a obținut (prezentat ca exemplu mai târziu în acest tutorial).
Notă: Toate exemplele de coduri acoperite în acest tutorial sunt menite să fie plasate într-un modul în VBA.
Acest tutorial acoperă:
Selectați sintaxa de caz
Mai jos este sintaxa Selectați caz în Excel VBA:
Select Case Test_ExpressionCase Value_1Code Block when Test_Expression = Value_1Case Value_2Code Block when Test_Expression = Value_2Case Value_3Code Block when Test_Expression = Value_3Case ElseCode Block when none of the case conditions are metEnd Select
- Test_Expression: Aceasta este expresia a cărei valoare o analizăm folosind diferite cazuri (explicată mai bine cu exemplele de mai jos).
- Condition_1, Condition_2,…: Acestea sunt condițiile în care este testată expresia textului. Dacă îndeplinește condiția, atunci se execută blocul de cod pentru condiția dată.
Pentru fiecare instrucțiune Select Case pe care o utilizați, trebuie să utilizați instrucțiunea End Select.
Notă: De îndată ce este îndeplinită o condiție, VBA iese din construcția de caz selectat. Deci, dacă aveți cinci condiții și a doua condiție este îndeplinită, VBA va ieși din Select Case – iar restul condițiilor nu vor fi testate.
Selectați exemple de cazuri
Acum la înțelegeți mai bine cum să folosiți instrucțiunea Select Case în VBA, să trecem prin câteva exemple.
Rețineți că majoritatea exemplelor din acest tutorial sunt menite să explice conceptul. Acestea pot sau nu să fie cel mai bun mod de a face munca.
Să începem cu un exemplu simplu de a vedea cum Select Case ne permite să verificăm condițiile.
Exemplul 1 – Verificați numerele
În exemplul de mai jos, codul cere utilizatorului să introducă orice număr între 1 și 5, apoi afișează o casetă de mesaj cu numărul introdus de utilizator.
Sub CheckNumber()Dim UserInput As IntegerUserInput = InputBox("Please enter a number between 1 and 5")Select Case UserInputCase 1MsgBox "You entered 1"Case 2MsgBox "You entered 2"Case 3MsgBox "You entered 3"Case 4MsgBox "You entered 4"Case
read more