EXCEL 单元格改变事件
PrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Address="$B$4"ThenCall统计单据Else...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
Call 统计单据
ElseIf Target.Address = "$E$3" Then
Call 统计单据
End If
End Sub
当我保护工作表时该事件就会出错,如何解决??
我把这2个单元格不锁定叶不行 展开
If Target.Address = "$B$4" Then
Call 统计单据
ElseIf Target.Address = "$E$3" Then
Call 统计单据
End If
End Sub
当我保护工作表时该事件就会出错,如何解决??
我把这2个单元格不锁定叶不行 展开
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
