VBAセルフファンクションは＃VALUEを返します！関数ウィンドウで実際の値が正しく返されている間に、セルにエラーが発生しました。

Question

私が以下に書いている関数は、（フォントの色のための）条件付き書式設定と、色を比較するためのもう1つのセル範囲があります。関数は、1つのセル範囲と同じフォント色を持つビッグレンジ内のセル数を数えます。今

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

コメントに複数の人が言及しています - DisplayFormatプロパティはユーザー定義関数では機能しません。したがって、関数から.DisplayFormat.を削除すると、期待どおりに機能するはずです。

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.Font.Color = clr.Font.Color Then 
      a = a + 1 
     End If 
    Next 
    CountColor = a 
End Function 

Answer 2

次のコードは、条件付き書式で私のために働いたがない：私は単にそれが動作する条件付き書式は別にフォントの色を変更した場合

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 

。しかし何らかの理由で、それ以外の場合は動作しません。