セル色をカウントする方法

Qooちゃん

セル色のカウント方法を教えて下さい。

スキル先生

マクロの記載後、下記の式をセルに貼り付けて使ってね。
Alt+F11でVBA画面が出ます。

Function ColorCount(R1 As Range, C As Range)
     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

Function ColorSum(R1 As Range, C As Range)
     Dim r As RangeApplication.Volatile
ColorSum = 0
For Each r In R1
    If r.Interior.Color = C.Interior.Color Then
        ColorSum = ColorSum + r.Value
    End If
Next r
End Function

スキル先生

上記をVBAに記載することで下記の関数が使えます。これは同一色セルに入力されている数値を合計します。
=Colorsum(B3:B18,D3)