練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題10について

こちらはマクロVBAの初歩的な知識になります。

指定されたセルの正・負の値の個数を表示する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までの数値を対象に、C2には負の数、C5には正の数を入力する

動作説明

VBAを使用して、セル番地A1からA10までの値を取得し、その中で負の値の個数を数えてセル番地C2、
正の値の個数を数えてセル番地C5に表示します。

具体的には、セル番地A1からA10までの値を順番に取得し、
正の値または負の値をカウントアップします。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

ループを使用してセル番地A1からA10までの値を順番に取得します。

例えば下記のような見本を紹介します。

・ヒントその2

正の値または負の値であれば、変数をカウントアップします。

カウントアップ方法は「変数＝変数+1」で指定した変数がカウントアップされます。

・ヒントその3

取得した値が正の値または負の値であるかどうかを判定する条件分岐を使用します。

条件分岐はIf Thenを使用します。

判別する際は不等式を使用します。
例えば「対象の数値　< 0」の場合、対象の数値は0より小さいことから負の値であることがわかります。

この構造を活用して、正の値または負の値か判断します。

これらのヒントを参考にして、解答コードを作成してみてください。  

解答コード

では回答を見ていきましょう！

・回答その①

・回答その②

この回答例では、ループ処理を使用せずに組み込みの関数を活用して個数を計算しています。

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ループ構造

偶数の個数を数えるためには、セル番地A1からA10までの値を1つずつ判定する必要があります。
ループ構造を使用して、指定した範囲のセルを順番に処理する方法を理解する必要があります。

今回はFor Each文を使用しました。

セルの範囲指定

VBAでは、RangeオブジェクトやCellsオブジェクトを使用してセルを対象にします。

Rangeオブジェクトは、セルの範囲を指定する際に使用されます。例えば、Range(“A1”)はセル番地A1を指定します。
Cellsオブジェクトは、行番号と列番号を指定してセルにアクセスする際に使用されます。

例えば、Cells(1, 1)はセル番地A1を指定します。

正の値または負の値であるかどうかを判定する

例題では負の数を求める際には「If cell .Value < 0 Then」のように処理しました。
こちらは対象のセルの値が0を下回っているか確認して、0を下回っていたら負の数と判断しています。

WorksheetFunction.CountIf 関数を使用した場合は検索条件を“<0”とすることで負の数を求めることが出来ます。

まとめ

この練習問題では、セル番地A1からA10までの正の値あたは負の値の個数を表示するという課題に取り組みました。

VBAを使うことで、Excelの操作を自動化したり、複雑な計算や処理を行ったりすることができます。
練習問題を通じて、VBAのスキルを向上させ、より高度な操作や処理を行えるようになることを目指しましょう。

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
以上で練習問題10となります。お疲れ様でした！

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

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

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

■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)

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

ファイルの仕様にあったデータの個数のカウントができるようになるので

是非参考にしてみてください。

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

■関数の仕組み

カウントしたい範囲：条件・カウントの対象となる範囲

カウントの条件：カウントする際に絞り込みたい条件

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

例として、下図の勤務表を元に説明したいと思います。
今回は休日出勤をした日を数えてみましょう。

この状態では通常出勤や休日出勤が混ざっており、

本来のCOUNTA関数だとすべての勤務形態を含んでカウントしてしまいます。

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

=COUNTIF(カウントしたい範囲,カウントの条件)

のように使用します。

カウントしたい範囲は出勤の項目なのでC3:C12となります。

カウントの条件は休日出勤なので“休日出勤”にしときましょう。

つまり今回の休日出勤をカウントする公式としては

=COUNTIF(C3:C12,“休日出勤”)

のようになります。
では、実際に打ち込んでみたいと思います。。

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

休日出勤は２日なので2と算出されています。

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

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

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

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

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

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

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

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

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

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

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

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

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

今月の休日出勤日数を求める式は「 =COUNTIF(C3:C12,“休日出勤”) 」

でしたよね。

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

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

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

検索文字のルール

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

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

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

■公式の説明

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

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

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

■練習問題

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

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

カウントしたい勤務時間は「Ｆ2」に入力する仕組みです。

今回はカウント対象を勤務時間の「Ｃ3からＣ12」とします。

「Ｆ2」に入力した勤務時間のカウント結果を「Ｆ4」にCOUNTIF関数を使用して

算出してみましょう。

答え：=COUNTIF(C3:C12,F2)

カウント範囲は 「Ｃ3からＣ12」 なので 「Ｃ3：Ｃ12」

カウントの条件は「Ｆ2」になります。

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

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

さらに「Ｆ2」を打ち換えるとカウント結果も変わるようになっています。

■まとめ

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

さらに条件を複数に増やし、カウントできるCOUNTIFSという関数も存在します。

こちらの方も身に着けておくと複数の条件でのカウントもできるのでとても便利になりますよ。

COUNTIFS関数はこちら☟

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

COUNT関数・COUNTA関数との差別化を活用しながら取り組んでみてください。

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

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

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

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