【VBA】複数条件で行やセルを自動色分けする方法（コピペOK）

記事ID: 127
タイトル: 【VBA】複数条件で行やセルを自動色分けする方法（コピペOK）
カテゴリ: シート操作
一次キーワード: VBA 複数条件 色分け 自動
想定読者: ステータスや期限で行を色分けしたい実務担当者（VBA初心者〜初級者）
検索意図: 複数の条件に応じてセルや行の色を自動で変えるVBAコードが欲しい
読者の悩み（1文）: 条件が2つ3つならIf文でなんとかなるが、5つ以上になるとコードがぐちゃぐちゃになる
読了後にできること（1文）: 複数条件で行やセルを自動色分けするVBAを、2条件の基本版と5条件以上の高速版の両方で使いこなせる
前提条件:
  - Excel版: Excel 2016以降 / Microsoft 365
  - OS: Windows 10/11
  - 保存形式: .xlsm（マクロ有効ブック）
  - 貼り付け場所: 標準モジュール
  - 実行方法: マクロ実行（Alt + F8）またはボタン割り当て
更新日: 2026-03-23

この記事でできること

複数の条件に応じて、セルや行の背景色を自動で変えるVBAをコピペで使えるようになる。

• 対象：ステータスや期限で色分けしたい人（VBA初心者OK）
• 所要時間：コピペ → 実行まで5分

どんな場面で使う？

• ステータス列の値に応じて行全体を自動色分けしたいとき
• 期限切れの行を赤、対応中を黄色にまとめて塗りたいとき
• 条件が5つ以上ある色分けをスッキリしたコードで実装したいとき
• データ更新のたびに色分けを自動で再適用したいとき

—

導入

ステータス列を見ながら、1行ずつ手作業で色を塗っていた時期がある。「完了」は緑、「対応中」は黄色、「未着手」は赤……。50行くらいならまだいいけど、200行を超えると正直しんどかった。しかも条件が増えるたびに塗り直し。地味にストレスだった。

VBAで自動色分けするようにしてからは、ボタン1つで一瞬で終わるようになった。月曜の朝に進捗表を更新するのが苦じゃなくなった。

この記事で、同じ手作業に時間を取られている人が「もうこれでいいじゃん」と思えるようになればうれしい。

条件付き書式でも色分けはできるが、条件が5つ以上になると管理が大変になる。VBAとの使い分けについては条件付き書式をVBAで一括設定・解除する方法も参考にしてほしい。

—

完成イメージ（Before / After）

Before（実行前）：

→ すべて白背景。どの行が要注意なのかひと目で分からない。

After（実行後）：

• 「完了」の行 → 薄い緑（RGB: 198, 239, 206）
• 「対応中」の行 → 薄い黄色（RGB: 255, 235, 156）
• 「未着手」の行 → 薄い赤（RGB: 255, 199, 206）
• 「期限切れ」の行 → 濃い赤（RGB: 255, 150, 150）
• 「保留」の行 → 薄いグレー（RGB: 217, 217, 217）

→ ステータスごとに行全体が色分けされ、進捗がひと目でわかる。

—

手順

Step 1：VBE（コードを書く画面）を開く

1. Excelを開き、Alt + F11 を押す
2. VBE（Visual Basic Editor）が開く

開発タブが表示されていない場合：ファイル → オプション → リボンのユーザー設定 → 「開発」にチェック → OK

Step 2：標準モジュールを追加する

1. VBEのメニュー → 挿入 → 標準モジュール
2. 白い画面（コードウィンドウ）が表示される

Step 3：コードを貼り付ける

以下のコードをコードウィンドウにコピペする。

Step 4：マクロを実行する

1. Alt + F8 を押す
2. マクロ一覧から実行したいマクロを選択 → 実行

Step 5：結果を確認する

シートに戻り、ステータスに応じて行の色が変わっていることを確認する。

実行前にバックアップを取ること。 ファイルをコピーしておくか、Ctrl + Z で色を戻せるか確認してから実行する。

—

コード（基本版：2条件で色分け）

まずは「完了」と「未着手」の2条件だけで色を変える最小コード。

Sub 色分け_基本版()

    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row  ' C列の最終行を取得

    Dim i As Long
    For i = 2 To lastRow  ' 2行目から（1行目はヘッダー）

        Select Case ws.Cells(i, "C").Value  ' C列のステータスで判定
            Case "完了"
                ws.Range("A" & i & ":D" & i).Interior.Color = RGB(198, 239, 206)  ' 薄い緑
            Case "未着手"
                ws.Range("A" & i & ":D" & i).Interior.Color = RGB(255, 199, 206)  ' 薄い赤
            Case Else
                ws.Range("A" & i & ":D" & i).Interior.ColorIndex = xlNone  ' 色なし
        End Select

    Next i

    MsgBox "色分けが完了しました（" & lastRow - 1 & "行処理）", vbInformation

End Sub

ポイント：

