'在所有过程之前用Dim语句定义的变量r1是模块级变量，应模块中所有的过程都可以使用它xL9七二检测
Dim r1 '定义一个模块给变量，用户保存单元格的数据xL9七二检测
'第一个事件过程，用于记录被更改前单元格中保存的数据xL9七二检测
Private Sub Worksheet_SelectionChange(ByVal Target As Range)xL9七二检测
If Target.Cells.Count <> 1 Then Exit Sub '选中多个单元格时退出程序xL9七二检测
If Target.Formula = "" Then '根据选中单元格中保存的数据，确定给变量r1赋什么值xL9七二检测
r1 = "空"xL9七二检测
ElsexL9七二检测
r1 = Target.TextxL9七二检测
End IfxL9七二检测
End SubxL9七二检测
'第二个事件过程，用于批注记录单元格修改前后的信息xL9七二检测
Private Sub Worksheet_Change(ByVal Target As Range)xL9七二检测
If Target.Cells.Count <> 1 Then Exit SubxL9七二检测
'定义变量保存单元格修改后的内容xL9七二检测
Dim r2xL9七二检测
'判断单元格是否被修改为空单元格xL9七二检测
If Target.Formula = "" ThenxL9七二检测
r2 = "空"xL9七二检测
ElsexL9七二检测
r2 = Target.FormulaxL9七二检测
End IfxL9七二检测
'如果单元格修改前后的内容一样则退出程序xL9七二检测
If r1 = r2 Then Exit SubxL9七二检测
'定义一个批注变量xL9七二检测
Dim r3xL9七二检测
'定义一个变量保存批注内容xL9七二检测
Dim r4xL9七二检测
'将被修改单元格的批注赋给变量r3xL9七二检测
Set r3 = Target.CommentxL9七二检测
'如果单元格中没有批注则新建批注xL9七二检测
If r3 Is Nothing Then Target.AddCommentxL9七二检测
'将批注的内容保存到变量r4中xL9七二检测
r4 = Target.Comment.TextxL9七二检测
'重新修改批注的内容=原批注内容+当前日期和时间+原内容+修改后的新内容xL9七二检测
Target.Comment.Text Text:=r4 & Chr(10) & Format(Now(), "yyyy-mm-dd hh:mm") & "原内容:" & r1 & "修改为:" & r2xL9七二检测
'根据批注内容自动调整批注大小xL9七二检测
Target.Comment.Shape.TextFrame.AutoSize = TruexL9七二检测
End SubxL9七二检测 |
