使用 VBA 将一个单元格的颜色与另一个单元格匹配

Question

我需要编写一些 VBA 代码，这样，如果我将它分配给一个命令按钮，通过单击它我应该能够匹配单元格 C11 和单元格 C4 的颜色。

假设我将 C11 的颜色更改为红色，C4 的颜色应通过单击命令按钮或自动更改为红色。

有人可以帮我解决这个问题吗？

Answer 1

以下代码将颜色值从单元格 "C11" 复制到单元格 "C4"：

Range("C4").Interior.Color = Range("C11").Interior.Color

只要您使用有效的范围对象，您就可以根据需要使用不同的类型来寻址单元格。例如活动选择（至少一个单元格或更多）：

Selection.Interior.Color = Range("C11").Interior.Color

Matching color of a cell with another cell using VBA