/ / Створення шаблону в Excel VBA

Створити шаблон у Excel VBA

Нижче ми розглянемо програму в Росії Excel VBA це створює шаблон.

Ситуація:

Створити шаблон у Excel VBA

Помістіть на вашій робочій клавіші команду та додайте наступні кодові рядки:

1. По-перше, ми оголошуємо дві змінні типу Integer. Один із них названий я і один з ім'ям j.

Dim i As Integer, j As Integer

2. По-друге, ми додаємо два для наступних циклів.

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кольори комірки (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 стовпчик праворуч від клітин, які вже забарвлені. Додайте наступну кодову лінію до циклу.

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

7. Перевірте програму.

Результат:

Створіть результат шаблону

Також читайте: