練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題4について

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

指定したセル・範囲の平均値を計算し、セルに結果を表示する問題となります。
それでは頑張っていきましょう！

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

問題内容

セル番地D1からD5までの平均値を計算し、セル番地E1に結果を表示する

動作説明

VBAを使用して、セル番地D1からD5までの値の平均値を計算し、その結果をセル番地E1に表示します。
具体的には、セル番地D1からD5までの値を取得し、それらの値の平均を計算してセル番地E1に表示する必要があります。

ヒント

この問題では、セル番地D1からD5までの値の平均を計算し、セル番地E1に結果を表示する必要があります。
以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

平均値を計算するためには、取得した値を合計し、セルの数で割る必要があります。ループを使用してセルの値を合計する方法や、WorksheetFunctionオブジェクトのAverageメソッドを使用する方法があります。

WorksheetFunctionで平均値を求めるためには、VBAの組み込み関数であるWorksheetFunction.averageを使用します。
例えば、averageValue = WorksheetFunction.average(Range(“D1:D5”))というように、
average関数を使ってセル範囲内の平均値を取得できます。

・ヒントその2

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

セル範囲を指定するには、Range(“D1:D5”)というように範囲の開始セルと終了セルを指定します。

・ヒントその3   (参考)

計算結果をセルに表示するには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

例えば、指定セル.Value = 入力したい文字で文字の入力が可能です。
ちなみに省略しても機能します！

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

解答コード

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

・回答その①

上記のコードは、セル番地D1からD5までの値の平均値を計算し、その結果をセル番地E1に表示するVBAのマクロです。

解答コードでは、totalとaverageValueという変数を宣言し、totalにセル番地D1からD5の合計値を代入します。
その後、averageValueにtotalをセルの数である5で割った値を代入します。

最後に、Range(“E1”).Value = averageValueという行で、変数averageValueの値をセル番地E1に表示しています。

・回答その②

解答コードでは、まずaverageValueという変数を宣言し、WorksheetFunction.average関数を使ってセル範囲の合計値を取得します。

取得した平均値を変数averageValueに代入し、最後にRange(“E1”).Valueにその値を表示します。

必要な知識

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

セルへのアクセス方法

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

セルの値の取得と設定

セルの値を取得するには、Valueプロパティを使用します。例えば、Range(“A1”).ValueやCells(1, 1).Valueはセルの値を取得します。
セルの値を設定するにも、同様にValueプロパティを使用します。

例えば、Range(“A1”).Value = 10やCells(1, 1).Value = “Hello”といった形でセルに値を設定します。

下記参考記事で紹介しています！

変数の宣言と演算

VBAでは、変数を宣言して使用します。変数はDimステートメントを使用して宣言します。

例えば、Dim total As Doubleとすると、totalという名前の変数をDouble型で宣言します。
演算においては、四則演算や比較演算子を使用します。例えば、total = total + 1とすると、totalの値に1を加えて再代入します。

平均の計算

平均値を求めるためには、WorksheetFunctionが必要です。

下記参考記事で紹介しています！

ループ構造

平均値を求めるために、セル範囲内の各セルを順番にチェックするループ構造が必要です。
For Nextループを使った反復処理や、Forループを使ったカウンターを利用した反復処理について理解しておくと良いでしょう。

これらの知識を応用して、問題を解くためのコードを作成しましょう。

まとめ

練習4では、複数のセルの値を合計し、平均値を計算して別のセルに表示する方法を学びました。

これらの練習問題を通じて、VBAを使用してExcelの操作を自動化する方法を学びました。VBAを使うことで、繰り返し行う作業を自動化したり、複雑な計算や処理を簡単に行ったりすることができます。

練習問題の難易度を徐々に上げていくことで、VBAの基礎をしっかりと学びながら、より高度な操作やプログラミングのテクニックを習得することができます。

次の練習問題に進む前に、現在までの内容を復習し、理解を深めてください。

以上で練習問題4となります。お疲れ様でした！

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

【AVERAGE関数】エクセルで平均値を求める方法について説明します！ ► 独学エクセル塾 (dokugakuexcel.com)

【AVERAGEIF関数】エクセルで条件に当てはまる平均値を求める ► 独学エクセル塾 (dokugakuexcel.com)

