VBA 解析Color的RGB值

在VBA中颜色是以OleColor的形式存在的，如果想要RGB的值需要经过一定的装换。代码如下：

Sub ColorAlert(Color As Variant)
    Dim R%, G%, B%
    
    R = Color Mod 256
    G = Color \ 256 Mod 256
    B = Color \ 256 \ 256 Mod 256
    
    MsgBox "R : " & CStr(R) & " G : " & CStr(G) & " B : " & CStr(B)
End Sub