• C列のステータスで判定し、A列〜D列の行全体に色を付けている
• Select Case を使うと条件の追加が楽（Case "対応中" を追加するだけ）
• Case Else で該当しない行の色をリセットしている

条件分岐の書き方に迷ったら、Select Caseで複数条件の分岐をスッキリ書く方法が参考になる。

—

コード（実務版：5条件以上対応・配列高速版）

自分はこの配列版を使うようになってから、1000行超のデータでも一瞬で色分けが終わるようになった。条件が増えても配列に追加するだけなので管理も楽。同僚に渡したら「これ便利」と言われた。

Sub 色分け_実務版()

    ' === 設定エリア（ここを変更して使う） ===
    Const COL_STATUS As String = "C"    ' ステータスが入っている列
    Const COL_START As String = "A"     ' 色を付ける開始列
    Const COL_END As String = "F"       ' 色を付ける終了列
    Const START_ROW As Long = 2         ' データ開始行（1行目ヘッダー）

    ' --- 条件と色の対応表（配列で管理） ---
    ' 条件を追加したい場合はここに行を足すだけ
    Dim conditions As Variant
    conditions = Array( _
        Array("完了", RGB(198, 239, 206)), _
        Array("対応中", RGB(255, 235, 156)), _
        Array("未着手", RGB(255, 199, 206)), _
        Array("期限切れ", RGB(255, 150, 150)), _
        Array("保留", RGB(217, 217, 217)) _
    )
    ' ========================================

    Dim ws As Worksheet
    Set ws = ActiveSheet

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

    If lastRow < START_ROW Then
        MsgBox "データがありません。", vbExclamation
        Exit Sub
    End If

    ' --- 高速化：画面更新と自動計算を停止 ---
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    On Error GoTo ErrHandler

    ' --- まず全行の色をリセット ---
    ws.Range(COL_START & START_ROW & ":" & COL_END & lastRow).Interior.ColorIndex = xlNone

    ' --- 配列にデータを読み込んで高速処理 ---
    Dim statusData As Variant
    statusData = ws.Range(COL_STATUS & START_ROW & ":" & COL_STATUS & lastRow).Value

    Dim i As Long, j As Long
    Dim matched As Boolean

    For i = 1 To UBound(statusData, 1)
        matched = False
        For j = 0 To UBound(conditions)
            If statusData(i, 1) = conditions(j)(0) Then
                ws.Range(COL_START & (i + START_ROW - 1) & ":" & COL_END & (i + START_ROW - 1)).Interior.Color = conditions(j)(1)
                matched = True
                Exit For
            End If
        Next j
    Next i

Cleanup:
    ' --- 高速化設定を元に戻す ---
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

    MsgBox "色分けが完了しました（" & UBound(statusData, 1) & "行処理）", vbInformation
    Exit Sub

ErrHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
    Resume Cleanup

End Sub

実務版の特長：

条件を追加する場合： conditions 配列に Array("新しいステータス", RGB(R, G, B)) を1行追加するだけ。コード本体を触る必要がない。

配列による高速化の仕組みについては配列を使ってVBAの処理速度を10倍にする方法で詳しく解説している。

—

応用：期限切れの行だけ色を変える

ステータスだけでなく、日付列の期限切れ判定を組み合わせたい場合はIf文を追加する。

' 実務版コードの For i ループ内に追加
' D列が期限列、今日より前なら薄い赤にする
If IsDate(ws.Cells(i + START_ROW - 1, "D").Value) Then
    If ws.Cells(i + START_ROW - 1, "D").Value < Date Then
        ws.Range(COL_START & (i + START_ROW - 1) & ":" & COL_END & (i + START_ROW - 1)).Interior.Color = RGB(255, 150, 150)
    End If
End If

日付の判定処理をもっと細かく制御したい場合は、日付・曜日の判定で月末処理を自動化する方法も参考になる。

—

落とし穴（5つ）

自分も最初にやらかしたのは3番。ScreenUpdating を False にしたままエラーで止まって、画面が真っ白になって焦った。Ctrl + Break でVBEに戻って手動で True に戻した苦い思い出がある。

—

VBAの自動色分けで処理が遅いときの対処法

「数千行の色分けに数十秒かかる」という場合、原因は1行ずつInterior.Colorを設定していること。対策はScreenUpdating=Falseで画面更新を止め、配列に条件判定結果を格納してからまとめて色を設定する。条件分岐にはSelect Caseを使うとIf文の連続より速い。

VBAの色分けで条件付き書式と競合するときの対処法

「VBAで色を塗ったのに条件付き書式の色が優先されてしまう」という場合、原因は条件付き書式がInterior.Colorより優先されるExcelの仕様だ。VBAで色分けするなら、先に条件付き書式を削除するか、条件付き書式自体をVBAで設定し直す方がよい。

FAQ

Q1. Select CaseとIf〜ElseIfはどちらを使うべき？

