Подсчет колл ячеек в диапазоне в зависимости от цвета ячейки и значения в смежной ячейке

[Goodrich]

Добрый день уважаемые специалисты,

Помогите пожалуйста с формулой (можно макрос) для подсчет колл ячеек в диапазоне в зависимости от цвета ячейки и значения в смежной ячейке.

См. пример во вложении.

(Прим.: этот же вопрос задан на Cyberforum.ru)

[Elixi]

формулой, по цветам, ячейки не посчитать, макросом можно, например вот так
(в макросе ошибка, но там все прозрачно, легко можно поправить)

[Goodrich]

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

формулой, по цветам, ячейки не посчитать, макросом можно, например вот так
(в макросе ошибка, но там все прозрачно, легко можно поправить)

Спасибо большое за ответ. Но моя задача - просто посчитать общее колличество серых ячеек и только для значений А,В,С. Можно ле это организовать через пользовательскую функцию, а не через Sub?

[ArtNord]

Можете сохранить как надстройку и установить в ecxel чтобы формула была доступна во всех файлах

[Serge_Bliznykov]

можно через функцию подсчитать количество
book2.xlsm.zip

Public Function GetCountCellsByColorAndBelowChar(rngSearch As Range, rngColorCell As Long, findValue As String)
    Dim rng As Range, R As Long
    R = 0
    For Each rng In rngSearch
        If (rng.Interior.Color = rngColorCell) And (rng.Offset(1, 0) = findValue) Then
            R = R + 1
        End If
    Next
    GetCountCellsByColorAndBelowChar = R
End Function