ฟังก์ชัน Excel VBA เพื่ออัปเดตค่าของเซลล์ + = เซลล์จะยกเลิกค่า

ฉันจะสร้างมันได้อย่างไรถ้าฉันป้อนอะไรลงในช่วงเซลล์ B3: E3 ค่าจะเป็นสิ่งที่ฉันป้อนบวกกับค่าของเซลล์ด้านบน

ตัวอย่าง: หากฉันป้อน 20 ลงในเซลล์ C3 เมื่อฉันกดปุ่มย้อนกลับหรือคลิกออกค่าจะได้รับการอัปเดตเป็น 40

จนถึงตอนนี้ฉันรู้ว่าฉันต้องมีอะไรบางอย่างที่คล้ายกัน:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("B3:E3").Value = Range("B2:E2").Value

End Sub

และฉันรู้ว่าฉันต้องการเข้าถึงค่าออฟเซ็ต แต่ VBA ไม่ใช่มือขวาของฉันและฉันไม่สามารถตอบคำถามนี้ได้อย่างถูกต้อง

คุณจะต้องเพิ่มภาระในการตรวจสอบข้อผิดพลาด แต่นี่คือกระดูกเปลือย:

Private Sub Worksheet_Change(ByVal Target As Range)

  ' If we're not in the range of interest
  ' do nothing.
  If Intersect(Target, Me.Range("B2:E2")) Is Nothing Then
    Exit Sub
  End If
  ' We don't want this event to fire itself!
  Application.EnableEvents = False
  ' Now add the row above (rowOffset = -1) to the value.
  Target.Value = Target.Value + Target.Offset(-1, 0).Value
  ' Don't forget to re-enable events, otherwise there'll
  ' be no more VBA events fired.
  Application.EnableEvents = True

End Sub