【AVERAGEIFS関数】エクセルで複数の条件に当てはまる平均を求める ► 独学エクセル塾 (dokugakuexcel.com)

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

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

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

・プログラムの仕組み

Application.WorksheetFunction.Average(平均を求めたい範囲)

・使用方法

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

AさんからKさんまでの得点をＣ列に入力しています。
今回はその平均得点を「E3」に入力してみましょう。

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

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

平均を求めることができました。
ちなみにCellsで表示するとこのようになります。

Cells(3, 5) = Application.WorksheetFunction.Average(Range(Cells(3, 3), Cells(13, 3)))

さらにRange変数を使用しても平均を求めることは可能です。

Sub 平均()

Dim A As Range

Set A = Range(“C3:C13”)

Cells(3, 5) = Application.WorksheetFunction.Average(A)

End Sub

■AverageIF関数で条件に当てはまる平均を求める

・プログラムの仕組み

Application.WorksheetFunction.AverageIf(条件の範囲,絞り込む条件,平均の範囲)

・使用方法

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

先ほどのシートに学年が加わりました。
今回は２年の平均を求めてみましょう。

条件の範囲は「Ｃ3からＣ13」になります。
絞り込む条件は「２年」ですね。
平均の範囲は得点なので「Ｄ3からＤ13」ですね。

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

Sub 条件に当てはまる平均()

Cells(3, 6) = Application.WorksheetFunction.AverageIf(Range(“C3:C13”), “２年”, Range(“D3:D13”))

End Sub

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

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

Cells(3, 6) = Application.WorksheetFunction.AverageIf(Range(Cells(3, 3), Cells(13, 3)), “２年”, Range(Cells(3, 4), Cells(13, 4)))

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

Sub 条件に当てはまる平均()

Dim A As Range, B As Range

Set A = Range(“C3:C13”)
Set B = Range(“D3:D13”)

Cells(3, 6) = Application.WorksheetFunction.AverageIf(A, “２年”, B)

End Sub

■AverageIFS関数で条件に当てはまる平均を求める

・プログラムの仕組み

Application.WorksheetFunction.AverageIfs(平均したい範囲,絞り込む範囲1,絞り込む条件1,絞り込む範囲2,絞り込む条件2….)

・使用方法

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

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

平均したい範囲は「E3からE13」です。
絞り込む条件の範囲は１つ目は学年なので「C3からC12」です。
絞り込む条件の１つ目は「２年」ですね。
絞り込む条件の範囲は2つ目は学年なので「D3からD12」です。
絞り込む条件の2つ目は「は組」ですね。

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

Sub 複数の条件に当てはまる平均()

Cells(10, 7) = Application.WorksheetFunction.AverageIfs(Range(“E3:E13”), Range(“C3:C13”), “２年”, Range(“D3:D13”), “は組”)

End Sub

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

「２年は組」に当てはまる「45」と「60」が平均されていますね。

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

Cells(10, 7) = Application.WorksheetFunction.AverageIfs(Range(Cells(3, 5), Cells(13, 5)), Range(Cells(3, 3), Cells(13, 3)), “２年”, Range(Cells(3, 4), Cells(13, 4)), “は組”)

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

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

Sub 複数の条件に当てはまる平均()

Dim A As Range, B As Range, C As Range

Set A = Range(“C3:C13”)
Set B = Range(“D3:D13”)
Set C = Range(“E3:E13”)

Cells(10, 7) = Application.WorksheetFunction.AverageIfs(C, A, “２年”, B, “は組”)

End Sub

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

・WorksheetFunctionクラスのAverageifsプロパティを取得できません

こちらは平均の範囲にエラーが生じているかもしれません。
下図の見本を見てみましょう。

得点にエラーが存在しています。
先ほどの「２年は組」の条件で平均を求めるとエラーになってます。

こちらの解決方法は平均範囲のエラーをなくすしかありません。
IFERROR関数などを使用してエラーにならない出力を検討してみましょう。

・平均の結果が正しくない

こちらはセルの参照が間違っていないかを確認してください。
それでも結果が異なる場合は、表示形式が「文字列」になっている可能性があります。

下図を見てみましょう。

平均範囲が「文字列」で入力されている場合は数値としてみなされず
文字として判断されるため、平均されなくなります。

