下面是我希望通过手动复制和粘贴以外的方式实现的屏幕截图。
这是材料设计调色板，在 Excel 中看起来很棒。
如何循环遍历范围 B2:B15 并将每个单元格背景颜色设置为其相应的包含颜色？
也许是一个VBA loop去经历垂直 B 单元格范围， 解析每个单元格内容，并设置单元格背景颜色为 the RGB值认为细胞含有。
所以 RED-50 细胞包含RGB(255, 235, 238)变成...
Range("B2").Interior.Color = RGB(255, 235, 238)
UPDATE!
谢谢大家的帮助。下面是您帮助我构建的 Excel 材料设计调色板的 Google Drive 链接。
按 Control + M激活。
材料.设计.颜色.xlsm https://drive.google.com/file/d/1ywN_gUOU51R54FmF-0FBDotdzj9cwDGI/view?usp=sharing
所以所有的颜色都成为它们自己。
也许类似的事情？我无法将单元格的值传递到Interior.Color所以我决定使用Split单独提取每种颜色。调整Sheet1如果需要的话。
Sub InteriorColor()
Dim rngCell As Excel.Range
Dim varColors As Variant
Dim lngR As Long, lngG As Long, lngB As Long
For Each rngCell In Sheet1.Range("B2:B15")
varColors = Split(rngCell.Value, ",")
lngR = Right(varColors(0), Len(varColors(0)) - 4)
lngG = Trim(varColors(1))
lngB = Left(varColors(2), Len(varColors(2)) - 1)
rngCell.Interior.Color = RGB(lngR, lngG, lngB)
Next rngCell
End Sub
Result:
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
