嘿，我来帮你搞定Excel/VBA里颜色代码转HTML十六进制的问题！不管你是要处理十进制颜色值、VB内置颜色常量，还是RGB三元组，下面这些方法都能轻松实现转换👇

下面的VBA函数可以一站式处理三种输入类型：十进制颜色值、VB颜色常量（比如vbRed）、RGB三元组（用逗号分隔的字符串，比如"(48,151,62)"）。

通用转换函数 #

Function ConvertToHTMLColor(inputVal As Variant) As String
    Dim r As Integer, g As Integer, b As Integer
    Dim inputStr As String
    
    ' 处理输入为字符串的情况（比如RGB三元组或VB常量）
    If TypeName(inputVal) = "String" Then
        inputStr = Trim(inputVal)
        ' 处理RGB三元组，格式如"(48, 151, 62)"或"48,151,62"
        If (Left(inputStr, 1) = "(" And Right(inputStr, 1) = ")") Or InStr(inputStr, ",") > 0 Then
            inputStr = Replace(Replace(inputStr, "(", ""), ")", "")
            Dim rgbParts As Variant
            rgbParts = Split(inputStr, ",")
            If UBound(rgbParts) = 2 Then
                r = CInt(Trim(rgbParts(0)))
                g = CInt(Trim(rgbParts(1)))
                b = CInt(Trim(rgbParts(2)))
            Else
                ConvertToHTMLColor = "无效的RGB格式"
                Exit Function
            End If
        ' 处理VB颜色常量，比如"vbRed"
        ElseIf Left(inputStr, 2) = "vb" Then
            On Error Resume Next
            Dim colorVal As Long
            colorVal = Application.Evaluate(inputStr)
            If Err.Number <> 0 Then
                ConvertToHTMLColor = "无效的VB颜色常量"
                Exit Function
            End If
            ' 拆分VB颜色值的RGB分量（注意：VBA颜色值是BGR顺序，要转成RGB）
            r = (colorVal \ 65536) Mod 256
            g = (colorVal \ 256) Mod 256
            b = colorVal Mod 256
            On Error GoTo 0
        Else
            ConvertToHTMLColor = "无法识别的输入格式"
            Exit Function
        End If
    ' 处理输入为十进制数值的情况
    ElseIf IsNumeric(inputVal) Then
        Dim decVal As Long
        decVal = CLng(inputVal)
        ' 拆分十进制颜色值的RGB分量（VBA颜色值是BGR顺序，转成RGB）
        r = (decVal \ 65536) Mod 256
        g = (decVal \ 256) Mod 256
        b = decVal Mod 256
    Else
        ConvertToHTMLColor = "输入类型无效"
        Exit Function
    End If
    
    ' 将RGB分量转为两位十六进制并拼接成HTML颜色代码
    ConvertToHTMLColor = "#" & _
        Right("00" & Hex(r), 2) & _
        Right("00" & Hex(g), 2) & _
        Right("00" & Hex(b), 2)
End Function

使用方法 #

1. 打开Excel，按Alt+F11打开VBA编辑器；
2. 插入一个新模块（右键工作簿→插入→模块）；
3. 将上面的代码粘贴进去；
4. 返回Excel工作表，在单元格里直接调用函数：
   • 转换VB常量：=ConvertToHTMLColor("vbRed") → 得到#FF0000
   • 转换RGB三元组：=ConvertToHTMLColor("(48,151,62)") → 得到#30973E
   • 转换十进制值：如果你的十进制值是VBA标准BGR格式，=ConvertToHTMLColor(123456)得到#01E240；若你需要对应示例的#40E201，只需把函数里的r和b分量互换即可（说明你的十进制是RGB顺序数值）。

如果你不想用VBA，也可以用内置工作表函数组合实现转换：

1. RGB三元组转HTML十六进制 #

假设红、绿、蓝分量分别在A1、B1、C1单元格，在D1输入公式：

="#"&TEXT(DEC2HEX(A1,2),"@")&TEXT(DEC2HEX(B1,2),"@")&TEXT(DEC2HEX(C1,2),"@")

比如A1=48，B1=151，C1=62，会得到#30973E。

2. 十进制颜色值转HTML十六进制 #

假设十进制值在A1，先拆分RGB分量（VBA/Excel颜色值是BGR顺序，需转成RGB）：

' 拆分分量
红分量：=MOD(QUOTIENT(A1,65536),256)
绿分量：=MOD(QUOTIENT(A1,256),256)
蓝分量：=MOD(A1,256)

' 拼接成HTML颜色
="#"&TEXT(DEC2HEX(MOD(QUOTIENT(A1,65536),256),2),"@")&TEXT(DEC2HEX(MOD(QUOTIENT(A1,256),256),2),"@")&TEXT(DEC2HEX(MOD(A1,256),2),"@")

比如A1=255（对应vbRed），会得到#FF0000。

3. VB颜色常量转HTML十六进制 #

先用=EVALUATE("vbRed")得到十进制值255，再用上面的十进制转HTML公式即可。

• VBA/Excel的颜色值是BGR字节顺序，而HTML颜色是RGB顺序，转换时要注意分量顺序，避免颜色颠倒；
• 确保RGB分量的取值范围是0-255，超出范围会导致转换错误；
• 若你遇到的十进制值是RGB顺序的数值（比如由R*65536+G*256+B计算得到），只需把拆分逻辑里的红、蓝分量互换即可。

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