命令按钮求和怎么改成不用按钮实时计算的代码

深秋红叶2019

以下是代码，怎么改成实时统计计算的代码呢
Sub test11()
Dim d As Object
Dim rs
Dim i As Integer
Dim ar As Variant
Dim br As Variant
Dim m
Set d = CreateObject("scripting.dictionary")
rs = Sheets("学员信息建档").Cells(Rows.Count, 9).End(xlUp).Row
Sheets("学员信息建档").Range("i3:l" & rs) = Empty
ar = Sheets("学员信息建档").[a1].CurrentRegion
For i = 3 To UBound(ar)
    If ar(i, 1) <> "" Then
        d(ar(i, 1)) = i
    End If
Next i
br = Sheets("报名登记").[a1].CurrentRegion
For i = 7 To UBound(br)
    m = d(br(i, 2))
    If m <> "" Then
        ar(m, 9) = ar(m, 9) + br(i, 11)
        ar(m, 10) = ar(m, 10) + 1
    End If
Next i
ar(3, 11) = UBound(ar) - 2
ar(3, 12) = UBound(br) - 6
Sheets("学员信息建档").[a1].CurrentRegion = ar
End Sub

liulang0808

实时计算是什么意思？如果事件触发就考虑具体事件

深秋红叶2019

liulang0808 发表于 2020-2-2 20:10
实时计算是什么意思？如果事件触发就考虑具体事件

就是当在表格中数据数据是，单元格马上计算出来，不需要经点击命令按钮那种

liulang0808

深秋红叶2019 发表于 2020-2-2 20:31
就是当在表格中数据数据是，单元格马上计算出来，不需要经点击命令按钮那种

楼主这几天提问很多问题，也涉及一些列的事件代码
自己对应研究吧，不然这么拼凑的代码，最后可靠性也堪忧 啊

深秋红叶2019

liulang0808 发表于 2020-2-2 20:45
楼主这几天提问很多问题，也涉及一些列的事件代码
自己对应研究吧，不然这么拼凑的代码，最后可靠性也堪 ...

那我研究一方