Подсчет / Сумма значений ячеек на основе фона / цвета шрифта

Question

У меня ассортимент содержит разное содержимое с разными цветами. Я хочу посчитать ячейки с одинаковым цветом шрифта. Как я могу сделать ? С уважением

Answer 1

Вот код Visual Basic, который выполняет эту задачу. Нашел это на этом сайте.

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

Чтобы создать функцию CountColour, нажмите ALT-F11, затем Insert-> Module, и напишите вышеупомянутую функцию в этом окне и сохраните ее. Чтобы использовать функцию, используйте следующий синтаксис для ячейки, в которой вы хотите отобразить свои данные: = CountColour(XX: YY, ZZ), где XX: YY представляет диапазон ячеек, который вы хотите сосчитать, а ZZ - это ячейка, цвет которой вы хотите считать в заданном диапазоне.