Excelのセルの背景色のRGB値をVBAを使って割り出すサンプルコード
今回はExcelのセルの背景色のRGB値をVBAを使って割り出すサンプルコードをご紹介いたします。
Excelのセルの背景色のRGB値をVBAを使って割り出すサンプルコード
先にサンプルコードのご紹介をいたします。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub test1() Dim r As Long Dim g As Long Dim b As Long Dim n As Long n = Range("A1").Interior.Color r = n / 256 ^ 0 Mod 256 g = n / 256 ^ 1 Mod 256 b = n / 256 ^ 2 Mod 256 Range("A2") = r Range("B2") = g Range("C2") = b End Sub |
A1セルの背景色のRGB値について、A2セルにRed、B2セルにGreen、C2セルにBlueの値を出力しております。
解説
VBAの場合では、例えば上記のサンプルコードで言うnの値は、
赤の数値 + 緑の数値 * 256 + 青の数値 * 256 * 256
の値で表現されることになります。
すなわち、赤の値は256で割った余りとなり、緑の値は256で割った整数を256で割った余り、青の値は256 * 2で割った整数を256で割った余りとなるのですね。
よって、上記のサンプルコードでRGB値を各セルに出力することが可能です。
終わりに
今回はExcelのセルの背景色のRGB値をVBAを使って割り出すサンプルコードをご紹介いたしました。