excel - VBA 自函数返回#VALUE!单元格出错，而在函数窗口中正确返回实际值

Question

我在下面写的函数是采用一个范围，我对其进行了一些条件格式设置(用于字体颜色)，以及另一个用于比较颜色的单元格范围。功能是统计大范围内有多少个单元格与单个单元格范围的字体颜色相同。

Function CountColor(rng As Range, clr As Range) As Integer

  Dim c As Range
  Dim a As Integer
  a = 0

  For Each c In rng
      If c.DisplayFormat.Font.Color = clr.Font.Color Then
          a = a + 1
      End If
  Next

  CountColor = a

End Function

现在，问题是 - 在函数窗口中，实际结果正确，而在单元格本身中，我得到#VALUE!错误。

Answer 1

以下代码对我有用，但不适用于条件格式:

Option Explicit

Function CountColor(rng As Range, clr As Variant) As Variant
Dim c As Range
Dim a As Integer

a = 0
For Each c In rng
    If c.Font.color = clr.Font.color Then
        a = a + 1
    End If
Next c

CountColor = a
End Function

如果我只是更改字体颜色而不是条件格式，它就可以工作。但由于某种原因它无法工作，否则。