/ / Създаване на шаблон в Excel VBA

Създайте шаблон в Excel VBA

По - долу ще разгледаме програма в Excel VBA че създава модел.

Ситуация:

Създайте шаблон в Excel VBA

Поставете командния бутон на работния лист и добавете следните кодови редове:

1. Първо, декларираме две променливи от тип Integer. Едно име i и едно име j.

Dim i As Integer, j As Integer

2. На второ място, добавихме два For Next цикъла.

For i = 1 To 5 Step 2
    For j = 1 To 5 Step 2

3. След това добавете реда, който променя цвета на фона на клетките до светло сиво.

Cells(i, j).Interior.ColorIndex = 15

Забележка: вместо ColorIndex номер 15 (светло сиво), можете да използвате произволен номер на ColorIndex.

4. Затворете двата цикъла за Следващ цикъл.

    Next j
Next i

5. Изпробвайте програмата.

Резултат досега.

Картовият шаблон до такава степен води до резултат

Например, за i = 1 и j = 1, Excel VBAцветове на Excel VBA Цветове (1, 1), за i = 1 и j = 3 (Стъпка 2), Excel VBA цветове Клетки (1,5), за i = 3 (Стъпка 2) и j = 1, Excel VBA цветове Клетки (3,1) и др.

6. Ние сме почти там. Единственото нещо, което трябва да направим, е оцветяването на клетките, които се компенсират с 1 ред по-долу и 1 колона отдясно на клетките, които вече са оцветени. Добавете следния кодов ред към цикъла.

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

7. Изпробвайте програмата.

Резултат:

Създайте резултат от шаблона

Също така се чете: