ＶＢＡで一致するセルの個数を取得するには

シートの指定した範囲のセルから、たとえば「休日」という言葉が入っているセルを数えて、その個数を返す記述はどのようにすればよいのでしょうか。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： maruru01 回答日時： 2004/08/31 11:34

こんにちは。

maruru01です。

ワークシート関数のCOUNTIFを、VBAで使用してはどうでしょうか。
ワークシート関数をVBAで使用するには、WorksheetFunctionオブジェクトを使用します。


WorksheetFunction.CountIf(Selection, "*休日*")


で、範囲（Selection）内の「休日」を含むセルの数をカウント出来ます。
なお「*」はワイルドカードで、付け方で、前方一致、後方一致、完全一致などに出来ます。

この回答へのお礼

そういったものもあるんですね～。
ご丁寧にありがとうございました。

お礼日時：2004/08/31 13:12

No.3 回答者： imogasi 回答日時： 2004/08/31 12:43

標準モジュールに下記を貼りつけ

Function cnt(a)
n = 0
For Each cl In a
If cl = "休日" Then
n = n + 1
End If
Next
cnt = n
End Function
答えを出すセルへ=CNT(A1:D10)などと入れてください。

この回答へのお礼

セルに直接反映させるにはこの方法が一番よさそうです。自分で For Next と If文 でなんとかつくってみたのですが、その場合コマンドボタンなどを押して初めて所定のセルに反映されるので、用途にあわせて使い分けてみます。どうもありがとうございました。

お礼日時：2004/08/31 13:15

No.1 回答者： noname#7749 回答日時： 2004/08/31 11:33

COUNTIF関数

この回答へのお礼

ありがとうございました。

お礼日時：2004/08/31 13:11