Обращение к ячейке по формату

[KApSuL]

Есть ситуация
Некоторые ячейки имеют формат текста "полужирный красный"
Остальные обычный формат без заливки
Как сделать так, чтобы формула смотрела диапазон и если встречала в диапазоне в одной из ячеек "полужирный красный" формат текста возвращала в результате "1"?

Нашёл нечто подобное, но там только заливка ячейки
Как сделать именно формат текста подскажите пожалуйста?

Function СумЦвет (диапазон As Range, критерий As Range) As Double
Application.Volatile True
Dim i As Range
For Each i In диапазон
If i.Interior.Color = критерий.Interior.Color Then
СумЦвет = СумЦвет + i.Value
End If
Next
End Function

[Aleksandr H.]

О Cells.Font.Bold читали?
https://msdn.microsoft.com/en-us/lib...ice.11%29.aspx

With i.Font
        .FontStyle = "полужирный"
        .Color = 255
End With

[KApSuL]

спасибо

[KApSuL]

Подскажете может почему не работает?
Выдаёт 0

Function SumFont(Diap As Range) As Double
Application.Volatile True
Dim i As Range
For Each i In Diap
If i.Font.Color = 255 Then
SumFont = SumFont + 1
End If
Next
End Function

[Aleksandr H.]

а разве не 2 условия: на цвет и жирность?

If i.Font.Color = 255 and i.Font.FontStyle = "полужирный" then

[KApSuL]

Да чёт и с двумя пробовал не работает=(

[Serge_Bliznykov]

KApSuL, Вы для тестовой ячейки выведите на экран её параметры и посмотрите, что там на самом деле.

Учтите, что если ячейка отформатирована с помощью УСЛОВНОГО форматирования, то проверять её параметры таким способом НЕ ПОЛУЧИТСЯ.

Да и вообще, Вы уверены, что Вам именно по цветам надо суммировать? Что нельзя задачу по другом решить?

[Aleksandr H.]

KApSuL, а оптимально, то прикреплять файла с данными, что-бы не гадать на хвосте василиска.

[KApSuL]

Сообщение от Serge_Bliznykov

KApSuL, Вы для тестовой ячейки выведите на экран её параметры и посмотрите, что там на самом деле.

Учтите, что если ячейка отформатирована с помощью УСЛОВНОГО форматирования, то проверять её параметры таким способом НЕ ПОЛУЧИТСЯ.

Да и вообще, Вы уверены, что Вам именно по цветам надо суммировать? Что нельзя задачу по другом решить?

Да, видимо проблема именно в условном форматировании =( спасибо

[KApSuL]

Сообщение от Aleksandr H.

KApSuL, а оптимально, то прикреплять файла с данными, что-бы не гадать на хвосте василиска.

сорри, учту на будущее