爱问知识人 爱问教育 医院库

Excel表格输入内容后,自动增加批注并在其中写入当天日期

首页

Excel表格输入内容后,自动增加批注并在其中写入当天日期

M2M3,你好,又要麻烦你了,上次那个表格还有最后一个修改就可以了。

目前sheet“客户管理卡”的k-z列只要输入内容,就会自动增加批注,并在批注中写入当天的日期。但实际使用中会出现需要修改之前的单元格的情况,结果日期就自动发生变化了,变成了错误的时间。我现在希望的功能是,空白单元格在输入内容后,只会增加一次批注,批注中是当日的日期。如果再次修改,批注不发生变化。如果删除到单元格的内容,则批注也会自动删除。再麻烦一次,非常感谢!

M2M3,你好,又要……
提交回答
好评回答
  • 2011-11-10 16:56:37
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("k2:z10000")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target.Comment Is Nothing Then
    Target.AddComment.Text Text:=CStr(Date)
    Target.Comment.Visible = False
    Else
    Target.Comment.Visible = False
    If Target.Value = "" Then
    Target.Comment.Delete
    End If
    End If
    End Sub

    1***

    2011-11-10 16:56:37

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):