更改函数以计数vbRed

Question

我一直试图修改下面的函数以计数vbRed，而不是用“条件”定义的任何颜色：

Function CountCcolor(range_data As Range, criteria As Range) As Long
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        CountCcolor = CountCcolor + 1
    End If
Next datax
End Function 

像下面这样的变化失败了：

Function CountRed(range_data As Range) As Long
    Dim datax As Range    

For Each datax In range_data
    If datax.DisplayFormat.Interior.Color = vbRed Then
        CountRed= CountRed+ 1
    End If
Next datax
End Function

Answer 1

要使变体正常工作，请删除DisplayFormat。

例如(这是删除DisplayFormat的代码)：

Function CountRed(range_data As Range) As Long
    Dim datax As Range
    For Each datax In range_data
        If datax.Interior.Color = vbRed Then
            CountRed = CountRed + 1
        End If
    Next datax
End Function