セルの塗りつぶし
セルの塗りつぶしには 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
実行結果
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 |
|---|
