Vairāku Ja tad paziņojumu vietā Excel VBA, varat izmantot Atlasiet Lietu struktūra.
Situācija:
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Vispirms deklarējiet divus mainīgos. Viens Integer tipa mainīgais nosauca rezultātu un viens mainīgais tipa String nosaukums.
Dim rezultāts kā vesels skaitlis, rezultāts kā virkne
2. Mēs inicializējam mainīgo punktu skaitu ar šūnas A1 vērtību.
rezultāts = diapazons ("A1"). Vērtība
3. Pievienojiet struktūru Izvēlēties lietu.
Izvēlieties gadījuma rezultātu
Lieta ir> = 80
rezultāts = "ļoti labs"
Lieta ir> = 70
rezultāts = "labs"
Lieta ir> = 60
rezultāts = "pietiekami"
Cita lieta
rezultāts = "nepietiekams"
Beigas Atlasīt
Paskaidrojums: Excel VBA izmanto mainīgā rādītāja vērtību, lai pārbaudītu katru nākamo gadījuma paziņojumu, lai noskaidrotu, vai ir jāizpilda kods, kas atrodas zem paziņojuma.
4. Ierakstiet mainīgā rezultāta vērtību šūnā B1.
Diapazons ("B1"). Vērtība = rezultāts
5. Pārbaudiet programmu.
Rezultāts, noklikšķinot uz komandas pogas lapā:
Piezīme. Excel VBA izpilda kodu saskaņā ar otro gadījuma paziņojumu visām vērtībām, kas lielākas vai vienādas ar 70 un mazākas par 80.
