excel内容改变，自动添加批注。

Dim r1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.CountLarge <> 1 Then Exit Sub
If Target.Formula = "" Then
r1 = "空"
Else
r1 = Target.Text
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
Dim r2
If Target.Formula = "" Then
r2 = "空"
Else
r2 = Target.Formula
End If
If r1 = r2 Then Exit Sub
Dim r3
Dim r4
Set r3 = Target.Comment
If r3 Is Nothing Then Target.AddComment
r4 = Target.Comment.Text
Target.Comment.Text Text:=r4 & Chr(10) & Format(Now(), "yyyy-mm-dd hh:mm") & "原内容:" & r1 & "修改为:" & r2
Target.Comment.Shape.TextFrame.AutoSize = True
End Sub