【2026年7月最新】VBA ColorIndex完全ガイド｜56色の色見本一覧・Font/Interior/Tab設定とClaude Code活用術

この記事の内容

1. 01ColorIndexプロパティとは何か：基本の仕組みを理解する
2. 0256色パレット完全一覧（番号・色名・RGB・16進数）
3. 03Fontで文字色を設定・取得する
4. 04Interiorでセルの背景色を設定・取得する
5. 05Tabでシート見出しの色を設定・取得する
6. 06ColorIndex vs Color（RGB直接指定）の違いと使い分け
7. 07実践！業務で使えるVBAカラーコード集
8. 08Claude CodeでVBAコードを自動生成する方法
9. FAQよくある質問

📚 用語解説

ColorIndex（カラーインデックス）：ExcelがRGBではなく、1〜56の整数番号でパレット上の色を参照する仕組み。Font（文字）・Interior（セル背景）・Borders（罫線）・Tab（シート見出し）など各オブジェクトのColorIndexプロパティに番号を代入することで、色を設定できる。

📚 用語解説

xlColorIndexAutomatic：VBAで色を「自動」に戻すための定数。Font.ColorIndex = xlColorIndexAutomatic と書くと、Excelのデフォルトの文字色（通常は黒）に戻る。数値としては -4105 に相当する。

📚 用語解説

xlColorIndexNone：VBAで色を「なし（透明）」に設定するための定数。Interior.ColorIndex = xlColorIndexNone と書くと、セル背景を「塗りつぶしなし」に戻す。数値としては -4142 に相当する。

' セルA1の文字色を赤（ColorIndex=3）に設定
Range("A1").Font.ColorIndex = 3

' セルA1の背景色を黄色（ColorIndex=6）に設定
Range("A1").Interior.ColorIndex = 6

' シート1の見出しの色を青（ColorIndex=5）に設定
Worksheets("Sheet1").Tab.ColorIndex = 5

' セルA1の文字色を自動（デフォルト）に戻す
Range("A1").Font.ColorIndex = xlColorIndexAutomatic

' セルA1の背景色をなし（透明）に戻す
Range("A1").Interior.ColorIndex = xlColorIndexNone

ColorIndex 1〜16は標準色として固定されており、どのExcelバージョンでも同じ色になります。17〜56は「テーマカラー」の影響を受ける場合があり、テーマ変更後に見た目が変わることがあります。コードの安定性を重視するなら、1〜16の標準色を中心に使うのが推奨です。

📚 用語解説

Font オブジェクト：Excelのセルに含まれる文字のフォント設定を管理するオブジェクト。ColorIndex（色）・Size（サイズ）・Bold（太字）・Italic（斜体）・Name（フォント名）などのプロパティを持つ。Range("A1").Font で参照できる。

Sub SetFontColor()
    ' セルA1の文字色を赤（ColorIndex=3）に設定
    Range("A1").Font.ColorIndex = 3

    ' 複数セルに一括で文字色を設定する
    Range("A1:C10").Font.ColorIndex = 3

    ' アクティブセルの文字色を青（ColorIndex=5）に設定
    ActiveCell.Font.ColorIndex = 5

    ' 選択範囲すべての文字色を変更する
    Selection.Font.ColorIndex = 9  ' 暗い赤
End Sub

Sub GetFontColorIndex()
    Dim idx As Long

    ' セルA1の文字色インデックスを取得
    idx = Range("A1").Font.ColorIndex

    ' メッセージボックスに表示
    MsgBox "セルA1の文字色インデックス: " & idx

    ' 取得したインデックスを別の処理に使う
    If idx = 3 Then
        MsgBox "赤色が設定されています"
    ElseIf idx = xlColorIndexAutomatic Then
        MsgBox "自動色（デフォルト）が設定されています"
    End If
End Sub

Sub ResetFontColor()
    ' セルA1の文字色を自動（デフォルト）に戻す
    Range("A1").Font.ColorIndex = xlColorIndexAutomatic

    ' シート全体の文字色をリセット
    Cells.Font.ColorIndex = xlColorIndexAutomatic
End Sub

複数セルに条件付きで色を付けたい場合は、For Each ～ Next でセルをループしながら ColorIndex を条件分岐で変える方法が便利です。たとえば「値が100以上なら赤、50〜99なら黄、49以下なら緑」という信号機カラーコーディングも、If文とColorIndexの組み合わせで数行で実装できます。詳細は第7章で実践コードを紹介します。

📚 用語解説

Interior オブジェクト：Excelのセルの「内側（背景部分）」のフォーマットを管理するオブジェクト。ColorIndex（塗りつぶし色）・Pattern（模様）・PatternColor（模様の色）などのプロパティを持つ。セルの背景色設定はすべてこのオブジェクトを通じて行う。

