Excel VBAを利用した年度別企画提案報告書の自動生成方法

**この記事では、Excel VBAを利用して年度別の企画提案報告書を自動生成する方法について詳しく解説します。初心者向けの基本コードから応用例まで、実用的で効率的な報告書作成のヒントをご紹介します。

はじめに

Excel VBAを利用することで、手動での作業を自動化し、効率的な報告書作成を実現できます。以下にその手順とコード例を示します。

基本コードの解説

まず、基本的な企画提案報告書の自動生成コードを見てみましょう。

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

    ' シートを設定
    Set ws = ThisWorkbook.Sheets("Report")

    ' 最終行を取得
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' 報告書ヘッダーの設定
    ws.Range("A1").Value = "年度別企画提案報告書"
    ws.Range("A1").Font.Size = 16

    ' データの入力
    ws.Range("A2").Value = "年度"
    ws.Range("B2").Value = "提案内容"
    ' …（他のヘッダー情報もここに記載）

    ' 以下、データベースまたは他の情報源からデータを取得・入力するコードを実装

End Sub

このコードは、”Report”という名前のワークシート上で報告書を生成するものです。まず、ヘッダー情報を設定して、その後、データベースや他の情報源からデータを取得して入力します。

応用例1: データのソートとフィルタリング

報告書のデータを年度でソートしたり、特定の条件でフィルタリングしたりする場合に使用します。

Sub SortAndFilterData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Report")

    ' 年度でデータをソート
    ws.Range("A2:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Sort _
        Key1:=ws.Range("A2"), Order1:=xlAscending, Header:=xlNo

    ' 提案内容が「新規」のものだけをフィルタリング
    ws.Range("A2:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).AutoFilter _
        Field:=2, Criteria1:="新規"
End Sub

応用例2: チャートの追加

年度別の提案数や内容別の提案数など、チャートで視覚的にデータを表示する方法です。

Sub AddChart()
    Dim ws As Worksheet
    Dim rng As Range
    Dim chrt As Chart

    Set ws = ThisWorkbook.Sheets("Report")
    Set rng = ws.Range("A2:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

    ' チャートの追加
    Set chrt = ws.Shapes.AddChart2(251, xlColumnClustered).Chart
    chrt.SetSourceData rng
    chrt.HasTitle = True
    chrt.ChartTitle.Text = "年度別提案数"
End Sub

応用例3: 条件付き書式の適用

提案内容や提案数に応じて、セルの色を変える方法です。

Sub ApplyConditionalFormatting()
    Dim ws As Worksheet
    Dim rng As Range

    Set ws = ThisWorkbook.Sheets("Report")
    Set rng = ws.Range("B3:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

    ' 提案内容が「新規」の場合、セルの色を緑色にする
    rng.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""新規"""
    rng.FormatConditions(rng.FormatConditions.Count).SetFirstPriority
    With rng.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274 ' 緑色
        .TintAndShade = 0
    End With
End Sub

まとめ

Excel VBAを利用して年度別の企画提案報告書を自動生成する方法について解説しました。基本のコードから応用例まで、VBAの機能をフルに活用して、効率的な報告書作成を実現することができます。