指定された範囲内の色付きセルの数をカウント

Function fncCountColoredCells(rngTarget As Range, Optional lngColor As Long = -1) As Long
    Dim rngCell As Range '対象となるセルを格納
    Dim lngCounter As Long '色付きセルのカウント数を格納
    
    'カウンターを初期化
    lngCounter = 0
    
    '指定された範囲内でループ
    For Each rngCell In rngTarget
        '色が指定されているか、任意の色が許可されている場合
        If rngCell.Interior.Color = lngColor Or lngColor = -1 Then
            lngCounter = lngCounter + 1
        End If
    Next rngCell
    
    'カウント数を返す
    fncCountColoredCells = lngCounter
End Function