单元格内容改变时用批注自动记录改动情况

57wk · 发表于 2020-12-11 16:30

遗憾的是：记录修改的批注会被删除……

马小呆 · 发表于 2021-4-19 14:11

xrs08234 发表于 2018-12-14 11:00
按照你的要求，对代码做了一些优化：
1、实现了多个连续单元格用粘贴时，可以记录并不会把原复制的单元 ...

你好，请问一下如果只想对一个工作表使用呢

淡定哥阿伟 · 发表于 2021-5-20 08:49

Private Sub Workbook_sheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("f:f")) Is Nothing Then Exit Sub
sj = "[" & Format(Now(), "") & "] "
For Each Rng In Target
      If Not Rng.Comment Is Nothing Then
         Rng.Comment.Text Text:=Rng.Comment.Text & Chr(10) & sj & Rng.Text
         pzh = UBound(Split(Rng.Comment.Text, "]"))
         Rng.Comment.Shape.Width = 225             '定义批注宽度
         Rng.Comment.Shape.Height = 11.5 * pzh    '定义批注高度
      Else
         Rng.AddComment Text:=sj & Rng.Text
      End If
Next
End Sub
各位大神，当插入行时整行会添加批注，是哪里不对？谢谢！

blackttea1 · 发表于 2021-5-20 10:29

学习啦，谢谢

eess890528 · 发表于 2021-8-2 16:33

xrs08234 发表于 2018-12-14 11:00
按照你的要求，对代码做了一些优化：
1、实现了多个连续单元格用粘贴时，可以记录并不会把原复制的单元 ...

老师你好！怎么实现空白单元格第一次输入时不增加批注，插入行和插入列不增加批注。只有第二次及以后的修改才增加批注？

CYZ凡星点点 · 发表于 2023-9-15 13:29

各位老师，能不能指定单元格有记录，或者执行宏

		自动登录	找回密码
密码			免费注册

[求助] 单元格内容改变时用批注自动记录改动情况