Граф № Клітини з певним кольором в рядку / Колонка

Тут я визначаю функцію для підрахунку №. осередку в рядку / стовпці з певним кольором,

Це так само, як Countif cellcolor = Color

 Функція ColorCount (colorCell As Range, countRange As Range) Dim rCell As Діапазон Dim cellCol As Integer Дим ANS як довгий ans = 0 cellCol = colorCell.Interior.ColorIndex Для кожного rCell In countRange Якщо rCell.Interior.ColorIndex = cellCol Тоді ans = ans + 1 Кінець Якщо Далі rCell ColorCount = ans Завершити функцію