По -долу ще разгледаме програма в Excel VBA че създава модел.
Ситуация:
Поставете команден бутон на работния си лист и добавете следните кодови редове:
1. Първо, декларираме две променливи от тип Integer. Един на име i и един на име j.
Dim i като цяло число, j като цяло число
2. Второ, добавяме два цикъла For Next.
За i = 1 до 5 Стъпка 2
За j = 1 до 5 Стъпка 2
3. След това добавяме реда, който променя цвета на фона на клетките в светло сив.
Клетки (i, j). Интериор. ColorIndex = 15
Забележка: вместо ColorIndex номер 15 (светло сиво), можете да използвате всеки номер ColorIndex.
4. Затворете двата цикъла For Next.
Следващ j
Следва i
5. Тествайте програмата.
Резултат до момента.
Например за i = 1 и j = 1, Excel VBA оцветява клетки (1,1), за i = 1 и j = 3 (Стъпка 2), Excel VBA оцветява клетки (1,3), за i = 1 и j = 5, цветове на Excel VBA клетки (1,5), за i = 3 (стъпка 2) и j = 1, цветове на клетки на Excel VBA (3,1) и т.н.
6. Почти сме там. Единственото нещо, което трябва да направим, е да оцветим клетките, които са изместени с 1 ред по -долу и 1 колона вдясно от вече оцветените клетки. Добавете следния код в цикъла.
Клетки (i, j). Офсет (1, 1). Интериор. Цветен индекс = 15
7. Тествайте програмата.
Резултат: