B = floor(colorInt / (256*256))
G = floor((colorInt - B*256*256)/256)
R = colorInt - B*256*256 - G*256
0
要使用Excel格式化RGB颜色:
Const color = vbMagenta
Dim r&, g&, b&
r = color And 255
g = color \ 256 And 255
b = color \ 65536
Debug.Print Format(r * 1000000 + g * 1000& + b, "000,000,000")
2 回答
您可以使用类似的东西将此“colorInt”转换为RGB
要使用Excel格式化RGB颜色: