VBAでExcelのセルに色を塗るにはColorIndexプロパティ、またはColorプロパティを使用すると簡単に着色できます。
ColorIndexまたはColorを使用してセルに色を塗る
セルに色を塗るにはRange.Interior.ColorIndex、またはRange.Interior.Colorに整数を入力します。
下記のコードではSheet1のA1をColorIndexプロパティを使用して黒に着色しA2をColorプロパティを使用して黄色に着色しています。
ColorプロパティはRGB関数と組み合わせて使用します。
Sub PaintRange()
'ColorIndexプロパティを使用した方法
'A1セルを黒に塗る
ThisWorkbook.Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 1
'Colorプロパティを使用した方法
'A2セルを黄色に塗る
ThisWorkbook.Worksheets("Sheet1").Range("A2").Interior.Color = RGB(255, 255, 0)
End Sub
各色とColorIndex、Colorの対応表
各色とColorIndexプロパティ、Colorプロパティに設定するRGB関数の対応は下記になります。
| 色 | ColorIndex | RGB関数 |
|---|---|---|
| 白（塗りつぶしなし） | 0 | RGB(255, 255, 255) |
| 黒 | 1 | RGB(0, 0, 0) |
| 白 | 2 | RGB(255, 255, 255) |
| 赤 | 3 | RGB(255, 0, 0) |
| 緑 | 4 | RGB(0, 255, 0) |
| 青 | 5 | RGB(0, 0, 255) |
| 黄色 | 6 | RGB(255, 255, 0) |
| マゼンタ（ピンク） | 7 | RGB(255, 0, 255) |
| シアン（水色） | 8 | RGB(0, 255, 255) |
| 濃い赤 | 9 | RGB(128, 0, 0) |
| 濃い緑 | 10 | RGB(0, 128, 0) |
| 濃い青（紺） | 11 | RGB(0, 0, 128) |
| オリーブ | 12 | RGB(128, 128, 0) |
| 紫 | 13 | RGB(128, 0, 128) |
| 青緑 | 14 | RGB(0, 128, 128) |
| 明るい灰（シルバー） | 15 | RGB(192, 192, 192) |
| 灰（グレー） | 16 | RGB(128, 128, 128) |
| 薄い青紫 | 17 | RGB(153, 153, 255) |
| ローズ | 18 | RGB(153, 51, 102) |
| 淡い黄色 | 19 | RGB(255, 255, 204) |
| 淡い水色 | 20 | RGB(204, 255, 255) |
| 濃い紫 | 21 | RGB(102, 0, 102) |
| 薄い赤 | 22 | RGB(255, 128, 128) |
| 青 | 23 | RGB(0, 102, 204) |
| 淡い紫 | 24 | RGB(204, 204, 255) |
| 濃い青 | 25 | RGB(0, 0, 128) |
| ピンク（マゼンタ） | 26 | RGB(255, 0, 255) |
| 黄色 | 27 | RGB(255, 255, 0) |
| 水色（シアン） | 28 | RGB(0, 255, 255) |
| 紫 | 29 | RGB(128, 0, 128) |
| 濃い赤 | 30 | RGB(128, 0, 0) |
| 青緑 | 31 | RGB(0, 128, 128) |
| 青 | 32 | RGB(0, 0, 255) |
| 空色 | 33 | RGB(0, 204, 255) |
| 淡い水色 | 34 | RGB(204, 255, 255) |
| 淡い緑 | 35 | RGB(204, 255, 204) |
| 淡い黄色 | 36 | RGB(255, 255, 153) |
| 淡い青 | 37 | RGB(153, 204, 255) |
| ピンク | 38 | RGB(255, 153, 204) |
| 薄紫 | 39 | RGB(204, 153, 255) |
| ベージュ | 40 | RGB(255, 204, 153) |
| 青 | 41 | RGB(51, 102, 255) |
| 青緑 | 42 | RGB(51, 204, 204) |
| 黄緑 | 43 | RGB(153, 204, 0) |
| 琥珀色 | 44 | RGB(255, 204, 0) |
| オレンジ | 45 | RGB(255, 153, 0) |
| 濃いオレンジ | 46 | RGB(255, 102, 0) |
| ブルーグレー | 47 | RGB(102, 102, 153) |
| 灰 | 48 | RGB(150, 150, 150) |
| 濃紺 | 49 | RGB(0, 51, 102) |
| 緑 | 50 | RGB(51, 153, 102) |
| 濃い緑 | 51 | RGB(0, 51, 0) |
| 墨色 | 52 | RGB(51, 51, 0) |
| 茶色 | 53 | RGB(153, 51, 0) |
| 濃いローズ | 54 | RGB(153, 51, 102) |
| 濃い青紫 | 55 | RGB(51, 51, 153) |
| 濃い灰 | 56 | RGB(51, 51, 51) |