セル背景色制御

VBAを用いたセル背景色の色彩制御についての記事です。  

• 状況  

EXCELのセル背景色を数値条件別に色彩を変更し、色彩の濃淡(グラデーション)で数字の羅列の強弱を可視化したい  

• 実行

任意のセル背景色の色番号取得  

RGB番号の取得   

取得色番号でセル背景色塗りつぶし(再現確認)   

• シート画像

• VBA記述  

Sub RGB()  

i = 2  
    Do  
    mycolor = Cells( i, 3).Interior.Color  
    R = mycolor Mod 256  
    G = Int(mycolor / 256) Mod 256  
    B = Int(mycolor / 256*256) Mod 256  

    Cells(i, 4) = R  
    Cells(i, 5) = G  
    Cells(i, 6) = B  
    Cells(i, 7) = mycolor  
    Cells(i, 8) = R + (G * 256) + (B * 256^2)  
    Cells(i 9).Interior.Color = Cells(i, 8)  
    i = i + 1  
    Loop Until Cels(i, 2) = ""  
End Sub