VBA – セルの塗りつぶし色をRGBに分解する方法

ExcelのVBAを使用して、セルの塗りつぶし色をRGBに分解する方法について解説します。この手法は、Excel上でのデータ処理や可視化において、セルの色情報を具体的な数値で取得する必要がある場合に有用です。記事では、サンプルコードを交えながらこのVBA関数の詳細な解説を行います。

実装

Sub test()
    MsgBox Color2RGB(ActiveCell.Interior.Color)
End Sub

' セルの塗りつぶし色をRGBに分解
Function Color2RGB(ColorNumber As Long) As String
    Dim R As Long, G As Long, B As Long
    R = ColorNumber Mod 256
    G = ColorNumber \ 256 Mod 256
    B = ColorNumber \ 256 \ 256 Mod 256
    Color2RGB = CStr(R) & "," & CStr(G) & "," & CStr(B)
End Function

解説

Sub test()
    MsgBox Color2RGB(ActiveCell.Interior.Color)
End Sub

このサブルーチンは、アクティブなセルの塗りつぶし色をRGBに変換し、MsgBox を使ってポップアップウィンドウに表示します。

Function Color2RGB(ColorNumber As Long) As String
    Dim R As Long, G As Long, B As Long
    R = ColorNumber Mod 256
    G = ColorNumber \ 256 Mod 256
    B = ColorNumber \ 256 \ 256 Mod 256
    Color2RGB = CStr(R) & "," & CStr(G) & "," & CStr(B)
End Function

この関数は、与えられた ColorNumber をRGBに変換します。具体的な処理は以下の通りです。