Как применить дополнительный цвет заливки в Excel

Строки в таблице можно окрасить в разные, чередующиеся цвета: например, первая строка – оранжевая, вторая – белая, третья – оранжевая и так далее. Как правило, применяется чередование цвета, когда необходимо проанализировать каждую строку данных. Это облегчает чтение. Этот макрос позволяет автоматически применить дополнительный цвет заливки к каждой строке в выбранном диапазоне.

В этом макросе, мы, по существу, используем две переменные объекта Range. Одна из переменных отражает объем данных, с которым мы работаем, в то время как другая используется для хранения каждой отдельной ячейки. Когда каждая строка находится в фокусе, мы используем свойство Offset для оценки показателя цвета предыдущего ряда. Если индекс белого цвета, мы используем альтернативный - зеленый - цвет. 

1. Сначала мы объявляем две переменные объекта Range. Одна из них, называется MyRange, содержит весь целевой диапазон. Другая называется MyCell, содержит каждую ячейку в диапазоне, так как макрос проходит через них один за другим. 

2. Шаг 2 заполняет переменную MyRange с целевым диапазоном. В этом примере мы используем Выбранный диапазон — диапазон, который был выбран в электронной таблице. Вы можете легко установить переменную MyRange в определенном диапазоне, таких как Range («A1: Z100»). Кроме того, если ваш целевой диапазон является именованным диапазоном, можно просто ввести свое имя: Range («MyNamedRange»). 

3. На этом этапе, макрокоманда проходит через каждую ячейку в целевом диапазоне, активизируя каждую ячейку. 

4. Когда ячейка активирована, мы определяем, является ли номер текущей строки четным. 

5. Если номер строки четный, используем зеленый цвет — индекс 35, если нет, то используем индекс цвета 2. 

6. На шаге 6 макрос возвращается к шагу 3, чтобы получить следующую ячейку. После того, как все клетки в целевом диапазоне активируются, макрос останавливается. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.