Накопление значений, которые вводятся в одну ячейку Excel

Question

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

Таким образом, в основном ячейка A1 будетпустой, а затем я добавляю значение 30, например. Затем ячейка будет хранить это значение и сбрасываться, чтобы получить больше входных данных. Затем я помещаю другое значение в ячейку A1, 20. Ячейка должна снова сброситься, но значение, сохраненное в ячейке A1, теперь будет равно 50.

Я очень плохо знаком с VBA, поэтому яЯ все еще пытаюсь понять все. Я попытался использовать какой-то код, который я нашел в другом посте, но не смог заставить его работать, поэтому мне было интересно, есть ли у кого-нибудь идеи о том, как решить эту проблему.

Это код, который я нашел и нене могу заставить его работать. Предполагалось, что он получит значение в ячейке A1 и сохранит его в ячейке A2, а после добавления нового значения в A1 он добавит его к предыдущему значению в A2.

Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(1, 1).Value <> gdDouble Then
    gdDouble = Cells(1, 1).Value
    Cells(2, 1).Value = Cells(2, 1).Value + Cells(1, 1).Value
End If

End Sub

Private Sub Workbook_Open()
    gdDouble = Sheets("sheet1").Cells(1, 1).Value
End Sub

А в стандартном модуле:

dim gdDouble as double

Спасибо

Answer 1

Настройте код в событии worksheet_change следующим образом

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

    'If Target.CountLarge > 1 Then Exit Sub

    On Error GoTo EH
    Application.EnableEvents = False

    Target.Value = Target.Value + gdDouble
    gdDouble = Target.Value

EH:
    Application.EnableEvents = True

End Sub

И измените gdDouble на публичную переменную

Public gdDouble   As Double