即効テクニック |
サンプルマクロは、アクティヴセルの背景色を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