Что делает макрос: Полосатый эффект представляет собой явление, где каждая строка набора данных раскрашена в чередующуюся гамму оттенков. Как правило, применяется чередование цвета, когда необходимо проанализировать каждую строку данных.
Цвет окантовки облегчает чтение. Этот макрос позволяет автоматически применить дополнительный цвет заливки к каждой строке в выбранном диапазоне.
Как макрос работает
В этом макросе, мы, по существу, используем две переменные объекта Range. Одна из переменных отражает объем данных, с которым мы работаем, в то время как другая используется для хранения каждой отдельной ячейки. Когда каждая строка находится в фокусе, мы используем свойство Offset для оценки показателя цвета предыдущего ряда. Если индекс белого цвета, мы используем альтернативный зеленый индекс цвета.
Sub CheredovanieCvetaStrok()
'Шаг 1: Объявляем переменные
Dim MyRange As Range
Dim MyRow As Range
'Шаг 2: Определение целевого диапазона
Set MyRange = Selection
'Шаг 3: Запуск цикла через диапазон
For Each MyRow In MyRange.Rows
'Шаг 4: Поверьте, является ли номер строки четным листом
If MyRow.Row Mod 2 = 0 Then
'Шаг 5: Примените соответствующий альтернативный цвет
MyRow.Interior.ColorIndex = 35
Else
MyRow.Interior.ColorIndex = 2
End If
'Шаг 6: Возвращаемся назад, чтобы получить следующую строку
Next MyRow
End Sub
Как этот код работает
- Сначала мы объявляем две переменные объекта Range. Одна из них, называется MyRange, держит весь целевой диапазон. Другая называется MyCell, держит каждую ячейку в диапазоне, так как макрос проходит через них один за другим.
- Шаг 2 заполняет переменную MyRange с целевым диапазоном. В этом примере мы используем Выбранный диапазон — диапазон, который был выбран в электронной таблице. Вы можете легко установить переменную MyRange в определенном диапазоне, таких как Range («A1: Z100»). Кроме того, если ваш целевой диапазон является именованный диапазон, можно просто ввести свое имя: Range («MyNamedRange»).
- На этом этапе, макрокоманда начинается через каждую ячейку в целевом диапазоне, активизируя каждую ячейку.
- Когда ячейка активирована, мы определяем, является ли номер текущей строки четным.
- Если номер строки четный, используем альтернативный зеленый цвет — индекс 35, если нет, то он используем индекс цвета 2.
- На шаге 6 макрос возвращается назад, чтобы получить следующую ячейку. После того, как все клетки в целевом диапазоне активируются, макрос останавливается.
Как использовать
- Активируйте редактор Visual Basic, нажав ALT + F11.
- Щелкните правой кнопкой мыши personal.xlb в окне Project.
- Выберите Insert➜Module.
- Введите или вставьте код.