Цитата
Или Вам нужно не цвет заливки ячейки, а цвет, которым залило ячейку условное форматирование?
Именно это и надо.
Я это понял, когда Interior.Color не посчитал условно отформатированную заливку
вот функция, которую я применяю.
[vba]Код
Function цветофункцияЗнач(Диапазон_суммирования As Range, Цвет_берется_из_ячейки As Range)
For Each cll In Диапазон_суммирования.Cells
If cll.Interior.ColorIndex = Цвет_берется_из_ячейки.Interior.ColorIndex Then
summa = summa + 1
End If
Next
цветофункцияЗнач = summa
End Function
[/vba]