在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