選択したセルの背景色をRGB(#RRGGBB)形式で取得する
サンプルマクロは、アクティヴセルの背景色をRGB(#RRGGBB)形式で取得します。
Sub Sample()
Dim myR As Long
Dim myG As Long
Dim myB As Long
Dim myColor As Long
myColor = ActiveCell.Interior.Color
myR = myColor Mod 256
myG = Int(myColor / 256) Mod 256
myB = Int(myColor / 256 / 256)
MsgBox "#" & Right("0" & Hex(myR), 2) & _
Right("0" & Hex(myG), 2) & _
Right("0" & Hex(myB), 2)
End Sub
