如何实现自动插入批注

xing2005206 · 发表于 2010-5-2 13:49

随便一个单元格，输入数据后自动在这个单元格插入一个当前时间和日期的批注。请高人指点一下，谢谢了！

lu_zhao_long · 发表于 2010-5-2 13:58

原帖由 xing2005206 于 2010-5-2 13:49 发表
随便一个单元格，输入数据后自动在这个单元格插入一个当前时间和日期的批注。请高人指点一下，谢谢了！

需要使用 VBA 代码才可以！

lb_bn · 发表于 2010-5-2 14:14

例子：

Private Sub Worksheet_Change(ByVal Target As Range)
For Each tg In Target
Set cm = tg.Comment
If cm Is Nothing Then tg.AddComment Format(Now, "yyyy-mm-dd hh:mm:ss")
Next
End Sub

复制代码

xing2005206 · 发表于 2010-5-2 14:49

谢谢，我试试。

xing2005206 · 发表于 2010-5-2 14:57

不好意思，再麻烦 lb_bn 下，能不实现指定这个工作表某一区，如 I2：DN65336 这一区域输入数据就自动插入批注，谢谢各位了。

lb_bn · 发表于 2010-5-2 15:01

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I2：DN65336]) Is Nothing Then Exit Sub
For Each tg In Target
Set cm = tg.Comment
If cm Is Nothing Then tg.AddComment Format(Now, "yyyy-mm-dd hh:mm:ss")
Next
End Sub

复制代码

zhaojia · 发表于 2010-5-2 15:14

选中该单元格，插入->批注。

xing2005206 · 发表于 2010-5-2 15:50

非常感谢您的热心帮助，这个问题终于得到解决了，我还是太菜了，以后要多向你学习了，

wyzdddl · 发表于 2011-2-6 12:45

原帖由 lb_bn 于 2010-5-2 15:01 发表
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ) Is Nothing Then Exit Sub
For Each tg In Target
Set cm = tg.Comment
If cm Is Nothing Then tg.AddCo ...

学习一下

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

[已解决] 如何实现自动插入批注

回复 3楼 lb_bn 的帖子

回复 6楼 lb_bn 的帖子