excel - 将单元格背景颜色设置为其包含的 RGB 值。如何？

Question

下面是我希望通过手动复制和粘贴以外的方式实现的屏幕截图。

这是 Material 设计调色板，在 Excel 中看起来很棒。

如何循环遍历范围 B2:B15 并将每个单元格背景颜色设置为其相应的包含颜色？

可能是一个VBA循环来遍历垂直B范围的单元格，解析每个单元格内容，并设置单元格背景颜色为单元格包含的RGB值。

因此，包含 rgb(255, 235, 238) 的 RED-50 单元格将变为...

Range("B2").Interior.Color = RGB(255, 235, 238)

<小时/>

更新!

谢谢大家的帮助。下面是您帮助我构建的 Excel Material 设计调色板的 Google Drive 链接。

按 Control + M 激活。

material.design.colors.xlsm

所以所有颜色都成为它们自己。

Answer 1

无需借助正则表达式的简单解决方案:

Sub test()
    Dim r As Range
    For Each r In Range("B1:B10")
        r.Interior.Color = StringToRGB(r.Text)
    Next
End Sub

Public Function StringToRGB(s As String) As Long
    Dim parts
    s = Mid(s, 5, Len(s) - 5)
    s = Replace(s, " ", "")
    parts = Split(s, ",")
    StringToRGB = RGB(CInt(parts(0)), CInt(parts(1)), CInt(parts(2)))
End Function