VBA セルの背景色（RGB）を取得する

　　RGBとは、色の表現方式の一つで、赤（Red）、緑（Green）、青（Blue）の配合比率を変化させて、すべての色を表現する方式です。Excelでは、RGB関数を使ってセルの背景色など色を指定することが多いです。今日は、セルの背景色などを、RGB形式で取得する方法を見てみましょう。

 

セルの背景色（RGB）を取得する

 

Sub test()

　　’セルの背景色（RGB）を取得する

 

    Dim myR As Long
    Dim myG As Long
    Dim myB As Long
    Dim MyColor As Long
    
    MyColor = ActiveCell.Interior.Color
    
    myR = MyColor Mod 256　　　　　　　　　’256で割った余りを取得
    myG = Int(MyColor / 256) Mod 256　　 ’256で割った整数商で、256で割った余りを取得
    myB = Int(MyColor / 256 / 256)　　　　 ’256で2回割った整数商を取得
    

    ’右隣のセルにRGBを出力
    ActiveCell.Offset(0, 1) = "RGB(" & myR & "," & myG & "," & myB & ")"

 

End Sub

 

実行結果

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

 

関連記事