EXCEL 单元格改变事件

2025-12-05 04:12:45

推荐回答（1个）

回答1：

亲，增加了几句，你试一下：

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Application.EnableEvents = False
If Target.Address = "$B$4" Then
    Call 统计单据
ElseIf Target.Address = "$E$3" Then
    Call 统计单据
End If
Application.EnableEvents = True
ActiveSheet.Protect
End Sub