白以外の色のセルをカウントする関数

Function ColorCnt(ByVal rngs As Range) As Long
    '変数宣言
    Dim rng As Range
    
    '指定されたセルの範囲の分だけ処理を繰り返す
    For Each rng In rngs
        'セルが塗りつぶしありの場合
        If rng.DisplayFormat.Interior.Color <> 16777215 Then
            'カウントアップする
            ColorCnt = ColorCnt + 1
        End If
    Next rng
End Function

Private Sub 使用例()
    MsgBox ColorCnt(Range("A1:C3"))
End Sub