0

我在四个不同的工作表中有四个不同的单元格,它们都可以通过下拉菜单获得不同的值。有没有办法让第五张表中的单元格成为最新更改单元格的值?

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

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

4

1 回答 1

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
于 2019-02-11T16:02:24.617 回答