Excel VBAを用いた従業員別業績レポートの自動生成方法

この記事では、Excel VBAを使用して従業員別の業績レポートを生成する方法について、深く探ることを目的としています。具体的なコードの作成、詳細な解説、そして応用例まで、手を動かしながら学んでいきましょう。

VBAによる従業員別業績レポートの生成とは

業績レポートは、企業の成績を評価する際の重要なツールです。Excel VBAを使用することで、各従業員の業績データを自動的に集計し、一覧表やグラフで表示することが可能です。これにより、手作業でのミスを減らし、効率的な業績管理を実現できます。

基本的なコードの作成

以下のコードは、従業員別の業績データを自動的に集計する基本的なものです。

Sub CreateReport()
    Dim LastRow As Long
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("Data")
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    'データのフィルタリングと集計
    ws.Range("A1:C" & LastRow).Sort Key1:=ws.Range("A1"), Order1:=xlAscending, Header:=xlYes

    'ここに集計処理や出力処理を追加
End Sub

コードの詳細解説

このコードは、データが格納されているワークシート（”Data”）の最終行を検出し、従業員名（A列）で昇順にデータをソートするものです。集計や出力処理は、この後の応用例で詳しく説明します。

応用例

1. トータル業績の集計

従業員別のトータル業績を集計する方法です。

Sub TotalSales()
    Dim LastRow As Long, TotalSales As Double
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("Data")
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    'データのフィルタリングと集計
    TotalSales = Application.WorksheetFunction.Sum(ws.Range("C2:C" & LastRow))
    MsgBox "トータル業績: " & TotalSales
End Sub

2. 最高業績の従業員の表示

最も業績の良かった従業員を表示する方法です。

Sub TopSalesperson()
    Dim LastRow As Long, MaxSales As Double
    Dim ws As Worksheet, TopSalesperson As String

    Set ws = ThisWorkbook.Worksheets("Data")
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    MaxSales = Application.WorksheetFunction.Max(ws.Range("C2:C" & LastRow))
    TopSalesperson = ws.Cells(ws.Range("C2:C" & LastRow).Find(MaxSales).Row, 1).Value
    MsgBox "最高業績の従業員: " & TopSalesperson
End Sub

3. 月別業績グラフの作成

従業員の月別業績をグラフで表示する方法です。

Sub MonthlySalesGraph()
    Dim LastRow As Long, Chart As Shape
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("Data")
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    'データのフィルタリングと集計
    Set Chart = ws.Shapes.AddChart2(Style:=240, X:=100, Y:=100, Width:=375, Height:=225)
    Chart.Chart.SetSourceData Source:=ws.Range("B1:C" & LastRow)
    Chart.Chart.HasTitle = True
    Chart.Chart.ChartTitle.Text = "月別業績"
End Sub

まとめ

Excel VBAを使用することで、従業員別の業績レポートを簡単に、かつ効率的に生成することができます。この記事を通じて、基本的なコードの作成から応用例までの知識を深め、実際の業務に活用してください。