Добрый день, уважаемые, всех вам благ!
Есть огромная таблица на 4500 позиций и в каждой отдельной строке нужно сделать условное форматирование. Просто создать форматирование на всю таблицу никак, ибо нужно именно каждая отдельная строка с ранжированием в этой строке. если выделять всю, то и ориентируется на все цифры в таблице (либо я не знаю как
)
Решил я создать макрос, который циклично повторяет в каждую строку действие-условное форматирование-след строка-условное форматирование и т.д.
Получилось как то так.
Собственно вопрос - как заставить меняться BV24:CI24 на BV25:CI25, BV26:CI26 не проделывая это действие 4500 раз?)
Заранее спасибо!
Есть огромная таблица на 4500 позиций и в каждой отдельной строке нужно сделать условное форматирование. Просто создать форматирование на всю таблицу никак, ибо нужно именно каждая отдельная строка с ранжированием в этой строке. если выделять всю, то и ориентируется на все цифры в таблице (либо я не знаю как
) Решил я создать макрос, который циклично повторяет в каждую строку действие-условное форматирование-след строка-условное форматирование и т.д.
Получилось как то так.
Собственно вопрос - как заставить меняться BV24:CI24 на BV25:CI25, BV26:CI26 не проделывая это действие 4500 раз?)
| Код |
|---|
Range("BV24:CI24").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 |
