vba - 获取 Excel 单元格背景颜色十六进制值

Question

我想使用 UDF 公式或 VBA 获取 Excel 工作表中单元格的背景颜色。
我找到了这个 UDF:

Public Function BColor(r As Range) As Long 
    BColor = r(1).Interior.ColorIndex 
End Function

在单元格中可以这样使用: =BColor(A1)我不熟悉VBA，这会返回一些长值，我想知道是否可以直接获取十六进制值。谢谢!

Answer 1

尝试这个

Function HexCode(Cell As Range) As String
    HexCode = Right("000000" & Hex(Cell.Interior.Color), 6)
End Function