кол-во ячейки с цветом

Question

Я хочу подсчитать количество ячеек, заполненных определенным цветом.

Для примера. Немногие клетки красные, немногие зеленые, некоторые из них желтые.

Теперь я хочу подсчитать общий красный/зеленый/желтый.

Есть ли какие-либо идеи, как я могу применить его и к объединенной ячейке.

Скорый ответ будет оценен.

С уважением.

Answer 1

Следуйте инструкции по ссылке ниже с указанным изменением ниже ссылки.

https://support.microsoft.com/en-us/kb/2815384

Изменения: Измените сценарий, приведенный в ссылке на следующий, так как сценарий от Microsoft использует индекс цвета, который может рассчитывать другие оттенки цвета.

Function CountColor(range_data As range, criteria As range) As Long 
    Dim datax As range 
    Dim xcolor As Long 
    xcolor = criteria.Interior.color 
    For Each datax In range_data 
     If datax.Interior.color = xcolor Then 
      CountColor = CountColor + 1 
     End If 
    Next datax 
End Function