从单元格中读取颜色以为 Excel 图表着色

Question

在 vba 中，我想从工作表中的单元格中读取颜色，以便为条形图中的特定条形着色。我的问题是我有 4F9F92 格式的颜色，但要在 makro 中读取它，我需要使用单元格中的 excel 颜色代码 4076202。有没有办法在 vba 代码中转换这两种格式...？我知道在即时窗口中我可以做

?rgb(170,50,62)

导致

4076202

在 vba 代码中，我使用以下命令读取颜色

ser.Points(p).Interior.Color = arr(s, p)

其中 s 和 p 是通过具有不同颜色代码的数组运行的两个 runnign 变量。

有没有可能我可以为每个单元格设置一个函数，在该单元格中输入一个值，例如 4F9F92，以自动将其转换为 4076202 格式，以便 makro 可以读取它？

Answer 1

实际上，rgb(170,50,62) 的十六进制等效值是 AA323E，它转换为 4076202 的 Long 值

1) RGB Function 接受红色、绿色、蓝色分量，它们是 Decimal numbers 在 0-255 范围内，可以从 HEX 值中去除

2) 将这些剥离后的值传递给RGB function 以获得代表RGB 颜色值的Long whole number。

Function Hex2RGB(hex As String) As String

    Red = Val("&H" & Mid(hex, 1, 2))
    Green = Val("&H" & Mid(hex, 3, 2))
    Blue = Val("&H" & Mid(hex, 5, 2))

  Debug.Print RGB(Red, Green, Blue)
    Hex2RGB = RGB(Red, Green, Blue)

End Function

并在你的宏中使用它，假设你在Cell A1中有AA323E

Sub ColorMe()
Range("B1").Interior.Color = Hex2RGB(Range("A1"))
End Sub

Answer 2

如果 c 是其中包含十六进制颜色代码的单元格，格式为 #FFFFFF

excel中下面的vba可以直接转成RGB

RGB(Application.WorksheetFunction.Hex2Dec(Mid(c.Value, 2, 2)), Application.WorksheetFunction.Hex2Dec(Mid(c.Value, 4, 2)), Application.WorksheetFunction.Hex2Dec(Mid(c.Value, 6, 2)))

我使用工作表函数 Hex2Dec，将十六进制代码的 3 个组成部分转换为十进制，并使用 RGB 函数返回您可以使用的 long/rgb 颜色代码。

更新 - 用法示例：

Sub ColorSwatch()
   Dim c As Range
   for each c in selection
        c.Interior.Color = RGB(Application.WorksheetFunction.Hex2Dec(Mid(c.Value, 2, 2)), Application.WorksheetFunction.Hex2Dec(Mid(c.Value, 4, 2)), Application.WorksheetFunction.Hex2Dec(Mid(c.Value, 6, 2)))
   next
End Sub