În loc de mai multe declarații If Then în Excel VBA, puteți utiliza Selectați Structura cazului.
Situatie:
Plasați un buton de comandă pe foaia de lucru și adăugați următoarele linii de cod:
1. Mai întâi, declarați două variabile. O variabilă de tip Număr întreg numit scor și o variabilă de tip Șir numit rezultat.
Reduceți scorul ca întreg, rezultați ca șir
2. Inițializăm scorul variabil cu valoarea celulei A1.
scor = Interval ("A1"). Valoare
3. Adăugați structura Select Case.
Selectați Scorul cazului
Cazul este> = 80
rezultat = "foarte bun"
Cazul este> = 70
rezultat = "bun"
Cazul este> = 60
result = "suficient"
Alt caz
result = "insuficient"
Selectare sfârșit
Explicație: Excel VBA folosește valoarea scorului variabil pentru a testa fiecare instrucțiune de caz ulterioară pentru a vedea dacă codul din instrucțiunea de caz trebuie executat.
4. Scrieți valoarea rezultatului variabilei în celula B1.
Interval ("B1"). Valoare = rezultat
5. Testați programul.
Rezultatul când faceți clic pe butonul de comandă de pe foaie:
Notă: Excel VBA execută codul sub a doua instrucțiune Case pentru toate valorile mai mari sau egale cu 70 și mai mici decât 80.