Следи листа десет најчешће коришћених Екцел ВБА програмских контролних структура. Укључен је једноставан пример сваке контролне структуре и кратак опис када бисте ту структуру користили.
За – Следећи
Корисно за петљу кроз низ.
Сума низа = 0
За и = 1 до 10
Сума низа = Сума низа + МиАрраи(и)
Затим сам
За сваки – Следећи
Корисно за петљу кроз колекцију или низ ћелија.
СелецтионСум = 0
За сваку ћелију у избору
СелецтионСум = СелецтионСум + целл.Валуе
Следећа ћелија
Уради – петља до
Петља док се не испуни услов.
Ред = 0
Урадити
Ред = Ред + 1
Лооп до ћелија (ред, 1).Валуе = "
МсгБок "Прва празна ћелија је у реду " & Ред
Уради Док – петља
Петља док је услов тачан.
Ред = 1
Урадите док ћелије (ред, 1) <> "
Ред = Ред + 1
Лооп
МсгБок "Прва празна ћелија је у реду " & Ред
Ако онда
Урадите нешто ако је услов истинит. Написано као једна изјава.
Ако је к = 1, онда је и = 1
Ако – Онда – Крај Ако
Урадите нешто ако је услов истинит. Може да користи више изјава.
Ако је х = 1 Онда
и = 1
з = 1
Крај Ако
Ако тада још
Урадите нешто ако је услов истинит; иначе, уради нешто друго. Написано као једна изјава.
Ако је к = 1, онда је и = 1, иначе је и = 0
Ако – Онда – Друго – Крај Ако
Урадите нешто ако је услов истинит; иначе, уради нешто друго. Може да користи више изјава.
Ако је х = 1 Онда
и = 1
З = 1
Иначе
и = 0
З = 0
Крај Ако
Изаберите Цасе
Урадите једну од неколико ствари, у зависности од стања.
Изаберите Случај к
Случај 1
и = 1
З = 1
Случај је > 1
и = 2
З = 2
Цасе Елсе
и = 0
З = 0
Крај Изаберите
Иди на
Пређите на означену изјаву. Ово се углавном користи за руковање грешкама.
У случају грешке ГоТо Упс
'[више кода иде овде]
Екит Суб
упс:
МсгБок "Дошло је до грешке"