excel - 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