Developing.ru

Добрый день!
Необходимо обратиться и считать свойство условно отформатированной ячейки в Excel посредсвом VB. В данном случае свойство Interior.
Заранее спасибо.

Если фон задан формулой придётся анализировать условия и выбирать cоответствующий
.FormatConditions(...).Interior

Function MySumm(Start, Finish, Col As Integer) As String
i = 0
S = 0
For r = Start To Finish
Cells(r, Col).Select
If Selection.FormatConditions(1).Interior =38 Then
S = S + Cells(r, Col).Value
i = i + 1
End If
Next r
MySumm = CStr(i) & " на" & Format(CStr(S), "### ### 000.00") & " р."
End Function

Не воспринимает ...

В принципе достаточно просто отловить ячейку, в которой сработало одно из условий условного форматирования.

Бессмысленно проверять .FormatConditions(...).interior
Это цвет заливки для соответствующего условия но не текущий цвет
Правильно будет проверять не цвет а условия при которых он устанавливается
Т.е если Вы не знаете этих условий заранее - придётся анализировать в своей программе условия форматированиядля ячеек и интерпретировать их.