我在四个不同的工作表中有四个不同的单元格,它们都可以通过下拉菜单获得不同的值。有没有办法让第五张表中的单元格成为最新更改单元格的值?
cell1val cell2val cell3val cell4val cell5val 1 1 1 1 1 1 1 1 2 2 3 1 1 2 3
以上是所需结果的快速示例。位于不同工作表中的 cell5val 是其他四个单元格中任何一个的最新更新值。
是的,在前 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