Excel VBAで、セルの背景色を設定する

セルの背景色は、Interior.Color で設定します。



Homeに戻る > Excel セルのTipsへ

色はRGB関数かColorIndexを使用します。

RGB関数は、赤(Red)、緑(Green)、青(Blue)をそれぞれ0~255の整数で設定します。

例えば下記のようになります。

Red Green Blue
255 0 0
0 255 0
0 0 255
0 0 0
255 255 255
シアン 0 255 255
マゼンタ 255 0 255
黄色 255 255 0

ColorIndexは下記のようになります。

Color
Index
RGB関数 16進
1 RGB(0,0,0) &H000000
2 RGB(255,255,255) &HFFFFFF
3 RGB(255,0,0) &H0000FF
4 RGB(0,255,0) &H00FF00
5 RGB(0,0,255) &HFF0000
6 RGB(255,255,0) &H00FFFF
7 RGB(255,0,255) &HFF00FF
8 RGB(0,255,255) &HFFFF00
9 RGB(128,0,0) &H000080
10 RGB(0,128,0) &H008000
11 RGB(0,0,128) &H800000
12 RGB(128,128,0) &H008080
13 RGB(128,0,128) &H800080
14 RGB(0,128,128) &H808000
15 RGB(192,192,192) &HC0C0C0
16 RGB(128,128,128) &H808080
17 RGB(153,153,255) &HFF9999
18 RGB(153,51,102) &H663399
19 RGB(255,255,204) &HCCFFFF
20 RGB(204,255,255) &HFFFFCC
21 RGB(102,0,102) &H660066
22 RGB(255,128,128) &H8080FF
23 RGB(0,102,204) &HCC6600
24 RGB(204,204,255) &HFFCCCC
25 RGB(0,0,128) &H800000
26 RGB(255,0,255) &HFF00FF
27 RGB(255,255,0) &H00FFFF
28 RGB(0,255,255) &HFFFF00
29 RGB(128,0,128) &H800080
30 RGB(128,0,0) &H000080
31 RGB(0,128,128) &H808000
32 RGB(0,0,255) &HFF0000
33 RGB(0,204,255) &HFFCC00
34 RGB(204,255,255) &HFFFFCC
35 RGB(204,255,204) &HCCFFCC
36 RGB(255,255,153) &H99FFFF
37 RGB(153,204,255) &HFFCC99
38 RGB(255,153,204) &HCC99FF
39 RGB(204,153,255) &HFF99CC
40 RGB(255,204,153) &H99CCFF
41 RGB(51,102,255) &HFF6633
42 RGB(51,204,204) &HCCCC33
43 RGB(153,204,0) &H00CC99
44 RGB(255,204,0) &H00CCFF
45 RGB(255,153,0) &H0099FF
46 RGB(255,102,0) &H0066FF
47 RGB(102,102,153) &H996666
48 RGB(150,150,150) &H969696
49 RGB(0,51,102) &H663300
50 RGB(51,153,102) &H669933
51 RGB(0,51,0) &H003300
52 RGB(51,51,0) &H003333
53 RGB(153,51,0) &H003399
54 RGB(153,51,102) &H663399
55 RGB(51,51,153) &H993333
56 RGB(51,51,51) &H333333

背景色の応用例として「一行おき・一列おきに背景色を変更する」を掲載しています。


セルの背景色を設定するVBA

Excel標準モジュールコード

Public Sub SetCellBackColor()
    'カーソルがあるセルを赤色に
    ActiveCell.Interior.Color = RGB(255, 0, 0)
    'C2を緑色に
    Range("C2").Interior.Color = RGB(0, 255, 0)
    'E列、F列 を青色に
    Range("E:F").Interior.Color = RGB(0, 0, 255)
End Sub


実行前のシート

実行前のシート

Excel VBA実行結果

VBAの通り、カーソルがあるB2セルが赤色、C2セルが緑色、E列とF列が青色の背景色で表示されました。

Excel VBA実行結果



Homeに戻る > Excel セルのTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved