Ниже мы рассмотрим программу на Excel VBA тот создает узор.
Ситуация:
Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
1. Сначала мы объявляем две переменные типа Integer. Один назвал i, а другой - j.
Dim i как целое число, j как целое число
2. Во-вторых, мы добавляем две петли For Next.
Для i = от 1 до 5 Шаг 2
Для j = от 1 до 5 Шаг 2
3. Затем мы добавляем линию, которая меняет цвет фона ячеек на светло-серый.
Cells (i, j) .Interior.ColorIndex = 15
Примечание: вместо ColorIndex номер 15 (светло-серый) вы можете использовать любой номер ColorIndex.
4. Закройте две петли For Next.
Следующий j
Далее я
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. Протестируйте программу.
Результат: