Количество ячеек с заданным цветом шрифта

Описание проблемы

К сожалению, Excel не имеет встроенной функции, которая использует цвета шрифта в качестве условий в формулах. К счастью, это может делать надстройка VBA-Excel. В состав надстройки входит функция СЧЁТШРИФТ, которая определит количество ячеек в выбранном диапазоне, с необходимым цветом шрифта.

Описание функции

Функция =СЧЁТШРИФТ(ДИАПАЗОН, ЯЧЕЙКА) имеет два обязательных аргумента:

• - ДИАПАЗОН ячеек, в котором необходимо посчитать количество ячеек.
• - ЯЧЕЙКА ячейка с цветом шрифта, который будет подсчитываться.

Если вы забыли синтаксис данной функции, вы всегда сможете вызвать формулу из выпадающего списка функций в надстройке.

Замечание об автоматическом вычислении!!! Так как пересчет формул в Excel автоматически не происходит при изменении заливки ячеек, то данная функция не пересчитывается автоматически. Для того, чтобы принудительно пересчитать формулы активного листа используйте сочетание клавиш Ctrl+Alt+F9.

Код на VBA

Public Function СЧЁТШРИФТ(ДИАПАЗОН As Range, ЯЧЕЙКА) As Long
 
    Dim S As Double
    Dim rCell As Range
    Dim ColCell As Long
 
    ColCell = ЯЧЕЙКА.Font.Color
    S = 0
 
    For Each rCell In ДИАПАЗОН
        If rCell.Font.Color = ColCell Then
            S = S + 1
        End If
    Next
 
    СЧЁТШРИФТ = S
End Function