colorcount をエクセルのフィルターに対応させたい

こんにちは。
エクセルのデーター表を作成しフィルターで集計をしています。
色を付けたセルのカウント（条件付き書式ではない）をする定義をＶＢＡにて下記のように作成しました。
これをフィルターに対応させるにはどうすればよいでしょうか？（表示している色つきセルだけをカウントする）

Function ColorCount(R1 As Range, C As Range)
　　Dim r As Range

　　Application.Volatile
　　ColorCount = 0

　　For Each r In R1
　　　　If r.Interior.Color = C.Interior.Color Then
　　　　　　ColorCount = ColorCount + 1
　　　　End If
　　Next r

End Function

ＶＢＡは詳しくわかりません。
どなたかご指導お願いいたします。
エクセル2013を使用しております。

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2018/10/17 00:53

こんばんは。

こんな感じでしょうか。
私は、Application.Volatile　は使いません。使わなくても同じですから。
それから、ユーザー定義関数の代わりに、変数を置きました。
理由としては、基本的に、こうした関数の出力はVariant 型ですが、カウントはLong型がよいので、2つに分けました。

'//
Function ColorCount(R1 As Range, C As Range)
　Dim r As Range
　Dim cnt As Long
　For Each r In R1
　　If r.Interior.Color = C.Interior.Color Then
　　　If r.EntireRow.Hidden = False Then
　　　　cnt = cnt + 1
　　　End If
　　End If
　Next r
　ColorCount = cnt
End Function

この回答へのお礼

windfaller様

いけましたー！！
ありがとうございます、助かりました。

お礼日時：2018/10/17 14:24