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

Question

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

Sub buttonEvent()

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

End Sub

GUI如下所示。

单击“总和”按钮时，此宏将定义范围内的值。

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

这意味着，只要我更改了范围中的值，就会执行值和函数。

我该怎么做？

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
为了您的澄清：