如何根据另一个电子表格中单元格中手动选择的颜色（而不是基于单元格值）设置单元格颜色

Question

我在下面 link 找到了关于如何根据相同 sheet 中的单元格复制颜色的内容，但是我的问题是必须匹配颜色的单元格将在单元格上通过工作簿展开。

Link:

我的主页（第一个 sheet）包含以下 sheet 中提供的信息摘要。所有相关单元格均已格式化，以反映其他 sheet 中相应单元格的值。

因此，例如，我的主页单元格 F7 已经格式化，因此它复制源 sheet“第 1 季度”中相应单元格的值： =quarter1!B15

现在，我真正想要的是我主页上复制的摘要单元格也与我手动 select 对应（源）单元格的颜色匹配其他 sheets。这可能使用 VBA 编码吗？

有问题的源单元格将包含手动设置的日期 - 不是基于值自动设置的日期，有 3 种不同的颜色（红色 = 不确定；黄色 = 暂定；绿色 = 确定）

我从另一个网站得到了下面的代码，但它只有在单元格位于同一站点时才有效 sheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Me.Range("C1").Interior.Color = Me.Range("A1").Interior.Color

End Sub

有没有一种方法可以调整此代码以引用同一工作簿中另一个 sheet 上的单元格颜色（手动 selected 并且不依赖于值）？

非常感谢您的帮助！

Answer 1

您只需要将代码放在“Thisworkbook”中，代码如下，并且需要更改 sheet 参考而不是我。当您更改 sheet 时，更改将反映在其他 sheet.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Sheet2.Range("C1").Interior.Color = Sheet1.Range("A1").Interior.Color

End Sub

如何根据另一个电子表格中单元格中手动选择的颜色（而不是基于单元格值）设置单元格颜色

How to set cell color based on a manually selected color (not based on cell value) in a cell in another spreadsheet

excel

vba