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