【Excel VBAで売上分析】売上金額が低い時の状況把握と推移グラフ化の方法

「なんだか今月、売上が低い気がする…」

そんなモヤモヤを感じたとき、なんとなくの感覚だけで判断するのではなく、データを使って冷静に状況を把握することが大切です。

この記事では、売上金額が低いと感じたときに、まず“事実”を見える化するためのExcel分析方法をご紹介します。

売上金額が低い状況をデータで見える化するための準備

■ 売上データCSVファイルについて

売上データは、たとえば以下のようなCSV形式で出力されていることが多いです。

このようなCSVファイルをExcelに読み込めば、日付ごとの売上推移の売上状況を視覚的に把握できます。

Excel VBAで売上分析を行う方法｜フォーム作成から集計・グラフ化まで

次に、実際にどのように分析を進めていくのかを解説します。

たったこれだけで、どの日に売上が低かったのか、逆に高かったのかが一目でわかるようになります。

■ フォーム作成手順

■ 売上データから必要項目を自動集計する

■ 集計データを基に日別売上推移をグラフ化する手順

この日別売上推移グラフをチェックすれば、どの日に売上が前年同日より低かったのか、状況がすぐにわかります。

【コピペOK】売上分析に使えるExcel VBAコード

エクセルVBAで自動化したい場合、以下のコードで日別売上の集計グラフを作ることが可能です。

ThisWorkbookモジュール用コード

1. Option Explicit
3. Private Sub Workbook_Open()
4.     UserForm1.Show vbModeless ' モーダルエラーを回避
5. End Sub

フォームモジュール用コード

1. Option Explicit
3. Private Sub UserForm_Initialize()
4.     ' フォーム初期化時にウィンドウを最小化し、フォームを前面に出す
5.     Application.WindowState = xlMinimized
6.     Me.Show vbModeless
7. End Sub
9. Private Sub btnSelectCSVFolder_Click()
10.     Dim fldr As FileDialog
11.     Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
12.     
13.     If fldr.Show = -1 Then
14.         txtCSVFolder.Value = fldr.SelectedItems(1)
15.     End If
16. End Sub
18. Private Sub btnSelectOutputFolder_Click()
19.     Dim fldr As FileDialog
20.     Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
21.     
22.     If fldr.Show = -1 Then
23.         txtOutputFolder.Value = fldr.SelectedItems(1)
24.     End If
25. End Sub
27. Private Sub btnImportCSV_Click()
28.     If txtCSVFolder.Value = "" Then
29.         MsgBox "CSVフォルダを指定してください。", vbExclamation
30.         Exit Sub
31.     End If
33.     If Not IsDate(txtStartDate.Value) Or Not IsDate(txtEndDate.Value) Then
34.         MsgBox "日付を正しく入力してください。（例：2024/02/01）", vbExclamation
35.         Exit Sub
36.     End If
38.     Dim startDate As Date, endDate As Date
39.     startDate = CDate(txtStartDate.Value)
40.     endDate = CDate(txtEndDate.Value)
42.     If startDate > endDate Then
43.         MsgBox "開始日は終了日より前にしてください。", vbExclamation
44.         Exit Sub
45.     End If
46.     
47.     Call ImportCSVData(txtCSVFolder.Value, startDate, endDate)
49.     ' フォームを前面に戻す
50.     Me.Hide
51.     Application.WindowState = xlMinimized
52.     Me.Show vbModeless
53. End Sub
55. Private Sub btnRun_Click()
56.     If txtOutputFolder.Value = "" Then
57.         MsgBox "保存先フォルダを指定してください。", vbExclamation
58.         Exit Sub
59.     End If
60.     
61.     Dim startDate As Date, endDate As Date
62.     startDate = CDate(txtStartDate.Value)
63.     endDate = CDate(txtEndDate.Value)
64.     
65.     Call GenerateReport(txtOutputFolder.Value, startDate, endDate)
66.     
67.     ' フォームを前面に戻す
68.     Me.Hide
69.     Application.WindowState = xlMinimized
70.     Me.Show vbModeless
71. End Sub
73. Private Sub btnClose_Click()
74.     ThisWorkbook.Save
75.     Application.Quit
76. End Sub

標準モジュール用コード