VBA:Excelで塗りつぶした色付きセルの個数を合計をする関数設定しても、「#NAME?」エラーが出て計算できない。

Question

前提・実現したいこと

Excelの一般的な関数では塗りつぶしたセルの個数や数値の合計をすることができないようなので、
VBAで関数を作成して塗りつぶしたセルの個数を計算できるようにしたいです。
しかし、「＃NAME？」エラーが表示され、解決ができずにおります。

発生している問題・エラーメッセージ

A3セルに塗りつぶし色（黄色）を表示
表はテーブル化している（テーブル１）
合計値を出したいセルに、「=ColorCount(テーブル1[[#データ],[第1回]],A3)」と入力しエンターキーを押すと、

＃NAME?

が表示される。

該当のソースコード

Option Explicit
---（水平線が自動入力されている）
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

試したこと

１．OptionExplicitという記述をしていなかったので入力してみたが、エラー解決されませんでした。
２．マクロのセキュリティ（マクロの設定）は、「警告を表示してすべてのマクロを無効にする（D)」を選択しています。他の選択肢へ設定してみましたが、エラー解決されませんでした。
３．Excelファイルは、拡張子（xlsm）で保存しています。

補足情報（FW/ツールのバージョンなど）

Excelバージョン：Excel for MicrosoftOffice365 ProPlus（バージョン2002ビルド12527.209820988クイック実行）

以上、他に試すべきことございましたらアドバイスいただければ幸いです。
よろしくお願いいたします。

Comments

[meg_]

引数にセル範囲（=ColorCount(A1,A3)等）を入力した場合は正常に動作しますか？

[yarukkyanai]

ありがとうございます。
テーブルでなくセル範囲を入力してみました（=ColorCount(F10:F15,A3)）が、同じ＃NAME?エラーが表示されます。

Answer 1

＃NAME?

は、そんな関数はないよ？
ということなので、
該当のブックの標準モジュール、または個人用マクロブックの標準モジュールにちゃんと書いてあるか
確認しましょう。

例えば、マクロを記入したが、普通のエクセルブックとして保存すると、
マクロが抜け落ちて保存されますし、
最初開いたときに、「マクロを有効化しますか？」と聞かれたときにいいえを押してもそうなると思います。
その辺をチェックしてみてはいかがでしょうか？

Comments

[yarukkyanai]

ありがとうございます！

最初開いたときに「マクロを有効化しますか？」という表示を見落としていました！
再度開きなおし、聞かれたので有効化したところ、関数の戻り値がうまく表示されました！

Answer 2

標準モジュールに Public Function として定義してあげれば、セルのシートから呼び出せると思います

Comments

[yarukkyanai]

ありがとうございます。

Public Function ColorCount(R1 As Range, C As Range)

と記載変更してみましたが、やはり＃NAME?エラーが出てしまいます。
他に確認すべきことございますでしょうか？

[token]

私の環境では、お作りのソースで下の通り正しく動作しています（EXCEL2016です）
1. セルE4からE8までの5か所とセルF４を黄色く塗る
2. セルF9に =colorcount(E4:E8,F4) と入力する
3. セルF9に "5" と表示される

念のための確認なのですが、このコードは Sheet1とかに書いても動かないので、
「挿入」－「標準モジュール」で挿入した Module1 とかに書いてあるのですよね？

[yarukkyanai]

早速のご確認ありがとうございます。

はい、「挿入」－「標準モジュール」で挿入したModule１に書いております。
「Micorosoft Excel Objects」を右クリックし、「挿入」ー「標準モジュール」で挿入をし直したりしましたが、なぜか関数を認識してくれません。Microsoft365のExcelだからでしょうか？

[token]

つまらないことを書いてすいません
モジュールに記述しただけでは多分、EXCELは自動で認識をしてくれませんので、
一度セルに戻って "=ColorCount...(略）"以下を入力し直す or 入力状態にしてEnter
とかしてあげると、関数が書き換わったことを認識してくれるようです

外してたらすいません

[yarukkyanai]

ありがとうございます！

再度開きなおして、「マクロを有効化」したところ、うまく戻り値が表示されました！
「マクロを有効化」をきく表示を、今まで気づかなかったことが原因でした。。。
1人でしたら、焦るばかりで、一生気づかなかったかもしれません。。