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

Question

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

单元格O16 也会因公式而不断变化，但公式及其值与单元格017 不同。

我想要的是一旦单元格017 的值发生变化，单元格O16 会自动包含与单元格O17 相同的颜色。

VBA 中应该有解决方案。我希望你的帮助。

编辑：

用户 simoco 提出了适用于 Excel 2010 及更高版本的解决方案：

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事件。