[ph]SeeDOY, не понял вопроса
допустим A2 пятое по рейтингу из C2:N2 каким цветом его окрашивать?
апдэйт
вдруг правильно
в модуль листа, срабатывает при пересчете
[vba]Код
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
'месяц
a = Month(Range("a1"))
'нижняя строка столбца A
b = Cells(Rows.Count, "a").End(xlUp).Row
'цикл от 2й до нижней строки
For c = 2 To b
'тупо записал макрорекордером условное форматирование 3х цветное
Range("c" & c & ":n" & c).FormatConditions.AddColorScale ColorScaleType:=3
Range("c" & c & ":n" & c).FormatConditions(Range("c" & c & ":n" & c).FormatConditions.Count).SetFirstPriority
Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With
'красим ячейку согласно форматированию столбца согласно даты
Range("a" & c).Interior.Color = Cells(c, a + 2).DisplayFormat.Interior.Color
'удаляем условное форматирование из строки
Range("c" & c & ":n" & c).FormatConditions.Delete
Next
Application.ScreenUpdating = True
End Sub
[/vba]