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

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

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

GUI如下所示。

当我点击求和button时，这个macros在定义的范围内求和。

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

这意味着，只要我在范围内改变一个值，就会执行数值求和function。

我怎样才能做到这一点？

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