Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 是否有一种方法可以基于不同工作表中的多个单元格更新单元格值?_Excel_Vba - Fatal编程技术网

Excel 是否有一种方法可以基于不同工作表中的多个单元格更新单元格值?

Excel 是否有一种方法可以基于不同工作表中的多个单元格更新单元格值?,excel,vba,Excel,Vba,我在四张不同的表格中有四个不同的单元格,通过下拉列表,它们都可以是不同的值。第五页中的单元格是否可以作为最近更改的单元格的值 以上是期望结果的一个快速示例。另一张表中的cell5val是其他四个单元格中任何一个的最新更新值 是,在前4张工作表中放置一个工作表更改事件,将目标值写入5ᵗʰ关于变更的工作表。因此,表5将始终显示4张表中任何一张的最新更改值 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range)

我在四张不同的表格中有四个不同的单元格,通过下拉列表,它们都可以是不同的值。第五页中的单元格是否可以作为最近更改的单元格的值

以上是期望结果的一个快速示例。另一张表中的cell5val是其他四个单元格中任何一个的最新更新值

是,在前4张工作表中放置一个工作表更改事件,将目标值写入5ᵗʰ关于变更的工作表。因此,表5将始终显示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
在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

是,在前4个工作表中放置一个工作表\u更改事件,将目标值写入5ᵗʰ关于变更的工作表。因此,表5将始终显示4张表中任何一张的最新更改值。@Pᴇʜ感谢您为我指明了正确的方向,这将完美地解决我的问题。