色が付いたセルをカウントする

Question

特定の色で塗りつぶされたセルの数をカウントしたいと思います。

例：少数の細胞は赤色であり、少数の細胞は黄色である。

今、赤/緑/黄の合計をカウントしたいと思います。

マージされたセルにもどのように適用できますか？

迅速な対応に感謝します。

よろしくお願いいたします。

Answer 1

リンク下記の変化に対応し、下のリンクの指示に従ってください。

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

変更：マイクロソフトからのスクリプトは色の他の色合いをカウントすることができる色のインデックスを使用して、以下のリンクで指定したスクリプトを変更し。

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