
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)