如何用VBA获取Excel选中单元格字体颜色代码/十六进制值？适配问题求解

问题核心原因 #

你代码失效的关键在于误用了属性：Font.TextColor是Word VBA的Font对象属性，Excel VBA中获取单元格字体颜色必须使用Font.Color属性。

修正后的字体颜色获取子程序 #

直接替换错误属性即可，你的ConvertLongToHex转换函数可以直接复用（该函数对填充色、字体色的长整型颜色值通用）：

Sub FontClipbdCopyHex()
    Dim FontColor As Long
    Dim FontHex As String

    FontColor = ActiveCell.Font.Color
    FontHex = ConvertLongToHex(FontColor)
    Clipboard FontHex
    Debug.Print FontHex
End Sub

完整可用代码集合 #

获取填充颜色十六进制值的子程序 #

Sub ShadClipbdCopyHex_CtlSftT()
    Dim ShadeColor As Long
    Dim ShadeHex As String

    ShadeColor = ActiveCell.Interior.Color
    ShadeHex = ConvertLongToHex(ShadeColor)
    Clipboard ShadeHex
    Debug.Print ShadeHex
End Sub

长整型转十六进制颜色的通用函数 #

Public Function ConvertLongToHex(lColor As Long) As String
    Dim sRed As String, sGreen As String, sBlue As String
    sRed = Right("00" & Hex(lColor Mod 256), 2)
    sGreen = Right("00" & Hex(lColor \ 2 ^ 8 Mod 256), 2)
    sBlue = Right("00" & Hex(lColor \ 2 ^ 16 Mod 256), 2)
    ConvertLongToHex = "#" & sRed & sGreen & sBlue
End Function

获取字体颜色十六进制值的子程序（修正版） #

Sub FontClipbdCopyHex()
    Dim FontColor As Long
    Dim FontHex As String

    FontColor = ActiveCell.Font.Color
    FontHex = ConvertLongToHex(FontColor)
    Clipboard FontHex
    Debug.Print FontHex
End Sub

补充提示 #

• 若需处理多个选中单元格，可遍历Selection.Cells集合逐个获取颜色；
• 确保你的模块中已定义Clipboard函数（原有代码已使用，假设该功能正常）；
• Excel中Font.Color与Interior.Color返回的长整型颜色值格式一致，因此转换函数无需修改。

内容的提问来源于stack exchange，提问作者CDuv