Excel VBAの覚え書（[セルの書式設定]-[色](Colorプロパティ、ColorIndexプロパティ)編）

2022-03-162024-01-07

■Colorプロパティにおける色の指定方法

Colorプロパティは、Bordersコレクション、Borderオブジェクト、Interiorオブジェクト、Fontオブジェクト等、多くのオブジェクトで提供されているプロパティですが、Microsoftのドキュメントを読むと、「RGB関数を使用して色の値を指定」というようなことしか書かれていないので、事実関係を整理しておきたいと思います。

RGB値とは

RGB値は、光の3原色である「赤(R)」「緑(G)」「青(B)」をそれぞれ1バイト(合計3バイト)の数値で表した値です。

ですが、筆者が使用しているPC環境はWindowsなので、リトル・エンディアンとなっており、実際のバイト順序は「青(B)」→「緑(G)」→「赤(R)」の順になっています。

RGB関数を使用したColorプロパティの指定方法

色を「赤」に設定したい場合、Colorプロパティで指定したい値は「R=255(&HFF),G=0(&H00),B=0(&H00)」ですので、RGB関数を使用すると以下のようになります。

(RGB関数を使用し、10進数で指定)

1. obj.Color = RGB(255, 0, 0)

(RGB関数を使用し、16進数で指定)

1. obj.Color = RGB(&HFF, &H0, &H0)

RGB関数を使用しないColorプロパティの指定方法

前項と同様に色を「赤(R=255(&HFF),G=0(&H00),B=0(&H00))」に設定したい場合、Colorプロパティで指定する値は以下の計算式で求めます。

• RGB値 = Rの値 ＋ Gの値 × 256 ＋ Bの値 × 65536

(RGB関数を使用せず、10進数で指定)

1. obj.Color = 255

(RGB関数を使用せず、16進数で指定)

1. obj.Color = &HFF

Colorプロパティの値からRの値、Gの値、Bの値を取出す方法

Colorプロパティで取得したRGB値(Long型の整数値)は、以下の計算式でRの値、Gの値、Bの値に分解できます。

• Rの値 = RGB値 Mod 256
• Gの値 = Int(RGB値 / 256) Mod 256
• Bの値 = Int(RGB値 / 65536)

サンプル・プログラム～塗りつぶしたセルのRGB値を表示する処理

予め塗りつぶしておいたA1セルのColorプロパティを参照し、Rの値、Gの値、Bの値、RGB値を表示するExcelツールです。

1. Dim sht As Worksheet
2. Dim RGB As Long
4. Private Sub Sample1()
5.     Set sht = ActiveSheet
6.     RGB = sht.Range(“A1").Interior.Color
7.     sht.Range(“B1") = RGB Mod 256
8.     sht.Range(“C1") = Int(RGB / 256) Mod 256
9.     sht.Range(“D1") = Int(RGB / 65536)
10.     sht.Range(“E1") = RGB
11.     sht.Range(“B2") = Right(“0" & Hex(sht.Range(“B1")), 2)
12.     sht.Range(“C2") = Right(“0" & Hex(sht.Range(“C1")), 2)
13.     sht.Range(“D2") = Right(“0" & Hex(sht.Range(“D1")), 2)
14.     sht.Range(“E2") = Right(“00000" & Hex(sht.Range(“E1")), 6)
15. End Sub

XlRgbColor列挙体を使用したColorプロパティの指定方法

XlRgbColor列挙体で144色のRGB値が定義されていますので、この定数を使用してColorプロパティを設定することができます。

■ColorIndexプロパティにおける色の指定方法

ColorIndexプロパティは、Bordersコレクション、Borderオブジェクト、Interiorオブジェクト、Fontオブジェクト等、多くのオブジェクトで提供されているプロパティですが、Microsoftのドキュメントを読むと、「カラー・パレットのインデックス、または定数で指定」というような記載になっています。

ここで『定数』というのはXlColorIndex列挙体を指しており、定義されている値はxlColorIndexAutomatic(自動設定)とxlColorIndexNone(色なし)の2つしかありませんので、次項ではカラー・パレットについて説明します。

Excelのカラー・パレットとは

Excelのカラー・パレットには、標準で下表の56色が定義されていますので、以下のコーディング例のようにインデックス番号を指定するだけで、色を設定することができます。

1. obj.ColorIndex = インデックス番号

(カラー・パレットで定義されている色)

サンプル・プログラム～カラー・パレットで定義された色のRGB値を表示する処理

ColorIndexプロパティにインデックス番号を指定してA列のセルを塗りつぶした後、ColorプロパティでRGB値を取出し、R、G、B別に値を表示するExcelツールです。
（前項の表は、このツールの出力結果を成形したものです）

1. Dim sht As Worksheet
2. Dim wRGB As Long
3. Dim R, G, B As Integer
4. Dim i, rcnt As Integer
6. Private Sub Sample2()
7.     Set sht = ActiveSheet
8.     sht.Cells.Clear
9.     sht.Range(“A1") = “Color"
10.     sht.Range(“B1") = “Index"
11.     sht.Range(“C1") = “R(dec)"
12.     sht.Range(“D1") = “G(dec)"
13.     sht.Range(“E1") = “B(dec)"
14.     sht.Range(“F1") = “R(hex)"
15.     sht.Range(“G1") = “G(hex)"
16.     sht.Range(“H1") = “B(hex)"
17.     sht.Range(“I1") = “RGB(hex)"
18.     sht.Range(“A1:I1").Interior.Color = RGB(128, 128, 128)
19.     sht.Range(“A1:I1").Font.Bold = True
20.     sht.Range(“A1:I1").HorizontalAlignment = xlCenter
21.     rcnt = 1
22.     For i = 1 To 56
23.         rcnt = rcnt + 1
24.         sht.Cells(rcnt, 1).Interior.ColorIndex = i
25.         sht.Cells(rcnt, 2) = i
26.         wRGB = sht.Cells(rcnt, 1).Interior.Color
27.         R = wRGB Mod 256
28.         G = Int(wRGB / 256) Mod 256
29.         B = Int(wRGB / 65536)
30.         sht.Cells(rcnt, 3) = R
31.         sht.Cells(rcnt, 4) = G
32.         sht.Cells(rcnt, 5) = B
33.         sht.Cells(rcnt, 6) = “&H" & Right(“0" & Hex(R), 2)
34.         sht.Cells(rcnt, 7) = “&H" & Right(“0" & Hex(G), 2)
35.         sht.Cells(rcnt, 8) = “&H" & Right(“0" & Hex(B), 2)
36.         sht.Cells(rcnt, 9) = “&H" & Right(“0" & Hex(R), 2) & Right(“0" & Hex(G), 2) & Right(“0" & Hex(B), 2)
37.     Next i
38. End Sub