Уместо више наредби Иф Тхен у Екцел ВБА, можете користити Изаберите Структура кућишта.
Ситуација:
Поставите командно дугме на свој радни лист и додајте следеће редове кода:
1. Прво, декларишите две променљиве. Једна променљива типа Интегер названа резултат и једна променљива типа Стринг именовани резултат.
Затамни резултат као цео број, резултат као низ
2. Променљиву оцену иницијализујемо вредношћу ћелије А1.
сцоре = Распон ("А1"). Вредност
3. Додајте структуру Селецт Цасе.
Изаберите Оцена случаја
Случај је> = 80
резултат = "врло добро"
Случај је> = 70
резултат = "добро"
Случај је> = 60
резултат = "довољан"
Цасе Елсе
резултат = "недовољан"
Крај Изаберите
Објашњење: Екцел ВБА користи вредност променљиве оцене за тестирање сваке наредне изјаве случаја да види да ли код под изјавом случаја треба да се изврши.
4. Вредност променљиве резултат упишите у ћелију Б1.
Опсег ("Б1"). Вредност = резултат
5. Тестирајте програм.
Резултат је када притиснете командно дугме на листу:
Напомена: Екцел ВБА извршава код под другом наредбом Цасе за све вредности веће или једнаке 70 и мање од 80.