Excel VBAを使用して曜日別の商品売上トレンドレポートを自動生成する方法

この記事では、Excel VBAを使用して曜日別の商品売上トレンドレポートを自動生成する方法について解説します。VBAを活用することで、手作業でのレポート作成から解放され、効率的にデータ分析を行うことが可能になります。

目次

Excel VBAの基本

Excel VBA（Visual Basic for Applications）は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。

そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。

あわせて読みたい

Excel VBAで作業を効率化する具体的な手順とコード例 Excel VBA（Visual Basic for Applications）は、Excelで作業効率を向上させるためのプログラミング言語です。しかし、多くの初心者がどう入門するべきか、どうコードを...

業務改善コンサルタントが教える　Excel VBA自動化のすべて〜35の事例で課題解決力を身につける〜

created by Rinker

¥3,450 (2024/11/25 11:09:08時点 Amazon調べ-詳細)

• Kindle
• Amazon
• 楽天市場
• Yahooショッピング

基本的なVBAの処理コード

ExcelのデータをVBAで操作する際の基本的な処理を以下に示します。

Sub CreateReportByWeekday()
    Dim LastRow As Long
    Dim i As Long
    Dim WeekdayName As String
    Dim TotalSales As Double
    
    ' 最終行を取得
    LastRow = ThisWorkbook.Sheets("SalesData").Cells(ThisWorkbook.Sheets("SalesData").Rows.Count, "A").End(xlUp).Row

    ' レポート用のシートをクリア
    ThisWorkbook.Sheets("Report").Cells.Clear

    ' 曜日別に売上を集計
    For i = 2 To LastRow
        WeekdayName = WeekdayName(Weekday(ThisWorkbook.Sheets("SalesData").Cells(i, 1).Value))
        TotalSales = TotalSales + ThisWorkbook.Sheets("SalesData").Cells(i, 3).Value
        ThisWorkbook.Sheets("Report").Cells(Weekday(ThisWorkbook.Sheets("SalesData").Cells(i, 1).Value), 2).Value = TotalSales
    Next i
End Sub

コードの詳細解説

– 最初に、売上データの最終行を取得しています。これは、データの範囲を特定するためのものです。
– レポート用のシートを初期化して、前回のデータが残っている場合にはそれをクリアします。
– ループを使用して、曜日ごとの売上を集計します。曜日はWeekday関数を使用して取得し、WeekdayName関数で曜日名を取得しています。
– 最後に、集計した売上をレポートシートに出力します。

応用例

1. 曜日ごとの平均売上の算出

Sub CalculateAverageSalesByWeekday()
    Dim LastRow As Long
    Dim i As Long
    Dim WeekdayCount(1 To 7) As Integer
    Dim WeekdaySales(1 To 7) As Double
    Dim WeekdayName As String
    
    LastRow = ThisWorkbook.Sheets("SalesData").Cells(ThisWorkbook.Sheets("SalesData").Rows.Count, "A").End(xlUp).Row

    ' 曜日ごとの売上とカウントを集計
    For i = 2 To LastRow
        WeekdayName = Weekday(ThisWorkbook.Sheets("SalesData").Cells(i, 1).Value)
        WeekdaySales(WeekdayName) = WeekdaySales(WeekdayName) + ThisWorkbook.Sheets("SalesData").Cells(i, 3).Value
        WeekdayCount(WeekdayName) = WeekdayCount(WeekdayName) + 1
    Next i

    ' 曜日ごとの平均売上を計算
    For i = 1 To 7
        ThisWorkbook.Sheets("Report").Cells(i, 2).Value = WeekdaySales(i) / WeekdayCount(i)
    Next i
End Sub

2. 曜日別の最高売上の算出

Sub CalculateMaxSalesByWeekday()
    Dim LastRow As Long
    Dim i As Long
    Dim WeekdayName As String
    Dim MaxSales(1 To 7) As Double
    
    LastRow = ThisWorkbook.Sheets("SalesData").Cells(ThisWorkbook.Sheets("SalesData").Rows.Count, "A").End(xlUp).Row

    For i = 2 To LastRow
        WeekdayName = Weekday(ThisWorkbook.Sheets("SalesData").Cells(i, 1).Value)
        If ThisWorkbook.Sheets("SalesData").Cells(i, 3).Value > MaxSales(WeekdayName) Then
            MaxSales(WeekdayName) = ThisWorkbook.Sheets("SalesData").Cells(i, 3).Value
        End If
    Next i

    For i = 1 To 7
        ThisWorkbook.Sheets("Report").Cells(i, 3).Value = MaxSales(i)
    Next i
End Sub

3. 曜日別の最低売上の算出

Sub CalculateMinSalesByWeekday()
    Dim LastRow As Long
    Dim i As Long
    Dim WeekdayName As String
    Dim MinSales(1 To 7) As Double
    
    LastRow = ThisWorkbook.Sheets("SalesData").Cells(ThisWorkbook.Sheets("SalesData").Rows.Count, "A").End(xlUp).Row
    ' 初期値を高く設定
    For i = 1 To 7
        MinSales(i) = 999999999
    Next i
    For i = 2 To LastRow
        WeekdayName = Weekday(ThisWorkbook.Sheets("SalesData").Cells(i, 1).Value)
        If ThisWorkbook.Sheets("SalesData").Cells(i, 3).Value < MinSales(WeekdayName) Then
            MinSales(WeekdayName) = ThisWorkbook.Sheets("SalesData").Cells(i, 3).Value
        End If
    Next i
    For i = 1 To 7
        ThisWorkbook.Sheets("Report").Cells(i, 4).Value = MinSales(i)
    Next i
End Sub

まとめ

Excel

VBAを活用することで、曜日別の商品売上トレンドレポートの自動生成が容易になります。この技術を利用すれば、日々の業務効率が大幅にアップします。ぜひ、上記のコードを参考にして、独自のレポートを作成してみてください。

VBAも良いけどパワークエリも良い

VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。

クリックするとパワークエリの全11講座が表示されます。

• 2023年2月22日

  Excel

  【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)

• 2023年2月22日

  Excel

  【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)

• 2023年2月22日

  Excel

  【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)

• 2023年2月22日

  Excel

  【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)

• 2023年2月22日

  Excel

  パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)

• 2023年2月22日

  Excel

  パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）

• 2023年2月22日

  Excel

  パワークエリで効率的なデータグループ化を実現する方法(7/11)

• 2023年2月22日

  Excel

  パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)

• 2023年2月22日

  Excel

  パワークエリで条件別集計をマスターする方法(9/11)

• 2023年2月22日

  Excel

  Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)

• 2023年2月22日

  Excel

  Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)

パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください

『Excel パワークエリ』+『Excelパワーピボット』+『Excel パワーピボット DAX編』-Excel自動化強化 専門書- 3冊セット

created by Rinker

SHOEI

¥8,514 (2024/11/24 20:23:15時点 Amazon調べ-詳細)

• Amazon
• 楽天市場
• Yahooショッピング