У наставку ћемо погледати програм у Екцел ВБА то петље кроз целу прву колону и боји све вредности које су ниже од одређене вредности.
Поставите командно дугме на свој радни лист и додајте следеће редове кода:
1. Прво, прогласите променљиву која се зове и типа Лонг. Овде користимо променљиву типа Лонг јер Лонг варијабле имају већи капацитет од Интегер променљивих.
Дим и Ас Лонг
2. Затим додајте кодну линију која мења боју фонта свих ћелија у колони А у црну.
Колоне (1) .Фонт.Цолор = вбБлацк
3. Додајте петљу.
Фор и = 1 То Ровс.Цоунт
Затим сам
Напомена: Радни листови могу имати до 1.048.576 редова у програму Екцел 2007 или новијим. Без обзира коју верзију користите, линија кода изнад се провлачи кроз све редове.
4. Затим обојимо све вредности које су ниже од вредности унете у ћелију Д2. Празне ћелије се занемарују. Додајте следеће линије кода у петљу.
Ако су ћелије (и, 1). Вредност <опсег ("Д2"). Вредност и није празна (ћелије (и, 1). Вредност) Затим
Ћелије (и, 1) .Фонт.Цолор = вбРед
Крај Ако
Резултат када притиснете командно дугме на листу (ово може потрајати):
