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

▶ in ExcelVBA　posted 2016.04.20 Wednesday / 04:58

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

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





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