セルの文字色を指定するには、FontオブジェクトのColorプロパティやColorIndexプロパティを使います。
セルの背景色を指定するにはInteriorオブジェクトを取得して、ColorプロパティやColorIndexプロパティで指定します。
セルの文字色やセルの背景色を設定する
セルA3～セルF3のフォントの色と背景色を設定するマクロです。
コードの書き方は一つではありません。同じ結果になります。
■ コード内を「Wクリック」で選択できます。
Sub サンプル5002_1()
<pre><code>With Range("A3:F3")
.Font.Color = RGB(0, 112, 192)
.Interior.Color = RGB(146, 208, 80)
.Font.ColorIndex = 3
.Interior.ColorIndex = 20
End With</code></pre>
End Sub
• With Range(“A3:F3”)
’Withステートメント でセルA3～セルF3を指定します。
• Font.Color = RGB(0, 112, 192)
’文字の色を RGB関数 で指定します。
• Interior.Color = RGB(146, 208, 80)
’セルの背景色をRGB関数で指定します。
• Font.ColorIndex = 3
’ColorIndex番号 で文字色を「赤」にします。
• Interior.ColorIndex = 20
’ColorIndex番号で背景色を「薄い青」にします。
■ 色の値
| 色 名 | カラーインデックス | RGB関数 | RGB関数の戻り値 |
|---|---|---|---|
| 黒 | 1 | RGB(0,0,0) | 0 |
| 赤 | 3 | RGB(255,0,0) | 255 |
| 緑 | 4 | RGB(0,255,0) | 65280 |
| 青 | 5 | RGB(0,0,255) | 16711680 |
| 黄色 | 6 | RGB(255,255,0) | 65535 |
| シアン | 8 | RGB(0,255,255) | 16776960 |
| マゼンタ | 7 | RGB(255,0,255) | 16711935 |
| 白 | 2 | RGB(255,255,255) | 16777215 |
■ RGB関数の戻り値の計算方法
RGB（赤、緑、青）として
戻り値＝（赤の数値）+（緑の数値×256）+（青の数値×256の2乗）で計算します。
色の指定は カラーインデックス を使うと簡単です。
シートのタブの色を設定する
セルの色ではなくワークシートのタブの色を設定するには、次のようにコードを書きます。
コードの書き方は一つではありません。同じ結果になります。
■ コード内を「Wクリック」で選択できます。
Sub サンプル5002_2() <pre><code>ActiveSheet.Tab.ColorIndex = 4 ActiveSheet.Tab.Color = RGB(0, 255, 0)</code></pre> End Sub
• ActiveSheet.Tab.ColorIndex = 4
’ColorIndex番号で、タブの色を緑にします。
• ActiveSheet.Tab.Color = RGB(0, 255, 0)
’RGB関数で緑を指定します。
以上で「セルの文字色や背景色を設定するマクロ」の説明を終わります。