按单元格填充颜色或字体颜色统计数据的自定义函数

参考网络代码，自己写了二个通用的自定义函数，用于统计不同颜色的单元格数值或个数。
1、SumColor函数

统计选择范围内不同颜色的单元格数值

2、CountColor函数

统计选择范围内不同颜色的单元格个数

Function SumColor(rng As Range, cellColor As Range, N As Byte) As Double
    '输入=SumColor(A1:A10, A1, 0)，其中A1:A10是统计的范围，A1是统计的颜色所在的单元格，0表示按照背景颜色统计,1表示按字体颜色统计
    Dim cell As Range
    Dim Sum As Double
    Application.Volatile True   '单元格发生重新计算，那么函数会重新计算，更新它的结果
    Sum = 0
    If N = 0 Then
        For Each cell In rng
            If cell.Interior.ColorIndex = cellColor.Interior.ColorIndex Then
                Sum = Application.Sum(cell) + Sum
            End If
        Next cell
    ElseIf N = 1 Then
        For Each cell In rng
            If cell.Font.ColorIndex = cellColor.Font.ColorIndex Then
                Sum = Application.Sum(cell) + Sum
            End If
        Next cell
    Else
        Exit Function
    End If
    SumColor = Sum
End Function

Function CountColor(rng As Range, cellColor As Range, N As Byte) As Long
    '输入=SumColor(A1:A10, A1, 0)，其中A1:A10是统计的范围，A1是统计的颜色所在的单元格，0表示按照背景颜色统计,1表示按字体颜色统计
    Dim cell As Range
    Dim Sum As Long
    Application.Volatile True   '单元格发生重新计算，那么函数会重新计算，更新它的结果
    Count = 0
    If N = 0 Then
        For Each cell In rng
            If cell.Interior.ColorIndex = cellColor.Interior.ColorIndex Then
                Count = Count + 1
            End If
        Next cell
    ElseIf N = 1 Then
        For Each cell In rng
            If cell.Font.ColorIndex = cellColor.Font.ColorIndex Then
                Count = Count + 1
            End If
        Next cell
    Else
        Exit Function
    End If
    CountColor = Count
End Function