欢迎来到天天文库
浏览记录
ID:34396030
大小:432.65 KB
页数:3页
时间:2019-03-05
《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
此文档下载收益归作者所有