Excel VBA：将按钮单击事件更改为单元格值更改事件

Question

我创建了一个由按钮单击事件驱动的简单值总和示例，如下所示。

Sub buttonEvent()

  Dim a As Double
  a = Application.WorksheetFunction.Sum(Range("A1:A10"))
  Cells(11, 1).Value2 = a

End Sub

GUI如下所示。

当我单击求和按钮时，此宏对定义范围内的值求和。

我想将点击事件更改为范围值更改事件。

这意味着，只要更改范围内的值，就将执行值求和功能。

我怎样才能做到这一点？

Answer 1

使用这些代码。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Double
    If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
         a = Application.WorksheetFunction.Sum(Range("A1:A10"))
             Cells(11, 1).Value2 = a
    End If
End Sub

Edited after comment
为了您的澄清：