求助，如何让第一次输入数据时不进行批注

zhou4649

Option Explicit
Dim RngValue As String     '定义一个模块给变量，用于保存单元格中的数据
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Cells.Count <> 1 Then Exit Sub   '选中多个单元格时退出程序
   If Target.Formula = "" Then                '根据选中的单元格内容给变量RngVaue赋值
        RngValue = "空"
   Else
        RngValue = Target.Text
   End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count <> 1 Then Exit Sub
    Dim Cvalue As String           '定义变量保存单元格修改后的内容
    If Target.Formula = "" Then    '判断单元格是否被修改为空单元格
        Cvalue = "空"
    Else
        Cvalue = Target.Formula
    End If
    If RngValue = Cvalue Then Exit Sub '如果单元格修改前后的内容一样则退出程序
    Dim RngCom As Comment          '定义一个批注类型的变量，名称为RngCom
    Dim ComStr As String           '定义变量ComStr，用来保存批注的值
    Set RngCom = Target.Comment    '将被修改单元格的批注赋给变量RngCom
    If RngCom Is Nothing Then Target.AddComment    '如果单元格中没有批注则新建批注
    ComStr = Target.Comment.Text    '将批注的内容保存到变量ComStr中

    '----重新修改批注的内容＝原批注内容+当前日期和时间+原内容+修改后的新内容
    Target.Comment.Text Text:=ComStr & Chr(10) & _
                        Format(Now(), "yyyy-mm-dd hh:mm") & _
                        " 原内容:" & RngValue & _
                        "修改为: " & Cvalue
    Target.Comment.Shape.TextFrame.AutoSize = True    '根据批注内容自动调整批注大小
End Sub

ggsmart

想干嘛？
让第一次输入数据时不进行批注是什么意思？具体描述一下

qing0408

增加一个判断：如果 批注内容为“空”，且不存在批注，则跳过。

请老师出手吧

qing0408

ggsmart 发表于 2018-5-29 09:56
想干嘛？
让第一次输入数据时不进行批注是什么意思？具体描述一下

If RngCom Is Nothing And Cvalue = "空" Then Exit Sub