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

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

Как макрос работает

В этом макросе, мы, по существу, используем две переменные объекта 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

Как этот код работает

  1. Сначала мы объявляем две переменные объекта Range. Одна из них, называется MyRange, держит весь целевой диапазон. Другая называется MyCell, держит каждую ячейку в диапазоне, так как макрос проходит через них один за другим.
  2. Шаг 2 заполняет переменную MyRange с целевым диапазоном. В этом примере мы используем Выбранный диапазон — диапазон, который был выбран в электронной таблице. Вы можете легко установить переменную MyRange в определенном диапазоне, таких как Range («A1: Z100»). Кроме того, если ваш целевой диапазон является именованный диапазон, можно просто ввести свое имя: Range («MyNamedRange»).
  3. На этом этапе, макрокоманда начинается через каждую ячейку в целевом диапазоне, активизируя каждую ячейку.
  4. Когда ячейка активирована, мы определяем, является ли номер текущей строки четным.
  5. Если номер строки четный, используем альтернативный зеленый цвет — индекс 35, если нет, то он используем индекс цвета 2.
  6. На шаге 6 макрос возвращается назад, чтобы получить следующую ячейку. После того, как все клетки в целевом диапазоне активируются, макрос останавливается.

Как использовать

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

Оцените статью
Добавить комментарий