Попытка подсчитать количество определенных цветных ячеек на моем листе, используя этот кусочек кода VBA:

Function CountRed(MyRange)
CountRed = 0
For Each Cell In MyRange
If Cell.Interior.Color = RGB(255, 0, 0) Then
CountRed = CountRed + 1
End If
Next Cell
End Function

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

Вот мое состояние:

=AND(NOT(ISBLANK(A3)),ISBLANK(D3))

В основном, если первая ячейка заполнена, а этой нет, то окрашивайте ее в красный цвет.

Теперь, когда я использую свою функцию «CountRed», чтобы увидеть, является ли эта ячейка (ячейка с условным форматированием) красной, она не работает, но когда я «перезаписываю» ее, то есть заполняю ее красным и запускаю функцию снова, она работает.

Я подумал, может быть, это связано с условным форматированием, вызываемым до функции CountRed, но мне не повезло :(