ユーザー定義関数で色のついたセルを数える

データの状態を色で識別するのはあまり好きではありませんが どうしてもそうしたい時があります。 そういう時はユーザー定義関数で。

Function ColorCount(R1 As Range, C As Range) As Long
    Dim r As Range
    Application.Volatile  'ユーザー定義関数を自動再計算関数にします
    ColorCount = 0  '初期値
    For Each r In R1
        If r.Interior.Color = C.Interior.Color Then  'セルの色をチェックします
             ColorCount = ColorCount + 1
        End If
    Next r
End Function