EXCEL单元格填充后自动添加时间批注代码

时　间:2013-06-13 13:12:23
作　者:(麥田)转载   ID：11  城市：上海  QQ：20099004
摘　要:EXCEL单元格填充后自动添加时间批注代码
正　文:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    For Each c In Target
        With c
            .AddComment
            .Comment.Text Text:="" & Now
        End With
    Next
End Sub

如需要在j4:p5000范围内单元格中实现此功能，则改成：

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    For Each c In Target
        If c.Column > 9 And c.Column < 17 And c.Row > 3 And c.Row < 5001 Then
        With c
            .AddComment
            .Comment.Text Text:="" & Now
        End With
        End If
    Next
End Sub