使用VBA获取单元格背景色中红色、绿色和蓝色的数值

Function Red(rng) As Long
    Dim c As Long
    Dim r As Long
    c = rng.Interior.Color
    r = c Mod 256
    Red = r
End Function
Function Green(rng) As Long
    Dim c As Long
    Dim g As Long
    c = rng.Interior.Color
    g = c \ 256 Mod 256
    Green = g
End Function
Function Blue(rng) As Long
    Dim c As Long
    Dim b As Long
    c = rng.Interior.Color
    b = c \ 65536 Mod 256
    Blue = b
End Function