如何使用另一个单元格的内容为背景着色

Question

是否可以使用另一个单元格的内容来更改单元格的颜色？

我正在尝试创建一个油漆转换表，将油漆颜色从一个品牌 ID 转换为另一个品牌 ID。我在图表中包含了六位数的 RGB 数字，所以我想在它旁边创建一个显示颜色的单元格，以便您一眼就可以大致看到您正在查看的颜色

例如

Cell A1 = FFFFFF then Cell B1 would be coloured White
Cell A2 = 000000 then cell B2 would be black
Cell A3 = 8E999D then cell B3 would be a light grey

任何帮助将不胜感激。

非常感谢 一分钱

Answer 1

如果使用 RGB 格式，而不是调色板，会更好。检查下面的代码，希望这是你想要的：

Sub try()

If Range("A1").Interior.Color = RGB(0, 0, 0) Then
Range("B1").Interior.Color = RGB(0, 0, 0)
End If

If Range("A2").Interior.Color = RGB(255, 255, 255) Then
Range("B2").Interior.Color = RGB(255, 255, 255)
End If

End Sub

以此类推，您也可以继续处理其他单元格。