vba宏在excel中的应用-监测单元格new

《vba宏在excel中的应用-监测单元格new》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、自动监控指定单元格变化目标：自动监控指定单元格变化，如果变化了应该达到怎样的效果，我这里介绍的就是当一个指定列内的单元格数据变化，自动记录变化的时间，并插于空白批注，当点击一个单元格自动让这个单元格的批注处于被编辑状态：便于追踪实现VBA代码：PrivateSubWorksheet_Change(ByValTargetAsRange)'Application.ScreenUpdating=FalseWithTargetIf.Count=1And.Row>=4And.Column=3ThenIf.Text<>""Then'====addcomment

2、sIf.CommentIsNothingThen.AddComment.Comment.TextText:=""'&Chr(10)&""EndIfIf.Offset(0,1).CommentIsNothingThen.Offset(0,1).AddComment.Offset(0,1).Comment.TextText:=""'&Chr(10)&""EndIf'=========commentsetok.Offset(0,-1).Value=Now.Offset(0,4).Value=Int(Now).Offset(0,3).Value=.Offs

3、et(-1,3).Value+1ElseEndIf'ElseIf.Count=1And.Row>=4And.Column=7Then'.WrapText=FalseElseEndIfEndWithEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Application.DisplayCommentIndicator=xlCommentIndicatorOnlyIfTarget.CommentIsNothingThenExitSubElseTarget.Comment.Visib

4、le=TrueEndIfEndSub