解決方法は表示形式を「標準」「数値」に戻して入力しなおすと解決します。

■練習問題

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

⬛︎公式の説明

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

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

■まとめ

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

関数で使用する平均の機能ですがVBAでも使用することができるので

是非今回の内容を活用してみてください。

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

【マクロVBA知識 20】カウントをCOUNT/COUNTIF/COUNTIFSで求める ► 独学エクセル塾 (dokugakuexcel.com)

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

エクセルを使用するうえでエラーや空白は付き物。
その際にエラーや空白を無視して計算したいですよね。今回はそれを可能する関数です。

この関数を使用するだけでエラーが発生する可能性がある場面は防ぐことができます。

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

■関数の仕組み

計算方法：どのような計算をするか選択する（合計や平均など）

除外のオプション：エラーや空白等、スルーする条件を決める

計算範囲：計算する範囲を決定する

■ エラーを無視して計算する

見本で下図のような得点表を作成しました。

今回はA～Jさんの点数の合計・平均を求めていきます。

各得点に様々なエラーが発生していますね。
この状態で計算してみます。

計算した結果がこちらです。

はい、このようにエラーになってしまいます。

このエラーを無視できるのが今回の関数です。

では、AGGREGATE関数の説明に移ります。
関数の内容はこちら。

=AGGREGATE(計算方法,除外のオプション,計算範囲)

では計算方法から見ていきましょう。

・計算方法

こちらでは合計・平均・最大値・最小値など、どの計算をするか選択できます。

計算できる手法は以下の通りです。当てはまる数値を入力すれば、その計算が可能です。

よく使うのは1.平均、2.カウント、4.MAX、5.MIN、9.合計ぐらいでしょうか。
標準偏差は分析マンには必需品のアイテムですね。

・除外のオプション

ここでは無視したいオプションを選択します。

文字通りなので説明しませんが、

迷ったら「7」の「非表示の行とエラー値を無視します」を選択で大丈夫です。

非表示の行の無視や、入れ子、エラー値のみ無視など様々なオプションがあるので場面によって

使い分けてみてください。

■実践する

・エラーを無視して合計を計算

では合計を打ち込んでみましょう。
計算方法は合計なので「9」。除外方法は「7」で設定します。
そして合計したい範囲を関数で打ち込むと以下のようになります。

=AGGREGATE(9,7,C3:C12)

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

エラーにならず、計算してくれていますね。

・エラーを無視して平均を計算

計算方法は平均なので「1」。除外方法は「7」で設定します。
そして合計したい範囲を関数で打ち込むと以下のようになります。

=AGGREGATE(1,7,C3:C12)

こちらもうまくいきましたね！

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

■練習問題

・ 非表示の行とエラー値を無視して最大値（MAX）を計算

では下図の表を参考にしてみましょう。

対象はＣ3からC８とします。しかしエラーと空白が混じっているので無視します。

答え：=AGGREGATE(4,7,C3:C8)

解説：最大値(MAX)は「4」、非表示の行とエラー値を無視は「7」、範囲は「 C3:C8 」

・ 非表示の行とエラー値を無視して最小値（MIN）を計算

先ほどの計算を最小値（MIN）で計算してみましょう。

対象は先ほどと同様Ｃ3からC８とします。今回もエラーと空白が混じっているので無視します。

答え：=AGGREGATE(5,7,C3:C8)

解説：最大値(MAX)は「5」、非表示の行とエラー値を無視は「7」、範囲は「 C3:C8 」

■公式の説明

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

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

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

■まとめ

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

とても便利ですよね。私もこの関数を学んで

SUM関数やAVERAGE関数を使わない場面が増えました。

個人的にとても好きな関数です.

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

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

VBAではストーリー形式で説明していますが途中からでもわかるようにしています。ぜひ参考にしてみてください。

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

平均は分析などでよく使用される便利な機能です。

それでは実際に見てみましょう。

■ 平均値を求める

・通常の平均値の算出

今回もAさん・Bさん・Cさんのテストの点数を参考にしてみましょう。

下図の見本を見てみましょう。

国語・算数・理科・社会・英語の各点数を入力しています。

では黄色の「平均値」を求めます。

使用する関数は「AVERAGE関数」です。

