エクセルVBAマクロで担当者別レポートをシートから作成

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

ExcelVBA

ExcelVBAマスターへの第一歩！初心者向けエクセルマクロの作り方

ExcelVBAマスターへの第一歩！エクセルのマクロ作成方法に焦点を当て、初心者でも分かりやすくステップバイステップで学べる記事になっています。 どなたでも迷うことなく学べるようになっています。プログラミングの世界への扉を開く一助になれば幸いです。 Excel（エクセル）マクロとは？ エクセル...

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に蓄えた担当者ごとの売上データをループで取り出し、担当者マスタシートから担当者名を取得してレポートシートに書き込みます。