Есть ли способ для обновления значения ячейки на основе нескольких ячеек на разных листах?

Question

У меня есть четыре разные ячейки на четырех разных листах, которые могут иметь разные значения через выпадающий список.Есть ли способ для ячейки на пятом листе быть значением последней измененной ячейки?

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

Выше приведен краткий пример желаемого результата.Значение cell5val, находящееся на другом листе, равно значению последнего обновленного значения любой из четырех других ячеек.

Answer 1

Да, поместите событие Worksheet_Change в первые 4 листа, которые записывают значение 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