有没有办法在所有工作表中实现 VBA-Workbook_SheetChange 以更改单元格颜色？

Question

对于我们公司，我们有一个包含多个工作表的 Excel 工作簿。

我们有一个主表，所有更改都将在其中进行。

其他工作表是已将单元格链接到母版的母版的分支。

我知道有一种方法可以实现 worksheet_change 以便在手动更改单元格时更改单元格的内部颜色，并且我知道如何实现。

但是，有没有办法在工作簿中的所有非手动更改的单元格中实现相同的颜色更改？

让我试着举一个例子，这样你就可以更好地理解我想要做什么。

假设工作表 1 中的单元格 A1 包含单词“Hello”。

我希望工作表 2 中的单元格 B2 具有工作表 1 中的单元格 A1 的任何内容...因此工作表 2 中的单元格 B1 也将包含单词“Hello”。

现在，假设我想将工作表 1 中的单元格 A1 更改为“再见”，我希望工作表 1 中的单元格 A1 以浅绿色突出显示。然后，我希望表 2 中的单元格 B2 说“再见”（因为它已链接到表 1 中的单元格 A1，所以它已经这样做了），但更重要的是，以相同的浅绿色突出显示单元格 b1。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.Interior.Color = RGB(216, 228, 188)
End Sub

这个^^是我用来改变主表上的单元格颜色的。它确实有效，但仅适用于该工作表。

我只是不知道如何告诉 vba，“嘿，我希望你填充工作簿中所有已更改单元格的背景。”

Answer 1

您的代码将通过向其添加一个循环并使用其索引 nr 迭代工作表来应用于所有工作表。

    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        Call WorksheetLoop(Sh, Target)
    End Sub
    Private Sub WorksheetLoop(ByVal Sh As Object, ByVal Target As Range)
        Dim WS_Count As Long, i As Long
        WS_Count = ActiveWorkbook.Worksheets.Count
        For i = 1 To WS_Count ' loop.all sheets but don't update the active one
            Worksheets(i).Range(Target.Address).Interior.Color = RGB(216, 228, 188)
        Next i
    End Sub