Sub SetInteriorColor()
    ' セルA1の背景色を黄（ColorIndex=6）に設定
    Range("A1").Interior.ColorIndex = 6

    ' 範囲B2:D10の背景色を明るい緑（ColorIndex=4）に設定
    Range("B2:D10").Interior.ColorIndex = 4

    ' 現在のセルを水色（ColorIndex=41）に設定
    ActiveCell.Interior.ColorIndex = 41

    ' 選択範囲の背景色を薄いオレンジ（ColorIndex=40）に設定
    Selection.Interior.ColorIndex = 40
End Sub

Sub GetInteriorColorIndex()
    Dim idx As Long

    ' セルA1の背景色インデックスを取得
    idx = Range("A1").Interior.ColorIndex

    ' 値の確認
    If idx = xlColorIndexNone Then
        MsgBox "背景色なし（塗りつぶしなし）です"
    Else
        MsgBox "背景色インデックス: " & idx
    End If
End Sub

Sub ClearInteriorColor()
    ' セルA1の背景色をクリア（塗りつぶしなし）
    Range("A1").Interior.ColorIndex = xlColorIndexNone

    ' シート全体の背景色をクリア
    Cells.Interior.ColorIndex = xlColorIndexNone

    ' 別の方法（ColorPatternをnlPatternNoneに設定）
    Range("A1").Interior.Pattern = xlNone
End Sub

ColorIndexに0を代入すると「塗りつぶしなし」にはならず、パレットの先頭に対応する黒色が設定されてしまうことがあります。背景色を透明に戻したい場合は必ず xlColorIndexNone を使うのが正しい方法です。この誤りは初学者がよく踏む罠ですので注意してください。

📚 用語解説

Tab オブジェクト：Excelのワークシートのシート見出し（タブ）を管理するオブジェクト。WorksheetオブジェクトのTabプロパティでアクセスできる。ColorIndexプロパティを持ち、シート見出しの色を設定・取得できる。

Sub SetTabColor()
    ' Sheet1の見出しを赤（ColorIndex=3）に設定
    Worksheets("Sheet1").Tab.ColorIndex = 3

    ' アクティブシートの見出しを青（ColorIndex=5）に設定
    ActiveSheet.Tab.ColorIndex = 5

    ' 複数シートを一括で色設定する
    Dim ws As Worksheet
    Dim idx As Integer
    idx = 3  ' 最初の色（赤から開始）

    For Each ws In Worksheets
        ws.Tab.ColorIndex = idx
        idx = idx + 1
        If idx > 8 Then idx = 3  ' 3〜8でサイクル
    Next ws
End Sub

Sub GetTabColorIndex()
    Dim idx As Long

    ' Sheet1の見出し色インデックスを取得
    idx = Worksheets("Sheet1").Tab.ColorIndex

    MsgBox "Sheet1のタブ色インデックス: " & idx
End Sub

Sub ResetTabColor()
    ' Sheet1の見出し色を自動に戻す
    Worksheets("Sheet1").Tab.ColorIndex = xlColorIndexAutomatic

    ' すべてのシートのタブ色をリセット
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Tab.ColorIndex = xlColorIndexAutomatic
    Next ws
End Sub

たとえば、シートの完成状況に応じてタブ色を自動変更するマクロを作れます。「未着手=灰色（ColorIndex=15）」「作業中=黄（ColorIndex=6）」「完了=緑（ColorIndex=10）」のように、特定のセルの値を読んでタブ色を動的に切り替えるとスプレッドシートの運用が格段に効率化します。

📚 用語解説

Color プロパティ（RGB指定）：RGBの三原色（Red・Green・Blue）それぞれを0〜255で指定して色を設定するプロパティ。たとえば RGB(255, 0, 0) は赤、RGB(0, 128, 0) は緑。ColorIndexが56色に限定されるのに対し、Colorプロパティは約1,677万色（2^24色）を表現できる。

' ===== ColorIndexを使う場合 =====
' 赤（パレット番号3）
Range("A1").Font.ColorIndex = 3
Range("A1").Interior.ColorIndex = 3

' ===== Colorプロパティ（RGB直接指定）を使う場合 =====
' 赤（RGB値で指定）
Range("A1").Font.Color = RGB(255, 0, 0)
Range("A1").Interior.Color = RGB(255, 0, 0)

' ===== 16進数で指定する場合（VBAの&H表記）=====
' 赤（16進数: BBGGRR の逆順に注意！）
Range("A1").Font.Color = &H0000FF   ' ←VBAの16進数はBGR逆順！

' ===== ColorIndexとColorの変換 =====
' ColorIndex番号から対応するRGB値を取得する
Dim palette_color As Long
palette_color = ActiveWorkbook.Colors(3)  ' パレット番号3の実際のRGB値を取得
Dim r As Long, g As Long, b As Long
r = palette_color Mod 256
g = (palette_color \ 256) Mod 256
b = (palette_color \ 65536) Mod 256
MsgBox "R=" & r & " G=" & g & " B=" & b

