使用方法は関数と同じです。
関数は下記リンクを参照してください。

カウントはよく使用する機能ですよね。
ぜひ身に着けて活用してみてください。

それでは見ていきましょう。

■COUNT関数で指定範囲の平均を求める

・プログラムの仕組み

Application.WorksheetFunction.Count(カウントしたい範囲)

・使用方法

では下図の例をもとに進めていきましょう

出勤状態をＣ列に入力しているシートですね。
出勤すると出勤時間を打ち込んでいます。
今回はその出勤日数を「F3」に入力してみましょう。

ではプログラムを組んでみましょう。
カウントを求めたい範囲は「C3からC12」ですので下記のようになります。

Sub カウント()

Cells(3, 6) = Application.WorksheetFunction.Count(Range(“C3:C12“))

End Sub

それでは実行した結果を見てみましょう。

カウントすることができました。数値が「6個」あるので「6」が出力されます。
ちなみにCellsで表示するとこのようになります。

Cells(3, 6) = Application.WorksheetFunction.Count(Range(Cells(3, 3), Cells(12, 3)))

さらにRange変数を使用してもカウントすることは可能です。

Sub カウント()

Dim A As Range

Set A = Range(“C3:C12“)

Cells(3, 6) = Application.WorksheetFunction.Count(A)

End Sub

■CountIF関数で条件に当てはまるカウントを求める

・プログラムの仕組み

Application.WorksheetFunction.CountIf(条件の範囲,絞り込む条件)

・使用方法

では下図の例をもとに進めていきましょう

先ほどのシートの勤務時間に「10」が加わりました。
今回は「10時間勤務の日数」をカウントしてみましょう。

条件の範囲は「Ｃ3からＣ12」になります。
絞り込む条件は「10」ですね。

プログラムを組むとこのようになります。

Sub 条件に当てはまるカウント()

Cells(3, 6) = Application.WorksheetFunction.CountIf(Range(“C3:C12“), “10“)

End Sub

それでは実行してみましょう。

機能していますね。
こちらもCellsで表してみましょう。

Cells(3, 6) = Application.WorksheetFunction.CountIf(Range(Cells(3, 3), Cells(12, 3)), “10“)

Range変数を使用するとこのようになります。

Sub 条件に当てはまるカウント()

Dim A As Range

Set A = Range(“C3:C12“)

Cells(3, 6) = Application.WorksheetFunction.CountIf(A, “10“)

End Sub

■CountIFS関数で条件に当てはまるカウントを求める

・プログラムの仕組み

Application.WorksheetFunction.CountIfs(絞り込む範囲1,絞り込む条件1,絞り込む範囲2,絞り込む条件2….)

・使用方法

では下図の例をもとに進めていきましょう

今回はさらに「勤務内容」も追加しました。
では実際にプログラムを組んでみましょう。

今回は条件を「勤務時間：8」「勤務内容：通常」としてみましょう。

絞り込む条件の範囲は１つ目は勤務時間なので「C3からC12」です。
絞り込む条件の１つ目は「8」ですね。
絞り込む条件の範囲は2つ目は勤務内容なので「D3からD12」です。
絞り込む条件の2つ目は「通常」ですね。

それでは作成したプログラムを見てみましょう。

Sub 複数条件に当てはまるカウント()

Cells(9, 7) = Application.WorksheetFunction.CountIfs(Range(“C3:C12“), “8“, Range(“D3:D12“), “通常“)

End Sub

実行するとこのようになります。

「勤務時間が8」「勤務内容が通常」に当てはまるデータの数、「3」が出力されてますね。

ではCellsでもプログラムを見てみましょう。

Cells(9, 7) = Application.WorksheetFunction.CountIfs(Range(Cells(3, 3), Cells(12, 3)), “8“, Range(Cells(3, 4), Cells(12, 4)), “通常“)

長くなりますが、変数を使う場合はこちらを活用してみましょう。

Range変数を使用するとこのようになります。

Sub 複数条件に当てはまるカウント()

Dim A As Range, B As Range

Set A = Range(“C3:C12“)
Set B = Range(“D3:D12“)

Cells(9, 7) = Application.WorksheetFunction.CountIfs(A, “8“, B, “通常“)

End Sub

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

