VBAでセルの背景色とパターンを自在に操る

セルの 背景色 と パターン を自在に操るテクニックを紹介します

前提知識として、

VBAにはInteriorというオブジェクトがあり、セルの背景色やパターン（縞模様、格子模様など）の視覚的属性を制御することができます。

Interiorオブジェクトの主なプロパティとメソッドを解説し、どのようにカスタマイズできるかを紹介します

Interiorオブジェクトの主なプロパティ

セルの内部の色（背景）を設定するために、以下のようなプロパティがあります

覚える必要はありません。理解する必要もありません。

へぇ～って感じで目を通してください

• Color: RGB色またはExcelの色コードでセルの背景色を設定
• ColorIndex: Excelの既定の色インデックスで背景色を設定
• ThemeColor: セルの背景色をOfficeのテーマ色で設定
• TintAndShade: 色の濃淡を調整します（正の値で明るく、負の値で暗く）
• Pattern: セルの背景パターン（例：縞模様、格子模様など）を設定
• PatternColor: パターンの色をRGB色またはExcelの色コードで設定
• PatternColorIndex: パターンの色をExcelの既定の色インデックスで設定
• PatternTintAndShade: パターンの色の濃淡を設定

プロパティの具体例とサンプル

前で紹介した各プロパティについて解説します

背景色をRGBで設定

具体例: “A1″セルの背景色を赤に設定します

解説: RGB関数を用いて具体的な色を指定します

Sub SetBackgroundColor()
    Range("A1").Interior.Color = RGB(255, 0, 0) ' 赤色
End Sub

RGBカラー 一覧 へ ジャンプ

背景色をインデックス番号で設定

具体例: “A1″セルの背景色をExcelの既定色（例えば、赤）に設定します

解説: ColorIndexはExcelが提供する色のインデックス番号を指定することで色を設定します

例えば、1は黒色に対応します

Sub SetBackgroundByColorIndex()
    Range("A1").Interior.ColorIndex = 1 ' 黒
End Sub

カラーインデックス 一覧 へ ジャンプ

背景色をOfficeのテーマ色で設定

具体例: “A1″セルの背景色をOfficeのテーマ色で設定します

解説: ThemeColorプロパティを使って、Officeのテーマに基づいた色をセルの背景色として設定します

Sub SetThemeColor()
    Range("A1").Interior.ThemeColor = xlThemeColorAccent1
End Sub

背景色の濃淡を調整

具体例: “A1″セルの背景色の濃淡を調整します

解説: TintAndShadeプロパティは指定された色をより明るく（正の値）またはより暗く（負の値）します

値の範囲は-1（最も暗い）から1（最も明るい）です

Sub SetTintAndShade()
    With Range("A1").Interior
        .Color = RGB(255, 0, 0)
        .TintAndShade = -0.5
    End With
End Sub

背景パターンを設定（縞模様、格子模様など）

具体例: “A1″セルに格子模様のパターンを設定します

解説: Patternプロパティでパターンの種類を設定します

Sub SetCellPattern()
    With Range("A1").Interior
        .Pattern = xlChecker
    End With
End Sub

背景パターン 一覧 へ ジャンプ

パターン色をRGBで設定

具体例: “A1″セルのパターン色を青に設定します

解説: PatternColorプロパティを使ってパターン色を設定します

Sub SetPatternColor()
    With Range("A1").Interior
        .Pattern = xlChecker
        .PatternColor = RGB(0, 0, 255) 'パターン色を青
        .Color = RGB(255, 255, 255) '背景色を白
    End With
End Sub

背景パターン 一覧 へ ジャンプ

RGBカラー 一覧 へ ジャンプ

パターン色をインデックス番号で設定

具体例: “A1″セルのパターン色をExcelの既定色に設定します

解説: PatternColorIndexはパターンの色をExcelの色インデックスで設定します

Sub SetPatternColorByIndex()
    With Range("A1").Interior
        .Pattern = xlChecker
        .PatternColorIndex = 5 'パターン色を青
        .Color = RGB(255, 255, 255) '背景色を白
    End With
End Sub

背景パターン 一覧 へ ジャンプ

カラーインデックス 一覧 へ ジャンプ

RGBカラー 一覧 へ ジャンプ

パターン色の濃淡を設定

具体例: “A1″セルのパターンの色の濃淡を調整します

解説: PatternTintAndShadeプロパティはパターンの色をより明るく（正の値）またはより暗く（負の値）調整します

Sub SetPatternTintAndShade()
    With Range("A1").Interior
        .Pattern = xlChecker
        .PatternColorIndex = 5 'パターン色を青
        .PatternTintAndShade = 0.8
        .Color = RGB(255, 255, 255) '背景色を白
    End With
End Sub

RGBカラーコード一覧表

エクセルのカラーパレットを表にまとめます

標準の色

テーマの色

カラーインデックス一覧表

カラーインデックス対応表と、エクセルに再現したサンプルを紹介します

カラーインデックス一覧表

すべての カラーインデックス です

セルに再現するとこんな感じ

カラーサンプルです

背景パターン一覧表

背景パターン対応表と、エクセルに再現した見本を紹介します

パターン一覧表

パターン一覧表です

セルに再現するとこんな感じ