はじめに：なぜ今、VBAでSUM関数なのか？
皆さん、こんにちは。Excel VBA講師の「師匠」です。
業務効率化の現場で、VBAを学び始めた多くの生徒さんが最初にぶつかる壁があります。それは「VBAで複雑なループ処理を書きすぎて、かえって処理が重く、メンテナンスしにくいコードを作ってしまう」という現象です。
実は、VBAで最も高速かつ確実に結果を出せる手法の一つが、「Excelの強力な関数をVBAから呼び出す」というアプローチです。その筆頭が、誰しもが知っている『SUM関数』です。
「えっ、SUM関数なんて、セルに数式を入れるだけでしょ？」と思われたあなた。それは大きな誤解です。VBAと組み合わせることで、SUM関数は単なる「合計を出すツール」から、動的なデータ分析、条件抽出、そしてレポート自動化の強力な武器へと進化します。
本連載では、全4回にわたり、初心者から中級者へステップアップするための「SUM関数のVBA活用術」を深掘りしていきます。第1回の今回は、SUM関数の基礎をVBAでどう操るか、そしてなぜそれが最強の選択肢なのかを解説します。
VBAでSUM関数を呼び出すための「正しい作法」
VBAでSUM関数を使うには、大きく分けて2つの方法があります。
1. `WorksheetFunction` オブジェクトを使う方法
2. `Evaluate` メソッドを使う方法
まずは、最も推奨される `WorksheetFunction` から見ていきましょう。
Sub Sample_Sum_Basic()
Dim total As Double
‘ A1からA10までの合計を求める
total = Application.WorksheetFunction.Sum(Range(“A1:A10”))
MsgBox “合計値は ” & total & ” です。”
End Sub
このコードの素晴らしい点は、**「計算結果だけをVBAの変数に格納できる」**という点です。セルに数式を入力するわけではないので、シートの見た目を汚しません。また、計算結果をそのまま次のロジック（例えば、予算との比較やエラー判定など）に渡せるため、処理の自由度が格段に上がります。
なぜループ処理よりSUM関数が優れているのか？
初心者のうちは、以下のようなコードを書いてしまいがちです。
‘ 非効率なループ処理の例
Dim i As Long, sumVal As Double
For i = 1 To 10
sumVal = sumVal + Cells(i, 1).Value
Next i
このループ処理、実は大きな落とし穴があります。行数が増えれば増えるほど、VBAの実行速度は低下します。一方、`WorksheetFunction.Sum` は、Excel本体のC++レベルで最適化された計算エンジンを呼び出すため、数万行のデータであっても一瞬で計算が完了します。
「VBAで計算する」のではなく「VBAを使ってExcelの計算エンジンを叩く」。この意識の転換こそが、プログラミングの現場で生き残るための第一歩です。
動的に範囲を指定する：VBAならではの柔軟性
SUM関数の真価は、計算範囲を「可変」にできる点にあります。例えば、日々の売上データが毎日増えていく場合、固定のRange(“A1:A10”)では対応できません。
ここで、VBAの `Range` オブジェクトと `Cells` プロパティを組み合わせます。
Sub DynamicSum()
Dim lastRow As Long
Dim total As Double
‘ A列の最終行を取得
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
‘ A1から最終行までを合計
total = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(lastRow, 1)))
Debug.Print “今回の集計結果: ” & total
End Sub
このコードがあれば、データが100行あっても10,000行あっても、常に正確な合計を算出できます。これが、手動で数式を入力する作業からの卒業です。
エラーハンドリング：SUM関数が「エラー」を返さないために
VBAで `WorksheetFunction` を使う際、注意しなければならないのが「エラー値」の扱いです。もし計算対象の範囲に `#N/A` や `#VALUE!` などのエラー値が含まれていると、VBAのコードはそこで止まってしまいます。
これを防ぐには、`Evaluate` メソッドで数式として処理させるか、あるいは `Application.Sum` （※WorksheetFunctionを介さない呼び出し）を使うというテクニックがあります。
Sub SafeSum()
‘ WorksheetFunctionを介さない呼び出しはエラーを無視しやすい
Dim total As Variant
total = Application.Sum(Range(“A1:A10”))
If IsError(total) Then
MsgBox “範囲内にエラーが含まれています。”
Else
MsgBox “合計値: ” & total
End If
End Sub
このように、VBA側でエラー判定を組み込むことで、現場の運用に耐えうる「堅牢なプログラム」が完成します。
第1回のまとめと次回予告
今回の講義では、以下のポイントを学びました。
1. **VBAでSUM関数を呼ぶなら `Application.WorksheetFunction.Sum` が基本。**
2. **ループ処理よりも高速で、コードもシンプルになる。**
3. **`Cells` を使って範囲を動的に指定することで、データ量に関わらず対応可能。**
4. **エラーハンドリングを意識することで、実務レベルの品質が確保できる。**
さて、次回（第2回）は、今回学んだ基礎をさらに発展させ、**「条件付き合計（SUMIF/SUMIFS）」をVBAで制御する方法**について解説します。
「特定の担当者ごとの売上合計」や「特定の期間の合計」を、ボタン一つで抽出するテクニックを伝授します。
VBAは、難解なアルゴリズムを書くことだけが能ではありません。こうして「既存の強力な機能をいかにうまく使いこなすか」という視点こそが、真のプログラミング思考です。
第2回でお会いしましょう。皆さんのExcelライフが、より効率的で心躍るものになりますように！