WorksheetFunction オブジェクト (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。

マクロVBAでもカウント機能を使用することができました。

ぜひ活用してみてください。

次回はVBAでMAX/MIN関数を使用する方法についてまとめています。記事はこちらから☟

【マクロVBA知識 21】データの最大値・最小値をMAX.MINを使用して求める ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

COUNTIF関数から発展した関数ですね。☟

【COUNTIF関数】エクセルで条件に合ったデータの個数をカウントする。 – 独学エクセル塾 (dokugakuexcel.com)

それでは見ていきましょう。

■関数の仕組み

■ 複数の条件に合ったデータの個数を求める

例として、下図の勤務表をもとに説明したいと思います。
勤務表の内容として、勤務時間と勤務内容が記載されています。
今回は10時間勤務で通常出勤をした日を数えてみましょう。

ここで使用するのがCOUNTIFS関数です。
仕組みとしては

=COUNTIFS(カウントしたい条件範囲1,カウントの条件1,カウントしたい条件範囲2,カウントの条件2,・・・)

のように使用します。

まず条件1の10時間勤務を条件に設定してみましょう。

条件1（10時間のカウント）

範囲は勤務時間から絞り込みたい為、C3:C12となります。

条件は10時間なので”10”としましょう。

ここまでを関数に直すとこのようになります。

=COUNTIFS(C3:C12,10）

条件2（通常勤務のカウント）

続いて通常勤務のカウントです。

範囲は勤務内容から絞り込みたい為、Ｄ3:Ｄ12となります。

条件は”通常”なのでそのまま”通常”としましょう。

こちらを条件1と合わせるとこうなります。

=COUNTIFS(C3:C12,10,D3:D12,”通常”)

このようになります。

今回は2個の条件でしたが、3.4.5個など複数条件がある場合は

この後に追加してください。

実際に計算

では、実際に打ち込んでみましょう。

実行した結果がこちらです。

ちゃんとカウントできてますね！

10時間勤務で通常出勤は「1日」「4日」「7日」の3日間で合っています。

■よくあるエラーと対処法

ではCOUNTIF関数を使用して発生するエラーとそれに対する対処法を説明します。

・参照しているブックが閉じている

COUNTIF関数では別のブックを参照することができます。

しかしその参照しているブックが閉じている状態で関数を更新すると

「エラー」になってしまいます。

計算先のブックが開いてないと参照できないためです。

解決策は参照しているブックを開いた状態で再度、数式を計算させれば

エラーは復帰してくれます。

とはいえ、COUNTIFS関数はブックを分けての使用には向いていません。

・データが存在するのにカウントしてくれない

こちらは文字を「”（二重引用符）」で囲っていないケースが多いです。

先ほどの見本を見てみましょう。

今月の休日出勤日数を求める式は「 =COUNTIFS(C3:C12,10,D3:D12,”通常”)」

でしたよね。

仮に「”通常”」から「”」を取り除くと、カウントは「0」になってしまいます。

しかし「”」は数値を検索する際には不要です。

要約するとこのようになります。

検索文字のルール

①文字は「”」で囲わなければならない

②数値は「”」で囲っても囲わなくてもカウントしくれる

上記ルールを頭に入れておけば正確なカウントができると思います。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

COUNTIFS 関数 – Office サポート (microsoft.com)

■練習問題

では練習問題です。実際に考えてみてCOUNTIF関数をマスターしてみてください。

下図の勤務時間をご覧ください。

カウントしたい勤務時間は「G4」に,

カウントしたい勤務内容は「G5」に入力する仕組みです。

「Ｇ4・Ｇ5」で入力した勤務時間・勤務内容に当てはまる日数を

「Ｇ9」にCOUNTIFS関数を使用して算出してみましょう。

答え：=COUNTIFS(C3:C12,G4,D3:D12,G5)

勤務時間のカウント範囲は 「C3：C12」 で条件は「Ｇ4」、

勤務内容のカウント範囲は 「D3：D12」 で条件は「Ｇ5」になります。

では結果を見てみましょう。

ちゃんと機能してくれていますね。

さらに絞り込み条件を打ち換えるとカウント結果も変わるようになっています。

■まとめ

いかがだったでしょうか。
COUNTIF関数の応用になってきますが、活用できれば便利です

では次回の記事でお会いしましょう！

このサイトでは独学でエクセルの技術を磨くことができます。基本操作やVBA、関数を随時更新中です。

関数の使い方や効果を、実際のエクセルを使用してわかりやすくしています。

いつかはエクセルの教科書のようなサイトを目指してます。
コメントで知りたいことや悩みなど記入していただければお答えしていきます。
ぜひ、ほかの記事もご覧ください。皆様の参考になれれば幸いです！