Excel VBAを利用したセールスプロモーションのROI集計方法

この記事では、Excel VBAを使用してセールスプロモーションのROI（投資対効果）を自動的に集計する方法を詳しく紹介します。具体的なコード例やその詳細解説、さらに応用例を3つ取り上げますので、ROIの集計作業を効率化したい方は必見です。

基本的なROI集計コード

セールスプロモーションのROIを計算するには、以下の公式を用います。

\[ \text{ROI} = \frac{\text{プロモーションによる収益} – \text{プロモーションコスト}}{\text{プロモーションコスト}} \]

以下は、Excel VBAを使用してこの計算を自動化する基本的なコードです。

Sub CalculateROI()
    Dim promotionRevenue As Double
    Dim promotionCost As Double
    Dim ROI As Double

    ' A1セルからプロモーションによる収益を取得
    promotionRevenue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    ' B1セルからプロモーションコストを取得
    promotionCost = ThisWorkbook.Sheets("Sheet1").Range("B1").Value

    ' ROIの計算
    ROI = (promotionRevenue - promotionCost) / promotionCost

    ' C1セルにROIを出力
    ThisWorkbook.Sheets("Sheet1").Range("C1").Value = ROI
End Sub

このコードは、Sheet1のA1セルにプロモーションによる収益、B1セルにプロモーションコストを入力することで、C1セルにROIが計算されて出力されます。

応用例1：ROIの色分け

ROIの結果に応じて、セルの色を変更することで、視覚的にROIの良し悪しを判断することができます。

Sub ColorROI()
    Dim ROIcell As Range
    Set ROIcell = ThisWorkbook.Sheets("Sheet1").Range("C1")
    ' ROIの値に応じてセルの色を変更
    If ROIcell.Value > 0.2 Then
        ROIcell.Interior.Color = RGB(0, 255, 0) ' 緑色
    ElseIf ROIcell.Value > 0 And ROIcell.Value <= 0.2 Then
        ROIcell.Interior.Color = RGB(255, 255, 0) ' 黄色
    Else
        ROIcell.Interior.Color = RGB(255, 0, 0) ' 赤色
    End If
End Sub

応用例2：複数のROI集計

複数のプロモーションのROIを一度に計算したい場合に役立つコードです。

Sub CalculateMultipleROI()
    Dim lastRow As Long
    Dim i As Long

    With ThisWorkbook.Sheets("Sheet1")
        ' 最終行を取得
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To lastRow
            .Cells(i, 3).Value = (.Cells(i, 1).Value - .Cells(i, 2).Value) / .Cells(i, 2).Value
        Next i
    End With
End Sub

応用例3：ROIのグラフ作成

ROIの結果をグラフで表示することで、一目で結果を把握することができます。

Sub CreateROIGraph()
    Dim Chart As ChartObject

    ' 新しいグラフを追加
    Set Chart = ThisWorkbook.Sheets("Sheet1").ChartObjects.Add(Left:=100, Width:=375, Top:=75, Height:=225)

    ' データ範囲を設定してグラフ作成
    Chart.Chart.SetSourceData Source:=ThisWorkbook.Sheets("Sheet1").Range("C1:C10")
    Chart.Chart.HasTitle = True
    Chart.Chart.ChartTitle.Text = "ROI結果"
End Sub

まとめ

Excel VBAを使用することで、セールスプロモーションのROI集計を効率的に行うことが可能です。本記事で紹介した基本的なコードや応用例を参考に、日常の業務を大幅に効率化しましょう。