導入
実務において、大量のデータから「特定の期間」や「特定の条件」に合致する最大値を抽出したい場面は非常に多いです。ExcelのDMAX関数は、データベース機能を使った強力な集計ツールですが、毎回ワークシート上で条件範囲を設定するのは手間がかかります。今回は、VBAを使ってこのDMAX関数の処理を自動化し、プログラムから柔軟に条件付き集計を行うテクニックを解説します。
基礎知識
DMAX関数は、指定したデータベース（表）から、条件に一致するレコードの最大値を求める関数です。
構文：=DMAX(データベース, フィールド, 条件)
- データベース：対象とするセル範囲（見出し含む）。
- フィールド：最大値を求めたい列の見出し名や位置。
- 条件：抽出条件を記述したセル範囲（見出しと条件値のセット）。
VBAでこれを扱う場合、WorksheetFunctionオブジェクトを利用して、プログラム内で動的に条件範囲を書き換えることで、複雑な抽出処理をボタン一つで実行できるようになります。
実装/解決策
実務で最も効率的なのは、条件を入力するエリアをあらかじめシート上に固定し、VBAでその値を書き換えてからDMAXの結果をセルに代入する手法です。これにより、ユーザーはVBAコードを直接触ることなく、条件を変更して結果を即座に確認できます。
サンプルプログラム
以下のコードは、指定した「開始日」と「終了日」の期間内における、売上の最大値を抽出する例です。
Sub GetMaxByDateRange()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(“Sheet1”)
‘ 条件範囲を設定
‘ セルG24, H24に項目名（日付）を配置していると仮定
‘ セルG25に開始日、H25に終了日を条件として入力
ws.Range(“G25”).Value = “>=2023/04/01”
ws.Range(“H25”).Value = “<=2023/04/30"
' DMAX関数で計算を実行
' 第1引数：データ範囲(B4:E40)
' 第2引数：フィールド(E4:売上)
' 第3引数：条件範囲(G24:H25)
On Error Resume Next ' エラー発生時の停止を防ぐ
ws.Range("J25").Value = Application.WorksheetFunction.DMax( _
ws.Range("B4:E40"), _
ws.Range("E4"), _
ws.Range("G24:H25") _
)
If Err.Number <> 0 Then
MsgBox “指定した条件に該当するデータがありません。”
Else
MsgBox “期間内の最大値は ” & ws.Range(“J25″).Value & ” です。”
End If
On Error GoTo 0
End Sub
応用・注意点
1. 条件範囲のクリア：連続して処理を行う場合、古い条件が残っていると誤った結果を招くことがあります。処理の前後で必ず条件セルをクリアする、または上書きする処理を徹底してください。
2. フィールド名の指定：DMAX関数の第2引数は、フィールド名（文字列）でも指定可能です。列の挿入などで列番号が変わる可能性がある場合は、セル参照ではなく、あらかじめ定義した列名（例: “売上”）を渡す方がメンテナンス性が向上します。
3. エラー処理：該当データが存在しない場合、DMAX関数はエラーを返すことがあります。サンプルコードのように、`On Error Resume Next` を活用し、結果が取得できたかどうかを判定する実装が現場では安全です。