「＝」の後にAVERAGEと打ちます。するとAVERAGE関数が出てくるのでダブルクリックします。

このような画面になりましたかね？
そこで、Aさんの点の開始位置「85」をクリックしたまま、終点の「28」までスライドさせて範囲を決定させます。これによりAさんの点数がすべて網羅できた状態になります。

つまり関数で表すとこのようになります。

=AVERAGE(C4:C8)

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

この状態でEnterキーを押すと…

平均点が算出されます。Aさんの平均点は62.4点ですね！
ちなみにBさん・Ｃさんの平均点を求めたいときは、関数を1から打ち込まなくても時短で打ち込める方法があります。

AVERAGE関数が入ったセルを選択し、右下にマウスを合わせます。
そのままクリックして展開したい範囲までスライドさせると・・・

Bさん・Cさんも同じように平均値を求めることができます。
ちなみに平均値を求める範囲も追従してずれてくれるようになっています。

Bさん・Cさんそれぞれ関数の式を打ち込まなくても入力できるのでとても便利ですね。

・離れた範囲を選択して複数範囲の平均値を求める

下図のように平均値を求めたい範囲が離れていても 平均値 を求めることができます。

離れている範囲の 平均値 を求めたい場合には範囲の後に「,」を打ち込むか、

「Ctrl」を押しながら再度、範囲を選択すると複数範囲の 平均値 を求めることができます。

上図の見本を見てみましょう。

=AVERAGE(C3:C7,F3:F7)

「Ｃ3：Ｃ7」と「Ｆ3：Ｆ7」の二つの範囲を参照していることがわかります。

・複数のシートをまたいで平均値を求める

さらに複数のシートをまたいでも平均値を求めることができます。

下記の式を見てみましょう

=AVERAGE(Sheet1!P10:P24,Sheet2!Q9:Q25)

２つのシートの範囲を参照して平均値を求めています。

参照範囲は

①「シート：Sheet1」のＰ10からＰ24

②「シート：Sheet2」のＱ9からＱ25

となっています。

仕組みはシート名+「！」+範囲で

別シートを参照することができるようになります。

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

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

・数値が文字列になっている

下記の式をご覧ください

5つの数値の平均値を算出する計算式になっています。

結果は平均の「62.4」になるはずです。しかし結果は下図のようになりました。

「62.4」ではなく、「71」になっています。

では「28」に注目してください。

左上に緑の印がついています。

本来数値は「標準」や「数値」となっています。

しかし左上に緑の印がついてある「28」はというと…

「文字列」になっています。

つまり「28」は数値として認識されておらず「文字」として認識しているため

無視されている計算になっています。

対処法：表示を標準・数値にもどし、再度入力すれば解消されます。

・平均値を算出する範囲にエラーが含まれている

では次のエラーを見てみましょう。

平均値を求める式は先ほどと同様です。

しかし数値の中にエラーが存在しています。

結果はこのようになります。

エラーに引っ張られて平均値の結果もエラーになってしまいました。

AVERAGE関数は空白や文字列はスルー出来ますが、エラーはスルー出来ません。

対策を下記にまとめました。

対策①：参照のエラーを解消する

対策②：AGGREGATE関数を使用し、エラーをスルーして平均値を求める。

対策①は至ってシンプルです。

対策②はエラーが起こる可能性があるが、平均値を求めたい場合は

AGGREGATE関数を使用するとエラーもスルーすることができます。

AGGREGATE関数関数についてはこちら☟

【AGGREGATE関数】エクセルで空白やエラーを無視して合計・平均・最大値・最小値を求める。 ► 独学エクセル塾 (dokugakuexcel.com)

■公式の説明

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

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

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

■まとめ

いかがだったでしょうか。
これで電卓を使用して算出しなくても簡単に求めることができますね！

使い方はシンプルでとても使いやすいので実際に使用してみてください。

複雑な平均値を求める場合はAVERAGEIF関数またはAVERAGEIFS関数が必要になります。

【AVERAGEIF関数】エクセルで条件に当てはまる平均値を求める ► 独学エクセル塾 (dokugakuexcel.com)

【AVERAGEIFS関数】エクセルで複数の条件に当てはまる平均を求める ► 独学エクセル塾 (dokugakuexcel.com)

ぜひ参考にしてみてください。

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

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

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