エクセルの関数には合計・総和を求めるSUM・SUMIF・SUMIFS関数が存在します。
この関数は、なんとマクロVBAでも使用することができます。

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

【SUM関数】エクセルで合計（総和）を関数を使用して求める方法 ► 独学エクセル塾 (dokugakuexcel.com)

【SUMIF関数】エクセルで条件に当てはまる合計・総和を求める ► 独学エクセル塾 (dokugakuexcel.com)

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

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

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

■SUM関数で指定範囲の合計を求める

・プログラムの仕組み

Application.WorksheetFunction.Sum(合計を求めたい範囲)

・使用方法

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

AさんからKさんまでの得点をＣ列に入力しており
今回はその合計得点を「E3」に入力してみましょう。

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

Sub 合計()

Cells(3, 5) = Application.WorksheetFunction.Sum(Range(“C3:C13”))

End Sub

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

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

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

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

Sub 合計()

Dim A As Range

Set A = Range(“C3:C13”)

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

End Sub

■SUMIF関数で条件に当てはまる合計を求める

・プログラムの仕組み

Application.WorksheetFunction.SumIf(条件の範囲,絞り込む条件,合計の範囲)

・使用方法

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

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

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

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

Sub 条件に当てはまる合計()

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

End Sub

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

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

Cells(3, 6) = Application.WorksheetFunction.SumIf(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.SumIf(A, “２年”, B)

End Sub

■SUMIFS関数で条件に当てはまる合計を求める

・プログラムの仕組み

Application.WorksheetFunction.SumIfs(合計したい範囲,絞り込む範囲1,絞り込む条件1,絞り込む範囲2,絞り込む条件2….)

・使用方法

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

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

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

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

Sub 複数の条件に当てはまる合計()

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

End Sub

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

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

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

Cells(10, 7) = Application.WorksheetFunction.SumIfs(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.SumIfs(C, A, “２年”, B, “は組”)

End Sub

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

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

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

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

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

・合計の結果が正しくない

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

下図を見てみましょう。

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

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

■練習問題

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

⬛︎公式の説明

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

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

■まとめ

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

関数では、よく使用されるSUM関数もVBAで使用できるのは便利ですね。

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

次回は平均を求める方法についてまとめています。記事はこちらから☟

【マクロVBA知識 19】平均をAVERAGE/AVERAGEIF/AVERAGEIFSで求める ► 独学エクセル塾 (dokugakuexcel.com)

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

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

【SUMIF関数】エクセルで条件に当てはまる合計・総和を求める – 独学エクセル塾 (dokugakuexcel.com)

仕組みとしては、設定した複数の条件を満たすもののみ合計するといった関数です。

項目が複数貼る場合には必要な関数になってきます。

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

■関数の仕組み

■ 複数の条件に当てはまる合計を求める

今回はAさんからKさんの点数表を元に説明します。
学年が１年から３年まで分かれており、
さらに組も「い組」「ろ組」「は組」に分かれています。

今回、絞り込む条件としては学年を２年、組をは組で絞って、条件に当てはまる得点の合計を求めます。

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

=SUMIFS(合計したい範囲,合計の条件範囲1,合計の条件1,合計の条件範囲2,合計の条件2,・・・)

のような流れですね。なので2年は組で絞り込むとしたら下記のようになります。

・合計したい範囲

合計したい範囲は点数なのでE4:E14となります。

・条件1

合計の条件範囲1は学年の範囲なのでC4:C14となります。

合計の条件1は２年が入力されているＧ4です。

・条件2

合計の条件範囲2は学年の範囲なのでＤ4:Ｄ14となります。

合計の条件2は２年が入力されているＨ4です。

関数に直すと…

=SUMIFS(E4:E14,C4:C14,G4,D4:D14,H4)

このようになります。

では実際に関数を入れてみましょう。

うまくいきましたね。

ちなみに今回の条件は２つでしたが、最大127個の条件を言えることができるそうです。

127個も入力したら訳が分からなくなりそうですね。

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

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

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

下記の式をご覧ください

今回は「2年は組」の総得点を求める式を参考にしてみましょう。

通常は「49・60」の合計になるので

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

合計の結果は「0」になっています。

では「2年は組」の数値に注目してください。

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

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

しかし左上に緑の印がついてある 「2年は組」 の数値はというと…

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

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

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

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

・合計する範囲にエラーが含まれている

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

同じく 「2年は組」 の合計を見本にしてみます。

合計を求める式は先ほどと同様です。

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

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

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

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

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

■公式の説明

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

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

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

■練習問題

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

下記のようなシートがあったとします。

合計する条件として「地域」と「性別」を絞り込み条件に入力している状態です。

地域は「Ｈ4」、性別は「Ｈ5」に入力しています。

では入力した条件に当てはめて寄付の合計金額を「Ｈ9」に算出してみましょう。

答え：=SUMIFS(E3:E12,C3:C12,H4,D3:D12,H5)

合計の範囲は「E3からE12」なので「E3:E12」

条件1の地域の範囲は「 C3:C12 」で条件は入力している 「Ｈ4」になります。

条件2の性別の範囲は「 D3:D12 」で条件は入力している 「Ｈ5」になります。

入力した結果を見てみましょう。

うまく機能していますね。

さらに絞り込み条件を打ち換えるとその条件に合った合計を再計算してくれます。

■まとめ

いかがだったでしょうか。
項目が多いデータには使える技ですね。

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

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

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

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