Sub セルの色_背景の色_RGBを取得する()

    セル = Range("A1").Interior.Color
    
    'セル = 16777215 という色の数字を取得し、各計算に繋げる
    
    R = セル Mod 256
    G = Int(セル / 256) Mod 256
    B = Int(セル / 256 / 256)
    
    MsgBox "セルのRGBは" & vbCrLf & _
           "R:" & R & vbCrLf & _
           "G:" & G & vbCrLf & _
           "B:" & B

End Sub