セルの文字色を指定するには、FontオブジェクトのColorプロパティやColorIndexプロパティを使います。
セルの背景色を指定するにはInteriorオブジェクトを取得して、ColorプロパティやColorIndexプロパティで指定します。
サンプルデータ入力用のコード
次のコードを実行すると、データが入力できます。セル幅は調整してください。
Sub データ5531_d()
Range("A1") = "売上表"
Range("A3") = "日付"
Range("B3") = "分類"
Range("C3") = "品名"
Range("D3") = "単価"
Range("E3") = "個数"
Range("F3") = "合計"
Range("A4") = "2021/10/2"
Range("B4") = "C2"
Range("C4") = "メモ帳"
Range("D4") = 3500
Range("E4") = 12
Range("F4") = "=D4 * E4"
Range("A5") = "2021/10/3"
Range("B5") = "S1"
Range("C5") = "名刺セット"
Range("D5") = 4500
Range("E5") = 10
Range("F5") = "=D5 * E5"
Range("A6") = "2021/10/4"
Range("B6") = "D1"
Range("C6") = "ネームペン"
Range("D6") = 2200
Range("E6") = 12
Range("F6") = "=D6 * E6"
Range("A7") = "2021/10/5"
Range("B7") = "S1"
Range("C7") = "名刺セット"
Range("D7") = 4500
Range("E7") = 8
Range("F7") = "=D7 * E7"
End Subセルの文字色やセルの背景色を設定する
セルA3～セルF3のフォントの色と背景色を設定するマクロです。
同じマクロでも、コードの書き方は一つではありませんが、実行結果は同じになります。
Sub サンプル5002_1()
With Range("A3:F3")
.Font.Color = RGB(0, 112, 192)
.Interior.Color = RGB(146, 208, 80)
.Font.ColorIndex = 3
.Interior.ColorIndex = 20
End With
End Subコード解説
Interior.Color = RGB(146, 208, 80)
’セルの背景色をRGB関数で指定します。
Font.ColorIndex = 3
’ColorIndex番号 で文字色を「赤」にします。
Interior.ColorIndex = 20
’ColorIndex番号で背景色を「薄い青」にします。
RGB色の値
| 色 名 | カラーインデックス | 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乗）で計算します。
色の指定は、カラーインデックスを使うと簡単です。
シートのタブの色を設定する
セルの色ではなくワークシートのタブの色を設定するには、次のようにコードを書きます。
Sub サンプル5002_2()
ActiveSheet.Tab.ColorIndex = 4
ActiveSheet.Tab.Color = RGB(0, 255, 0)
End SubActiveSheet.Tab.ColorIndex = 4
’ColorIndex番号で、タブの色を緑にします。
ActiveSheet.Tab.Color = RGB(0, 255, 0)
’RGB関数で緑を指定します。
まとめ
セルの文字色を指定するには、FontオブジェクトのColorプロパティやColorIndexプロパティを使います。
セルの背景色を指定するにはInteriorオブジェクトを取得して、ColorプロパティやColorIndexプロパティで指定します。