セルの塗りつぶされた色のRGBを求める方法

これ↓↓

Sub test_RGB()

    Dim myColor As Long
    Dim R, G, B
    
    myColor = Range("A1").Interior.Color
    
    R = myColor Mod 256
    G = Int(myColor / 256) Mod 256
    B = Int(myColor / 256 / 256)
    
    Debug.Print R, G, B

End Sub

微妙な色で塗りつぶされた色もこれで、RGBの数値を取ってこれます。
また、Interior.ColorIndexはエクセルのバージョンで挙動が異なるらしいです。
なのでRGB使いましょう！

備忘録でした。(^^)/~~~