Visual Basic Excel 字体颜色

Question

我想确定当前单元格的颜色。当我

Debug.Print ActiveCell.Font.Color

我取回一个号码。在这种情况下 24832
鉴于我只有这个数字，我如何确定这种颜色的正确 RGB 值？
是否有一些函数可以将 int 转换为 RGB(0,0,0)？

Answer 1

没有内置的 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