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