Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос: разное форматирование множества строк
 
Добрый день, уважаемые, всех вам благ!
Есть огромная таблица на 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
Заранее спасибо!  
 
Попробуйте этот код
Скрытый текст
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1
Читают тему (гостей: 1)
Наверх