将十进制或 RGB 颜色代码转换为 HTML（十六进制）代码答案

【问题标题】：Convert Decimal or RGB color code to HTML (Hex) code将十进制或 RGB 颜色代码转换为 HTML（十六进制）代码
【发布时间】：2018-10-13 07:58:35
【问题描述】：

如何使用 VBA 或 Excel 工作表将 VBA（或 VB）十进制或 RGB 颜色代码转换为 HTML（十六进制）颜色代码？

例子：

INPUT:         OUTPUT:
123456         #40E201
vbRed          #FF0000
(48, 151, 62)  #30973E

【问题讨论】：

标签： html vba colors hex rgb

【解决方案1】：

以下 VBA 函数将 十进制颜色代码（0 到 16777215）转换为十六进制 HTML 颜色代码（#000000 到 #FFFFFF）：

Function Dec2HexColor(decColor As Long) As String
    If decColor > 16777215 Then decColor = 16777215
    If decColor < 0 Then decColor = 0
    Dec2HexColor = "#" & Right("00" & Hex((decColor Mod 256)), 2) & _
                         Right("00" & Hex((decColor \ 256) Mod 256), 2) & _
                         Right("00" & Hex(decColor \ 65536), 2)
End Function

它还可以与一组 RGB 颜色值（红色、绿色、蓝色；每个 0 到 255）通过与 VBA 的 RGB 函数结合使用，如图所示下面。

示例：

Sub test()
    Debug.Print Dec2HexColor(vbRed)              'returns: "#FF0000"
    Debug.Print Dec2HexColor(vbGreen)            'returns: "#00FF00"
    Debug.Print Dec2HexColor(vbMagenta)          'returns: "#FF00FF"
    Debug.Print Dec2HexColor(12345678)           'returns: "#4E61BC"
    Debug.Print Dec2HexColor(0)                  'returns: "#000000"
    Debug.Print Dec2HexColor(RGB(255, 0, 0))     'returns: "#FF0000"
    Debug.Print Dec2HexColor(RGB(48, 151, 62))   'returns: "#30973E"
End Sub

【讨论】：