亲，增加了几句，你试一下：
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
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024