Excelのセル背景色に指定された色コードを確認するマクロ

▶ in ExcelVBA posted 2016.04.20 Wednesday / 04:58

Excelのセル背景色を、メッセージボックスで表示させるVBAの備忘録です。


確認したいセルをアクティブにして実行すると、10進数・16進数で表示します。

 

2016-04-20_VBA




Sub セルの背景色確認()

'アクティブセルの背景色の色コードを表示する
Dim R As Long
Dim G As Long
Dim B As Long
Dim Color As Long
Dim RGB

Color = ActiveCell.Interior.Color

R = Color Mod 256
G = Int(Color / 256) Mod 256
B = Int(Color / 256 / 256)

'10進数
RGB = "RGB(" & R & ", " & G & ", " & B & ")"
MsgBox RGB

'16進数
MsgBox "#" & Right("0" & Hex(R), 2) & _
Right("0" & Hex(G), 2) & _
Right("0" & Hex(B), 2)

End Sub



Trackbacks

Trackback URL : http://long-distance.jp/sb/sb.cgi/56


PAGE TOP