Excel单元格内容变化时,自动添加系统时间批注(亲自实践)

以下宏程序来自于百度知道网友的回答

实现目的:

在C4到Z100范围内,单元格内容发生变化时,将系统日期追加到该单元格的批注中

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c4:z100")) 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
End Sub

以下是我个人的修改

如果是判断某列内容修改,然后在该列后一列主键系统日期,则宏文件如下:

Private Sub Worksheet_Change(ByVal Target As Range)

    '变更单元格的列号(1=A,2=B..)
    Dim col As Integer
    col = Target.Column
    
    '变更单元格的行号
    Dim row As Integer
    row = Target.row
    
    If col = 13 Or col = 16 Or col = 19 Or col = 22 Or col = 25 Or col = 28 Or col = 31 Then
        '指定列之后列位置自动填写系统日期
        Cells(row, col + 1) = CStr(Now())
    End If

End Sub