Нижче ми розглянемо програму в Excel VBA що створює візерунок.
Ситуація:
Помістіть команду на робочому аркуші та додайте такі рядки коду:
1. Спочатку ми оголошуємо дві змінні типу Integer. Одного на ім’я i та одного на ім’я j.
Dim i Як ціле число, j як ціле число
2. По -друге, додаємо дві петлі For Next.
Для i = 1 до 5 Крок 2
Для j = 1 до 5 Крок 2
3. Далі додаємо рядок, який змінює колір фону клітинок на світло -сірий.
Клітинки (i, j). Внутрішній. Індекс кольору = 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. Перевірте програму.
Результат: