Question

我在四个不同的工作表中有四个不同的单元格，通过下拉菜单可以将它们全部设置为不同的值。有没有办法让第五张纸中的一个单元格成为最新更改的单元格的值？

cell1val   cell2val   cell3val    cell4val         cell5val
 1           1         1           1                 1
 1           1         1           2                 2  
 3           1         1           2                 3

以上是所需结果的快速示例。位于不同工作表中的cell5val就是其他四个单元格中任何一个的最新更新值。

Answer 1

是的，请在前4个工作表中放置一个Worksheet_Change事件，以便在更改时将Target的值写入5ᵗʰ工作表中。因此，工作表5将始终显示4个工作表中任何一个的最新更改值。

在4张纸中的每张纸上放置以下内容。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim AffectedRng As Range
    Set AffectedRng = Intersect(Target, Target.Parent.Range("A1:A10")) 'this is the range you want to observe

    If Not AffectedRng Is Nothing Then
        Worksheets("Sheet5").Range(AffectedRng.Address).Value = AffectedRng.Value
    End If

End Sub

有没有一种方法可以基于不同工作表中的多个单元格来更新单元格值？

1 个答案: