【VBAマクロ】Excelシートから担当者別レポートを自動作成する方法

エクセルVBAマクロの作り方や実行の基本的なことを知りたい人は、下記記事を参照ください。

ExcelVBA

【初心者向け】Excelマクロの作り方入門｜VBAの基礎から実行・修正・デバッグ

Excelマクロの作り方を初心者向けにやさしく解説。記録・実行・修正・デバッグまでをステップごとに紹介し、VBAコードの基本も理解できます。これからマクロを学びたい方に最適な入門記事です。...

Excel VBA ベーシック・マクロの実行について

1. Private Sub CommandButton2_Click()
・この行は、Excelのユーザーフォームに配置されたボタン（CommandButton2）がクリックされたときに実行される処理を定義しています。

2. 入力された年月を変数に格納

Dim inputYearMonth As String
inputYearMonth = TextBox1.Text

・inputYearMonthという名前の文字列型変数を宣言し、ユーザーフォームにあるテキストボックス（TextBox1）に入力された値をこの変数に格納します。たとえば、ユーザーが「202308」と入力した場合、その値がinputYearMonthに保存されます。

3. 入力が正しい6桁の年月かどうかを確認
If Len(inputYearMonth) <> 6 Or Not IsNumeric(inputYearMonth) Then
MsgBox "正しい6桁の年月を入力してください (例: 202308)", vbExclamation
Exit Sub
End If

・Len(inputYearMonth)は、inputYearMonthの文字数を取得します。年月は6桁であるべきなので、6桁でない場合に次の処理を行います。

・IsNumeric(inputYearMonth)は、inputYearMonthが数値であるかどうかを確認します。年月は数値（例: 202308）でなければならないため、数値でない場合に次の処理を行います。

・条件が満たされない（6桁でない、または数値でない）場合、MsgBox関数でメッセージボックスを表示し、「正しい6桁の年月を入力してください」という警告メッセージを出します。
・Exit Subで処理を終了し、これ以上のコードは実行されません。

4. メインのレポート生成処理を呼び出し
GenerateDailyReport inputYearMonth

・GenerateDailyReportというサブプロシージャ（別のコードとして定義されているはずです）を呼び出します。このとき、inputYearMonthを引数として渡します。
・このプロシージャは、inputYearMonthに基づいて日次レポートを生成する処理を行います。

5. UserFormを閉じる
Unload Me

1. Option Explicit

これは、変数を使用する前に必ず宣言するように強制するものです。これにより、タイプミスなどのミスを防ぐことができます。

2. Sub ShowUserForm()

Sub ShowUserForm()
UserForm1.Show
End Sub

・ShowUserFormというサブルーチンが定義されています。このサブルーチンを呼び出すと、UserForm1が表示されます。

・UserForm1は、ユーザーが情報を入力できるフォームです。

3. Sub GenerateDailyReport(currentDate As String)

' 変数の宣言
Dim wsData As Worksheet
Dim wsReport As Worksheet
Dim wsMaster As Worksheet
Dim lastRowData As Long
Dim lastRowReport As Long
Dim lastRowMaster As Long
Dim r As Range
Dim dict As Object
Dim key As Variant
Dim i As Long

・GenerateDailyReportは、日次レポートを生成するためのサブルーチンです。

・currentDateという文字列のパラメータを受け取ります。これは、ユーザーがフォームに入力した年月（例：202308）です。

- いくつかの変数が宣言されています。これらの変数は、ワークシートやデータの最後の行の位置を管理するために使われます。

4. シートの設定とReportシートのクリア

' ワークシートの設定
Set wsData = ThisWorkbook.Sheets("SalesData")
Set wsReport = ThisWorkbook.Sheets("Report")
Set wsMaster = ThisWorkbook.Sheets("担当者マスタ")
Set dict = CreateObject("Scripting.Dictionary")

' Reportシートをクリア
wsReport.Cells.Clear

・wsData, wsReport, wsMasterの3つのワークシートが、それぞれのシートに関連付けられています。

・dictは、売上データを担当者別に集計するための辞書オブジェクトです。

・wsReport.Cells.Clearは、レポートシートの内容をクリアするためのコマンドです。新しいレポートを生成する前に、古いデータを削除します。

5. データの集計
' データシートの最終行を取得
lastRowData = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row

' データの集計
For Each r In wsData.Range("A2:A" & lastRowData)
If Format(r.Offset(0, 1).Value, "yyyymm") = currentDate Then
If Not dict.exists(r.Offset(0, 5).Value) Then
dict.Add r.Offset(0, 5).Value, r.Offset(0, 9).Value
Else
dict(r.Offset(0, 5).Value) = dict(r.Offset(0, 5).Value) + r.Offset(0, 9).Value
End If
End If
Next r

・lastRowDataは、SalesDataシートの最終行の位置を取得します。
・その後、SalesDataシートの各行をループし、currentDateと一致するデータを集計します。
・集計は、担当者別に売上金額を辞書（dict）に追加する形で行われます。

6. レポートシートへの出力
' レポートシートの最終行を取得
lastRowReport = wsReport.Cells(wsReport.Rows.Count, "B").End(xlUp).Row + 1

' レポートのヘッダー作成
wsReport.Range("B1:D1").Value = Array("担当者コード", "担当者名", "売上金額")

' 集計結果をレポートシートに出力
For Each key In dict.Keys
' 担当者名を取得
lastRowMaster = wsMaster.Cells(wsMaster.Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRowMaster
If wsMaster.Cells(i, 1).Value = key Then
wsReport.Cells(lastRowReport, 2).Value = key
wsReport.Cells(lastRowReport, 3).Value = wsMaster.Cells(i, 2).Value
wsReport.Cells(lastRowReport, 4).Value = dict(key)
lastRowReport = lastRowReport + 1
Exit For
End If
Next i
Next key
End Sub

・ 集計したデータをレポートシートに出力します。
・wsReportシートのヘッダーに「担当者コード」「担当者名」「売上金額」が表示されます。
・dictに蓄えた担当者ごとの売上データをループで取り出し、担当者マスタシートから担当者名を取得してレポートシートに書き込みます。