エクセルマニア

VBA セルの塗りつぶし Interior

TOP > VBA・マクロ >  セルの塗りつぶし

セルの塗りつぶし

セルの塗りつぶしには Interiorオブジェクトのプロパティを設定します。
Range("A1").Interior.Color = vbRed
Range("A2").Interior.Color = RGB(0, 255, 0)
Range("A3:A4").Interior.Color = vbBlue
With Range("A5").Interior
    .Pattern = xlPatternGray16
    .PatternColorIndex = 3
End With

実行結果


RGBで指定

Color プロパティに RGB(赤, 緑, 青) の各色を0~255 の値で指定し設定します。
Range("A1").Interior.Color = RGB(255, 255, 0)
色名
RGB(0, 0, 0)
RGB(0, 0, 255)
RGB(0, 255, 0)
シアンRGB(0, 255, 255)
RGB(255, 0, 0)
マゼンタRGB(255, 0, 255)
黄色RGB(255, 255, 0)
RGB(255, 255, 255)

色番号で指定

ColorIndex に色番号を設定します。
Range("A1").Interior.ColorIndex = 6
色番号
1
2
3
明るい緑 4
5
明るい黄色6
マゼンタ7
シアン8
9
10
11
うぐいす12

パターンで指定

Pattern にパターンの種類を設定します。
Range("A1").Interior.Pattern = xlPatternGray8
定数
xlPatternAutomatic
xlPatternChecker
xlPatternCrissCross
xlPatternDown
xlPatternGray16
xlPatternGray25
xlPatternGray50
xlPatternGray75
xlPatternGray8
xlPatternGrid
xlPatternHorizontal
xlPatternLightDown
xlPatternLightHorizontal
xlPatternLightUp
xlPatternLightVertical
xlPatternNone
xlPatternSemiGray75
xlPatternSolid
xlPatternUp
xlPatternVertical
PatternColorIndex に色番号を設定することもできます。
Range("A1").Interior.PatternColorIndex = 6
色番号
1
2
3
明るい緑 4
5
明るい黄色6
マゼンタ7
シアン8
9
10
11
うぐいす12


このエントリーをはてなブックマークに追加