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