求单元格填入数据 对应日期写入批注

高飞扬

求路过的老师帮指点一下，如何将附件中的H列-ZZ列的单元格填入数据后，将对应单元格的输入的日期写入批注中。
单元格填入内容后将对应日期写入单元格批注.zip (10.09 KB, 下载次数: 11)

2018-9-12 17:31 上传

点击文件名下载附件

everbest2015

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
     If Target.Value = "" Then Exit Sub
    If Target.Column >= 8 And Target.Column <= 702 Then
        With Target
                If .Comment Is Nothing Then
                        .AddComment Text:=.Value
                Else
                        .Comment.Delete
                         .AddComment Text:=.Value
                End If
        End With
    End If
End Sub

高飞扬

everbest2015 发表于 2018-9-12 20:37
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
     If  ...

可以啦， 谢谢老师的帮助！
我也修改了一下：
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
      If Target.Value = "" Then Exit Sub
     If Target.Column >= 8 And Target.Column <= 702 Then
         With Target
                 If .Comment Is Nothing Then
                         .AddComment Text:=CStr(Date)
                         .Comment.Shape.TextFrame.AutoSize = True
                 Else
                         .Comment.Delete
                          .AddComment Text:=CStr(Date)
                          .Comment.Shape.TextFrame.AutoSize = True
                 End If
         End With
     End If
End Sub