自动仅将颜色从一个单元格复制到另一个单元格–EXCEL VBA

我有单元格017 ，由于公式和条件格式，此单元格的值和颜色不断变化。

单元格O16由于公式而不断变化，但公式和值与单元格017不同。

我想要的是，一旦单元格017的值已经改变，单元格O16包含与单元格O17相同的颜色。

VBA中应该有一个解决scheme。 我希望你的帮助。

编辑：

用户simoco提出了Excel 2010及更高版本的解决scheme：

 Private Sub Worksheet_Calculate() Range("O16").Interior.Color = Range("O17").DisplayFormat.Interior.Color End Sub 

不幸的是我使用Excel 2007，是否有和2007年的代码相当的？

Answer 1

仅适用于Excel 2010及更高版本

如果您的单元格O17 只能通过公式更改，请使用以下代码（此代码应在Sheet模块中使用）：

 Private Sub Worksheet_Calculate() Range("O16").Interior.Color = Range("O17").DisplayFormat.Interior.Color End Sub 

否则，请使用相同的代码添加Worksheet_Change事件。