A. 条件が3つ以上ならSelect Caseが読みやすい。2つまでならIf〜ElseIfでも問題ない。Select Caseは値の一致判定に強く、コードの見通しがよくなる。詳しくはSelect Caseで複数条件の分岐をスッキリ書く方法を参照。

Q2. セルだけでなく文字色も変えたい場合は？

A. Interior.Color の代わりに Font.Color を使う。例えば ws.Range("A" & i & ":D" & i).Font.Color = RGB(255, 0, 0) で文字が赤になる。背景色と文字色を両方変えることもできる。色の指定方法はセルの背景色・文字色をRGBで自由に操作する方法が参考になる。

Q3. 色分けの結果を元に戻したい場合は？

A. 実行直後なら Ctrl + Z で戻せることが多い。確実に戻すには、全セルの色をリセットするマクロを用意する：ActiveSheet.Cells.Interior.ColorIndex = xlNone。ただし、元々色が付いていたセルも消えるので注意。

Q4. ボタンを押して色分けを実行したい場合は？

A. マクロをシート上のボタンに割り当てれば、VBEを開かずにワンクリックで実行できる。ボタンの作り方はマクロをボタン1つで実行する方法で解説している。

Q5. セル変更時に自動で色分けしたい場合は？

A. Worksheet_Change イベントを使えば、セルの値を変更した瞬間に自動で色が変わる。ただしイベント処理は意図しない動作の原因にもなるので、まずはボタン実行版で動作確認してから導入するのがおすすめ。詳しくはセルの値に応じて行を自動色分けを参照。

—

まとめ

この記事では、複数条件でセルや行を自動色分けするVBAを紹介した。

• 基本版（2条件）：Select Caseで簡潔に色分け
• 実務版（5条件以上）：配列管理 + 高速化で大量データにも対応

条件の追加は配列に1行足すだけ。コード本体を触らなくていいので、条件が増えても安心して運用できる。

これを知ったとき、もっと早くやればよかったと思った。手作業で200行を塗っていたあの時間は何だったのか。

—

次にやりたくなること

• セルの背景色ごとにデータを集計・カウントする方法: 色分けした後に色ごとの件数や合計を集計したい場合
• セルの背景色・文字色をRGBで自由に操作する方法: RGB指定での色操作を詳しく知りたい場合
• Select Caseで複数条件の分岐をスッキリ書く方法: 5つ以上の条件分岐をスッキリ書きたい場合
• セルの値に応じて行を自動色分け — セルが変更された瞬間にリアルタイムで色分けしたい場合はこちら。Worksheet_Changeイベントで自動化できる。
• 条件付き書式をVBAで一括設定・解除する方法 — VBAの色分けではなく条件付き書式で管理したい場合はこちら。VBAとの使い分けも解説。
• Select Caseで複数条件の分岐をスッキリ書く方法 — 色分け以外の場面でも、複数条件の分岐をスッキリ書きたいならこの記事が役立つ。
• 日付・曜日の判定で月末処理を自動化する方法 — 期限切れ判定や月末処理と色分けを組み合わせたい場合はこちら。

—

Part 2: ルーブリック自己採点

【ルーブリック自己採点】

判定：Go（掲載可）

—

Part 3: 自己編集レポート

• 編集サマリー
• 目的：複数条件でセル・行を自動色分けできるようにする
• 結論：Select Case + 配列管理で、条件追加も簡単な色分けマクロが作れる
• 想定読者：ステータスや期限で色分け作業を手動でやっている実務担当者

• 修正方針（最重要3つ）と対応結果
1. 基本版と実務版の差が明確に分かるようにする → 比較表を追加
2. 条件追加の方法を分かりやすく書く → 配列に1行追加するだけと明記
3. ScreenUpdating問題の落とし穴を強調する → 筆者体験談として記載

• 筆者体験チェック結果
• 共感：導入に「手作業で色を塗っていた」エピソードあり → OK
• 実感：「ボタン1つで一瞬」「同僚に便利と言われた」 → OK
• 動機：「同じ手作業に時間を取られている人が楽になれば」 → OK

• 内部リンクチェック結果
• 本数：8本（/006, /047, /092, /014, /036, /067, /013, /006）→ 5本以上OK
• 配置：導入1本、本文中3本、落とし穴1本、FAQ2本、次にやりたくなること4本 → OK
• 過不足：なし

• 掲載可否：Yes

—

Part 4: セルフチェックリスト

• [x] 再現性（前提・貼り付け・実行・確認）
• [x] 安全性（バックアップ・破壊的操作の警告）
• [x] 落とし穴が3つ以上あるか（5つ）
• [x] 「次にやりたくなること」に内部リンクが2本以上あるか（4本）
• [x] 導入に「共感→実感→動機」の3段階が入っているか
• [x] 落とし穴に筆者の失敗談が最低1つ入っているか（ScreenUpdating）
• [x] 実務版コード前後に「実感」の補強が入っているか
• [x] 内部リンクが5本以上あるか（8本）
• [x] FAQ構造化データ（JSON-LD）が出力されているか
• [x] ルーブリック自己採点が完了しているか