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