我想确定当前单元格的颜色。当我
Debug.Print ActiveCell.Font.Color
我拿回一个电话。在这种情况下
,如果我只有这个数字,我将如何确定该颜色的正确RGB值24832 ?
是否有一些将int转换为RGB(0,0,0)的函数?
没有内置的将VBA转换为RGB的功能,您需要自己编写。
试试这个
Function ColorToRgb(Color As Variant) As Variant
' return #Value Error for invalid colors
If Color < 0 Or Color > 16777215 Then
ColorToRgb = CVErr(xlErrValue)
End If
ReDim Res(1 To 3) As Variant
' Treating Color as a 24 bit number
Res(1) = Color Mod 256 ' Red value: left most 8 bits
Res(2) = Color \ 256 Mod 256 ' Green value: middle 8 bits
Res(3) = Color \ 65536 Mod 256 ' Blue value: right most 8 bits
ColorToRgb = Res
End Function
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句