countifでアクティブな範囲を指定したい。

質問

ある範囲を指定し、その中に調べたい数字が何個在るかを表示したいのです。

確認のために、
msgbox ActiveCell.Address(False, False)
をやってみたのですが、
範囲をアクティブにしても左上しか表示されません。
範囲を表示する方法を教えてください。

また、本題の個数を調べる命令も教えてください。
今、 ans = Application.Evaluate("countif((B3:D8),5)")
のように書いていますが。

上の、B3:D8の部分を汎用的に指定したいのです。

宜しくお願いします。

回答No.1

keithin · ベストアンサー

msgbox application.countif(selection, 5)
のようにします。

お礼

早速有り難うございました。
こんな書き方が出来るのですね、
この方が当たり前なのでしょうか。
出来ました。
「selection」を覚えました。

何時も有り難うございます。
助かります。