EXCEL单元格填充后自动添加时间批注代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:z999")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Comment Is Nothing Then
Target.AddComment.Text Text:=CStr(Now())
Else
Target.Comment.Delete
Target.AddComment.Text Text:=CStr(Now())
End If
Target.Comment.Visible = False
If Target = "" Then Target.Comment.Delete
End Sub
以上代码实测能用,可以完成以下功能:单元格填充后自动添加时间批注,单元格内容删除时删除批注。现想把以上代码改为批量操作时也可批量添加批注