HTMLやCSSでは #RRGGBB の順番で色を指定しますが、VBAの &H 表記ではなぜか BBGGRR（青・緑・赤の逆順）になります。たとえば赤（RGB: 255,0,0）をVBAで16進数指定する場合は &H0000FF（青緑成分が0、赤成分がFF）となります。HTMLと同じ感覚で書くと色が全く違うものになるため、注意が必要です。

Sub TrafficLightColoring()
    ' A列のデータをチェックして信号機カラーで色付けする
    ' 100以上=緑(10) / 50〜99=黄(6) / 49以下=赤(3)

    Dim ws As Worksheet
    Dim cell As Range
    Dim lastRow As Long

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    For Each cell In ws.Range("A2:A" & lastRow)
        If IsNumeric(cell.Value) Then
            Select Case cell.Value
                Case Is >= 100
                    cell.Interior.ColorIndex = 10   ' 緑
                    cell.Font.ColorIndex = xlColorIndexAutomatic
                Case 50 To 99
                    cell.Interior.ColorIndex = 6    ' 黄
                    cell.Font.ColorIndex = 1        ' 黒（可読性確保）
                Case Else
                    cell.Interior.ColorIndex = 3    ' 赤
                    cell.Font.ColorIndex = 2        ' 白（可読性確保）
            End Select
        End If
    Next cell

    MsgBox "色付け完了！（対象行数: " & lastRow - 1 & "行）"
End Sub

Sub ResetAllColors()
    ' アクティブシート全体の色をリセット
    Dim answer As Integer
    answer = MsgBox("このシートのすべての色設定をリセットしますか？", _
                    vbYesNo + vbQuestion, "色のリセット確認")

    If answer = vbYes Then
        ' 背景色をクリア
        Cells.Interior.ColorIndex = xlColorIndexNone
        ' 文字色を自動に戻す
        Cells.Font.ColorIndex = xlColorIndexAutomatic
        MsgBox "リセット完了！"
    End If
End Sub

Sub ListColoredCells()
    ' 色付きセルを新しいシートに一覧表示する

    Dim srcWs As Worksheet
    Dim rptWs As Worksheet
    Dim cell As Range
    Dim usedRange As Range
    Dim row As Long

    Set srcWs = ActiveSheet

    ' 出力先シートを準備（既存なら削除して再作成）
    On Error Resume Next
    Application.DisplayAlerts = False
    Worksheets("色付きセル一覧").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0

    Set rptWs = Worksheets.Add
    rptWs.Name = "色付きセル一覧"

    ' ヘッダー
    rptWs.Range("A1").Value = "セルアドレス"
    rptWs.Range("B1").Value = "背景色Index"
    rptWs.Range("C1").Value = "文字色Index"
    rptWs.Range("D1").Value = "セルの値"
    rptWs.Range("A1:D1").Font.Bold = True

    row = 2
    Set usedRange = srcWs.UsedRange

    For Each cell In usedRange
        Dim bgIdx As Long
        Dim fontIdx As Long
        bgIdx = cell.Interior.ColorIndex
        fontIdx = cell.Font.ColorIndex

        ' 背景色または文字色が設定されているセルだけ記録
        If bgIdx <> xlColorIndexNone Or fontIdx <> xlColorIndexAutomatic Then
            rptWs.Cells(row, 1).Value = cell.Address
            rptWs.Cells(row, 2).Value = bgIdx
            rptWs.Cells(row, 3).Value = fontIdx
            rptWs.Cells(row, 4).Value = cell.Value
            ' 実際の背景色を一覧にも反映
            If bgIdx <> xlColorIndexNone Then
                rptWs.Cells(row, 1).Interior.ColorIndex = bgIdx
            End If
            row = row + 1
        End If
    Next cell

    If row = 2 Then
        MsgBox "色付きセルは見つかりませんでした。"
    Else
        MsgBox "色付きセル一覧を作成しました。（" & row - 2 & "件）"
    End If
End Sub

📚 用語解説

Claude Code：Anthropicが提供するAIコーディングエージェント。ターミナル（コマンドライン）上で動作し、自然言語の指示でコードの生成・編集・デバッグを自律的に行う。VBA・Python・JavaScript等の言語に対応しており、「VBAで〇〇する処理を書いて」と日本語で指示するだけでコードを出力してくれる。

エラーが出たときも、エラーメッセージとコードをそのままClaude Codeに貼り付けて「このエラーを直して」と伝えるだけで修正案を提示してくれます。「実行時エラー1004」「型が一致しません」などのVBAの典型的なエラーはもちろん、ロジックのバグにも対応できます。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？