Excel 如何使用条件格式字体颜色计算单元格数

Excel 如何使用条件格式字体颜色计算单元格数,excel,vba,counter,conditional-formatting,Excel,Vba,Counter,Conditional Formatting,此代码运行3秒钟,没有错误。但我没有得到任何结果。 我应该有超过1000在计数与字体颜色红色 Sub Count_Flanges() Application.ScreenUpdating = False Dim Rng As Range Dim lColorCounter As Long Dim rngCell As Range Set Rng = Sheets("master line list").Range("C2:Z1633") l

此代码运行3秒钟,没有错误。但我没有得到任何结果。 我应该有超过1000在计数与字体颜色红色

Sub Count_Flanges()

    Application.ScreenUpdating = False

    Dim Rng As Range
    Dim lColorCounter As Long
    Dim rngCell As Range

    Set Rng = Sheets("master line list").Range("C2:Z1633")

    lColorCounter = 0

    For Each rngCell In Rng
        If Cells(rngCell.Row, rngCell.Column).DisplayFormat.Font.Color = RGB(255, 0, 0) Then
            lColorCounter = lColorCounter + 1
        End If
    Next

    Sheets("status").Range("D3") = lColorCounter
    Sheets("status").Range("A1") = lColorCounter / 2 & " " & "Total Duplicates"
    Sheets("status").Range("A2") = Sheets("status").Range("D5").Value - lColorCounter / 2 & " " & "Flanges"

    Application.ScreenUpdating = True

End Sub

字体颜色也设置了条件格式。你能发布一些示例数据吗?我已经测试了代码,它实际上正确地计算了单元格。由于条件格式是局部的,并且单元格的颜色是表面下的颜色,您很可能需要检查单元格是否是条件格式,或者运行代码以计算与条件格式相同的条件是否正确。此外,看到了吗?我怎么能发布截图?或者我可以吗?