Условное форматирование в excel построчно

Так как excel при выделении диапазона подсвечивает максимальные значения из всего диапазона, иногда нужно подсветить данные построчно(максимумы/минимумы). Для этого можно применить макрос такого вида:



Sub highlight()
'
' highlight
'

'"

Set Rng = Range("L10:N214")

For Each Row In Rng.Rows
    Row.Select
    Selection.FormatConditions.AddColorScale ColorScaleType:=3
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
        xlConditionValueLowestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 7039480
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
        xlConditionValuePercentile
    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
        xlConditionValueHighestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With

Next Row
MsgBox ("Готово. Строки подсвечены")
End Sub

В переменную Rng указываем диапазон и получаем подсветку построчно.

Рейтинг
( Пока оценок нет )
Понравилась статья? Поделиться с друзьями: