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。
我怎样才能做到这一点?
使用这些代码。
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
为了您的澄清: