Több If then utasítás helyett Excel VBA, használhatja a Válassza az Ügyszerkezet lehetőséget.
Helyzet:
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először deklaráljon két változót. Egy Integer típusú változó nevű pontszám és egy String típusú változó nevezett eredmény.
Halvány pontszám egész számként, eredmény karakterláncként
2. A változó pontszámot inicializáljuk az A1 cella értékével.
pontszám = Tartomány ("A1"). Érték
3. Adja hozzá a Select Case struktúrát.
Válassza az Eset pontszáma lehetőséget
Eset> = 80
eredmény = "nagyon jó"
Eset> = 70
eredmény = "jó"
Eset> = 60
eredmény = "elegendő"
Más eset
eredmény = "elégtelen"
Vége Kiválasztás
Magyarázat: Az Excel VBA a változó pontszám értékével teszteli az összes következő Eset utasítást, hogy megtudja, hogy az Eset utasítás alatt lévő kódot kell -e végrehajtani.
4. Írja a változó eredményét a B1 cellába.
Tartomány ("B1"). Érték = eredmény
5. Tesztelje a programot.
Eredmény, ha rákattint a parancsikonra a lapon:
Megjegyzés: Az Excel VBA végrehajtja a második eset utasításban szereplő kódot minden 70 -nél nagyobb és 80 -nál kisebb értéknél.