VBA　セルやセル範囲の塗りつぶし

VBAのInteriorは、Excelのセルやセル範囲の塗りつぶし（背景）に関するプロパティやメソッドを操作するためのオブジェクトです。セルの背景色を変更したり、パターンを設定したりする際に使います。

概要
主なプロパティ
色の設定方法
1. 1. .Color プロパティ
2. 2. .ColorIndex プロパティ
パターンの設定
実用例
注意点
まとめ

概要

Interiorはセルの内部（塗りつぶし部分）を表すオブジェクト。
Rangeオブジェクトのプロパティとして使います。
背景色やパターン、透過度などの設定が可能。

主なプロパティ

プロパティ名	型	説明
`.Color`	Long	塗りつぶし色をRGBカラーコードで設定
`.ColorIndex`	Long	塗りつぶし色をExcel標準カラーパレットの番号で設定（1〜56）
`.Pattern`	XlPattern	パターンの種類（塗りつぶしの種類）を指定
`.PatternColor`	Long	パターンの色を設定
`.PatternColorIndex`	Long	パターンの色をカラーパレット番号で指定
`.TintAndShade`	Double	色の明るさ・暗さの調整 (-1.0〜1.0)
`.PatternTintAndShade`	Double	パターン色の明るさ・暗さの調整

色の設定方法

1. .Color プロパティ

RGB関数を使って指定可能。
例：

Range("A1").Interior.Color = RGB(255, 0, 0)  ' 赤色に塗りつぶし

24ビットカラーで指定可能（0〜16,777,215）

2. .ColorIndex プロパティ

Excelの標準カラーパレットの番号で指定（1〜56）
たとえば、3は赤、6は黄色など。
Colorより手軽だが色の種類は限定的。

Range("A1").Interior.ColorIndex = 3  ' 赤色に塗りつぶし

パターンの設定

パターンの種類はXlPattern列挙体で指定します。主なものを以下に示します。

パターン名	値	説明
`xlNone`	-4142	パターンなし（透明）
`xlSolid`	1	単色で塗りつぶし
`xlGray25`	-4124	25%グレーの斜線
`xlGray50`	-4125	50%グレーの斜線
`xlChecker`	9	チェック柄
`xlLightHorizontal`	11	薄い横線
`xlLightVertical`	12	薄い縦線
`xlDiagonalDown`	13	斜め下線
`xlDiagonalUp`	14	斜め上線

例：

Range("A1").Interior.Pattern = xlGray25
Range("A1").Interior.PatternColor = RGB(0, 0, 255)  ' 青色パターン

実用例

1. セルの背景色を赤に変更

Sub SetRedBackground()
    Range("B2").Interior.Color = RGB(255, 0, 0)
End Sub

2. 複数セルにパターン付き塗りつぶし

Sub PatternFillExample()
    With Range("C3:D5").Interior
        .Pattern = xlChecker
        .PatternColor = RGB(0, 128, 0)  ' 緑色パターン
        .Color = RGB(255, 255, 0)       ' 背景黄色
    End With
End Sub

3. 塗りつぶしを解除（透明に戻す）

Range("A1").Interior.Pattern = xlNone

注意点

.ColorIndexはExcelのカラーパレットによる番号なので環境によって色が微妙に異なる場合あり。
.ColorはRGB指定なので、より正確に色を指定可能。
.PatternをxlNoneにすると塗りつぶしは透明になります。

まとめ

プロパティ	用途
`.Color`	RGBカラーコードで色を指定
`.ColorIndex`	カラーパレット番号で色指定
`.Pattern`	塗りつぶしパターンを設定
`.PatternColor`	パターンの色を指定
`.TintAndShade`	色の明るさ/暗さを調整