月次売上レポートの自動集計：
毎月 約2〜3時間の手作業を、ボタン1つ・約1.1秒に。

'=====================================================================
' modConfig : 定数集約モジュール
'---------------------------------------------------------------------
' シート名・フォルダ名・色などの「変わりうる値」をここに集約する。
' 仕様変更（シート名変更・フォルダ移動など）はこのモジュールの修正
' だけで済むようにしておく。
'=====================================================================

'--- シート名 ---------------------------------------------------------
Public Const SHEET_MENU As String = "操作パネル"
Public Const SHEET_RAW As String = "生データ"
Public Const SHEET_LOG As String = "取込ログ"
Public Const SHEET_REPORT As String = "月次レポート"

'--- CSV取込設定 ------------------------------------------------------
' ブックと同じ階層から見た相対パス（見つからない場合はフォルダ選択にフォールバック）
Public Const CSV_FOLDER_RELATIVE As String = "sample-data\csv"
Public Const CSV_FILE_PATTERN As String = "sales_*.csv"
Public Const CSV_COL_COUNT As Long = 8        ' 日付,支店,カテゴリ,商品コード,商品名,数量,単価,金額

'--- 色定数（RGB値は Const にできないため Long 直値で保持） -----------
Public Const COLOR_POSITIVE As Long = 25600       ' RGB(0, 100, 0)     緑（前月比プラス）
Public Const COLOR_NEGATIVE As Long = 192         ' RGB(192, 0, 0)     赤（前月比マイナス）

'---------------------------------------------------------------------
' レポート生成の本体
'   戻り値: 処理時間（秒）。エラー時は -1
'   ※MsgBoxを出さないため、COM自動実行からはこちらを直接呼べる
'---------------------------------------------------------------------
Public Function RunReport() As Double
    Dim startTime As Single
    startTime = Timer
    mLastError = ""

    On Error GoTo ErrHandler
    SpeedUp

    ' 1) CSV一括取込
    Dim fileCount As Long, rowCount As Long
    Dim rawData As Variant
    rawData = ImportAllCsv(fileCount, rowCount)

    ' 2) 月次集計
    Aggregate rawData

    ' 3) レポート生成
    BuildReport fileCount, rowCount

    RestoreAppState

    ' 実行結果を操作パネルに記録
    Dim elapsed As Double
    elapsed = Timer - startTime
    If elapsed < 0 Then elapsed = elapsed + 86400   ' 日付またぎ対策
    WriteResultToMenu fileCount, rowCount, elapsed

    RunReport = elapsed
    Exit Function

ErrHandler:
    ' MsgBoxはここでは出さない（COM自動実行時にダイアログで止まるのを防ぐ）
    mLastError = Err.Description
    RestoreAppState
    RunReport = -1
End Function

'---------------------------------------------------------------------
' 生データ配列 (1 To N, 1 To 8) を集計する
'   列: 1=日付 2=支店 3=カテゴリ 4=商品コード 5=商品名 6=数量 7=単価 8=金額
'---------------------------------------------------------------------
Public Sub Aggregate(ByRef rawData As Variant)
    Set mDictMonth = CreateObject("Scripting.Dictionary")
    ' …（残り6つの Dictionary も同様に初期化。中略）…

    Dim r As Long
    For r = LBound(rawData, 1) To UBound(rawData, 1)
        Dim ym As String
        ym = Format$(rawData(r, 1), "yyyymm")
        Dim amount As Double, qty As Long
        amount = rawData(r, 8)
        qty = rawData(r, 6)

        AddTo mDictMonth, ym, amount
        AddTo mDictQtyMonth, ym, CDbl(qty)
        AddTo mDictBranch, ym & KEY_SEP & rawData(r, 2), amount
        AddTo mDictCategory, ym & KEY_SEP & rawData(r, 3), amount
        AddTo mDictProductAmt, ym & KEY_SEP & rawData(r, 4), amount
        AddTo mDictProductQty, ym & KEY_SEP & rawData(r, 4), CDbl(qty)
    Next r
    ' …（対象月＝データ中の最新月の決定処理。中略）…
End Sub

'---------------------------------------------------------------------
' Dictionary への加算ヘルパ
'---------------------------------------------------------------------
Private Sub AddTo(ByVal dict As Object, ByVal key As String, ByVal value As Double)
    If dict.Exists(key) Then
        dict(key) = dict(key) + value
    Else
        dict.Add key, value
    End If
End Sub