【事例】VBAで帳票作成を自動化

' 見積書作成マクロ
Sub CreateEstimate()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("見積書")

    ' 品目マスタから単価を取得
    Dim itemName As String
    Dim unitPrice As Double
    itemName = ws.Range("B10").Value
    unitPrice = GetUnitPrice(itemName)
    ws.Range("D10").Value = unitPrice

    ' 合計計算
    CalculateTotal

    ' PDF出力
    ExportToPDF ws, CreateFileName()
End Sub

' 請求書一括発行マクロ
Sub BatchInvoice()
    Dim dataWs As Worksheet
    Dim invoiceWs As Worksheet

    Set dataWs = ThisWorkbook.Sheets("工事台帳")
    Set invoiceWs = ThisWorkbook.Sheets("請求書")

    Dim lastRow As Long
    lastRow = dataWs.Cells(dataWs.Rows.Count, 1).End(xlUp).Row

    ' 各工事について請求書を作成
    For i = 2 To lastRow
        If dataWs.Cells(i, 10).Value = "請求対象" Then
            ' データを請求書にセット
            SetInvoiceData invoiceWs, dataWs, i

            ' PDF保存
            Dim fileName As String
            fileName = "請求書_" & dataWs.Cells(i, 1).Value & ".pdf"
            invoiceWs.ExportAsFixedFormat xlTypePDF, fileName
        End If
    Next i

    MsgBox "請求書の発行が完了しました"
End Sub

' 報告書作成マクロ
Sub CreateReport()
    ' テンプレート選択
    Dim templateName As String
    templateName = InputBox("テンプレートを選択（1:点検、2:工事）")

    ' 写真フォルダ選択
    Dim photoFolder As String
    photoFolder = SelectFolder()

    ' 写真を自動配置
    InsertPhotos photoFolder

    ' PDF出力
    ExportReportToPDF
End Sub

Sub RobustProcess()
    On Error GoTo ErrorHandler

    ' 処理内容
    ' ...

    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description
    ' ログに記録
    WriteErrorLog Err.Description
End Sub

' ユーザーフォームでわかりやすく
Private Sub btnCreate_Click()
    ' 入力チェック
    If txtCustomer.Value = "" Then
        MsgBox "顧客名を入力してください"
        Exit Sub
    End If

    ' 処理実行
    CreateEstimate
    MsgBox "見積書を作成しました"
End Sub

' 設定シートで管理
Function GetSetting(settingName As String) As String
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("設定")

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 1 To lastRow
        If ws.Cells(i, 1).Value = settingName Then
            GetSetting = ws.Cells(i, 2).Value
            Exit Function
        End If
    Next i
End Function