はじめに

毎月、期限の確認に時間を取られていないだろうか？「どの案件が期限間近か」「どれが過去の期限か」「計画と実績が食い違っていないか」——こうした情報を目視で整理していたら、ミスが増え、時間も無駄になる。

ExcelのVBAを使えば、そんな煩雑な作業を一瞬で自動化できる。今回紹介するスクリプトを使えば、期限日と完了日の列を自動的に色分けし、期限管理を可視化できる。
手間を減らしつつ、視覚的に直感的な管理を実現しよう。

期限管理を劇的に効率化するVBAスクリプト

以下のVBAを実行すれば、現在月の期限を黄色、過去の期限を赤色、そしてS列の完了日が期限より前なら緑色に自動着色できる。

VBAコード

Sub HighlightDeadlines()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentMonth As Integer
    Dim gDate As Date, sDate As Date

    Set ws = ThisWorkbook.ActiveSheet
    currentMonth = Month(Date)
    lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row

    ' 既存の色をリセット
    ws.Range("G2:S" & lastRow).Interior.ColorIndex = xlNone

    For i = 2 To lastRow
        On Error Resume Next ' エラー発生時はスキップ
        gDate = CDate(ws.Cells(i, "G").Value)
        sDate = CDate(ws.Cells(i, "S").Value)

        ' G列の色分け（期限管理）
        If Month(gDate) = currentMonth Then
            ws.Cells(i, "G").Interior.Color = RGB(255, 255, 153) ' 薄黄色（今月の期限）
        ElseIf Month(gDate) < currentMonth Then
            ws.Cells(i, "G").Interior.Color = RGB(255, 204, 204) ' 薄赤色（過去の期限）
        End If

        ' S列の色分け（期限前完了）
        If sDate < gDate Then
            ws.Range("S" & i & ":S" & i).Interior.Color = RGB(204, 255, 204) ' 薄緑色（期限前完了）
        End If
    Next i
End Sub

3段階で実装する色分けシステム

① ワークシート情報を取得

Dim ws As Worksheet
Dim lastRow As Long
Dim currentMonth As Integer

理由：
– ws … アクティブシートの情報を取得
– lastRow … G列の最終行を自動判定
– currentMonth … Month(Date) で現在の月を取得

この基本構造を組むことで、毎月の管理が自動化される。

② G列（期限管理）の色分け

If Month(gDate) = currentMonth Then
    ws.Cells(i, "G").Interior.Color = RGB(255, 255, 153) ' 薄黄色
ElseIf Month(gDate) < currentMonth Then
    ws.Cells(i, "G").Interior.Color = RGB(255, 204, 204) ' 薄赤色
End If

視覚効果：
– 黄色 … 今月の期限を一目で把握
– 赤色 … 期限超過のタスクを即時警告

③ S列（完了日）の色分け

If sDate < gDate Then
    ws.Range("S" & i & ":S" & i).Interior.Color = RGB(204, 255, 204) ' 薄緑色
End If

隠れた機能：
– 期限前に完了したタスクを緑色で強調
– エラーチェック付き（無効な日付でも処理を続行可能）

応用テクニック5選

実装時の注意点

1. マクロの有効化
   • .xlsm 形式（マクロ有効ブック）で保存すること
2. データのバックアップ
   • VBAの動作確認前に、Excelデータを保存しておく
3. 日付のフォーマット統一
   • yyyy/mm/dd 形式で入力しないと、意図しない動作をする可能性がある

効果検証：手作業 vs VBA

このVBAを使えば、たった0.2秒で期限管理が完了する。これを毎月15分の手作業でやるのとでは、1年で3時間の業務削減につながる。

まとめ

「このまま目視チェックを続けて、どれだけの機会損失があるか考えたことはあるだろうか？1ヶ月に15分なら、1年で3時間。それが10人のチームなら30時間。この時間をより重要な仕事に使えるとしたら……？」

このVBAを導入するかしないかで、業務効率は大きく変わる。今すぐ試して、手動チェックの呪縛から解放されよう！