はじめに：すべては“現場で活きるコード”のために
ここまでで、セル操作・データ処理・外部連携まで一通りのVBA技術を習得してきました。
でも最も重要なのは、「現場の困りごとをどう解決するか？」という視点。今回は、関数の自作と、それを活かした実務シナリオ構築によって、VBAを使いこなすラストステップへ踏み込みます。
🛠 Functionプロシージャ：使い回せる自作関数を作ろう！
基本構文
Function 関数名(引数1 As 型, 引数2 As 型) As 戻り値の型
' 処理内容
関数名 = 戻り値
End Function
例：割引金額の計算
Function CalculateDiscount(price As Double, rate As Double) As Double
CalculateDiscount = price * (1 - rate)
End Function
Dim result As Double
result = CalculateDiscount(10000, 0.1) ' → 9000
→ 業務で使うロジックを関数として切り出しておくと、シンプル＆再利用可能に！
関数化するメリット
| 項目 | 内容 |
|---|---|
| 保守性 | 同じ処理を何度も書かなくてよい |
| 可読性 | 処理名で何をしているかが一目瞭然 |
| 再利用性 | 引数で使い回しが可能 |
小話：関数の見直しで月次処理のバグ激減
複数の売上計算ロジックを、関数として整理したことで**「どこを直せばいいか」が明確になり、バグの発見も改修も高速化。**コードレビューでも評価されるようになりました。
📊 実務シナリオ①：勤怠表の自動集計
背景
スタッフの勤怠管理は、Excelファイルに出退勤時刻・休憩時間・残業時間などを入力 → 月末に集計＆報告。この作業を**ワンクリックで完了させたい！**という現場ニーズから生まれた自動化です。
実装ポイント
- 各行ごとに勤務時間を計算（退勤−出勤−休憩）
- 集計列に合計勤務時間を算出
- 条件付きで残業者をハイライト
サンプルコード（抜粋）
Sub SummarizeAttendance()
Dim lastRow As Long, i As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
Dim startTime As Date, endTime As Date, breakTime As Double
startTime = Cells(i, 2).Value
endTime = Cells(i, 3).Value
breakTime = Cells(i, 4).Value
Cells(i, 5).Value = (endTime - startTime) * 24 - breakTime
If Cells(i, 5).Value > 9 Then
Cells(i, 5).Interior.Color = RGB(255, 200, 200)
End If
Next i
End Sub
工夫ポイント
- 処理時間を「* 24」で時間単位に変換
- 残業判定には色づけ処理でわかりやすく
- Function化すれば計算式の再利用も可能！
📄 実務シナリオ②：請求書の一括出力
背景
毎月、複数店舗分の請求書をPDF化してメール送信する作業に時間がかかっていた。店舗名・金額・日付が変わるため、テンプレを元に毎月手作業していた状況を完全自動化。
実装構成
- Excelテンプレートに出力対象店舗一覧
- 店舗ごとに該当データを転記
- PDF化して指定フォルダへ保存
- ファイル名や日付も動的に自動挿入
サンプルコード（抜粋）
Sub CreateInvoicePDFs()
Dim lastRow As Long, i As Long, ws As Worksheet
Set ws = Worksheets("請求テンプレ")
lastRow = Worksheets("店舗一覧").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
Dim storeName As String, amount As Double
storeName = Worksheets("店舗一覧").Cells(i, 1).Value
amount = Worksheets("店舗一覧").Cells(i, 2).Value
ws.Range("B2").Value = storeName
ws.Range("B3").Value = amount
ws.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\請求書\" & storeName & ".pdf", _
Quality:=xlQualityStandard
Next i
End Sub
小話：PDF一括出力＋自動送信ができると“業務の一部”になった
以前は5時間かかっていた請求処理が、VBA導入後は20分で完了＋アウトルック送信まで一括で可能になりました。上司からも「業務のフローがシステム化されてる！」と高評価。自分自身も「コードで現場を支えてる」と実感できた瞬間でした。
✨ まとめ：VBAは単なる技術じゃない、“業務の味方”だ
- 自作関数で再利用性・メンテ性を高める
- 実務処理を「シナリオ」として構築する
- 手作業の課題を“仕組み”で乗り越える
この段階に来たあなたは、もうただのVBAユーザーではなく、現場の仕組みを再設計できるエンジニアです。
最終回予告：これからのVBA活用
次回、第13回（最終回）では、これまで学んだ技術を今後どう活かすか？他ツール連携・チーム展開・成長戦略について、学びの次の一歩を一緒に描いていきます！