Ниже мы рассмотрим программу в Excel VBA, который создает шаблон.

Ситуация:

Create a Pattern in Excel VBA

Поместите командную кнопку на листе и добавьте строки следующего кода:

  1. Во-первых, мы объявляем две переменные типа Integer. Один названный я и один с именем J.

Dim i As Integer, j As Integer

  1. Во-вторых, мы добавим два For Next петлями.

For i = 1 To 5 Step 2

For j = 1 To 5 Step 2

  1. Далее, мы добавим строку, которая изменяет цвет фона ячеек в светло-серый цвет.

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

Примечание: вместо ColorIndex номер 15 (светло-серый), вы можете использовать любое количество ColorIndex.

  1. Закройте два Для Далее петли.

Next j

Next i

  1. Проверьте программу.

Результат до сих пор.

Crate a Pattern Result so Far

Например, для I = 1 и J = 1, Excel VBA цвета ячейки (1,1), при г = 1 и у = 3 ( ссылки: / VBA-примеры-шаг ключевого слова [Шаг] 2), Excel VBA цвета Клетки (1,3), при г = 1 и J = 5, Excel VBA цвета ячейки (1,5), при г = 3 (этап 2) и J = 1, Excel VBA цвета клетки (3,1) и т.д.

  1. Мы почти там. Единственное, что нам нужно сделать, это цвет клетки, которые являются ссылка: / VBA-примеры смещения [смещение] 1 строку ниже и 1 колонке справа от клеток уже окрашены. Добавьте следующую строку кода в петлю.

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

  1. Проверьте программу.

Результат:

Create a Pattern Result