Накопление суммы значений одной ячейки в другой ячейке

Question

Вопрос в том:
Как мне суммировать входные значения ячейки в другой?

Например:

1. Я ввожу значение 5 в ячейку A1, и ячейка A2 показывает мне 5;
2. Я ввожу значение 3 в ячейку A1, и ячейка A2 показывает мне 8;
3. Я ввожу значение 4 в ячейку A1, а ячейка A2 показывает мне 12.

Answer 1

Поместите это в модуль листа

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inpt As Range, otpt As Range

    Set inpt = Range("A1"): Set otpt = Range("A2")

    If Not Intersect(Target, inpt) Is Nothing Then
        otpt.Value = otpt.Value + inpt.Value
        'inpt.Value = "" 'Option - Resets A1 after input
        'inpt.Select'Option - Returns selection to input cell
    End If
End Sub