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

Question

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

示例：

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

Answer 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 {{{ 1}}功能如下所示。

<强>示例：

RGB