如何实现把固定内容自动写入excel_Excel如何把修改记录自动写入批注？

最新推荐文章于 2024-03-15 15:52:37 发布

weixin_39729272

最新推荐文章于 2024-03-15 15:52:37 发布

阅读量830

点赞数 1

文章标签：如何实现把固定内容自动写入excel

最近忙碌，断更一段时间，我又回来了，废话不讲，今天我们来分享点有意思的东西？如何把每次修改的记录和时间全部记录到批注中？对！我实现了效果如下:

原理：VBA+事件

如何操作呢？

第一步：工作表任意位置，按下组合键ALT+F11，进入VBE

(细节百度如何使用宏)

第二步：复制代码！

A1:G16-----为数据区域，可以自行修改

'日期：2019-11-19'作者：Excel办公实战-小易'功能: 记录单元格变化 , 并写入批注'------------------------------------------------Option ExplicitPublic oldValuePrivateSub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count <> 1 Then Exit Sub 'A1:G16-----为数据区域，可以自行修改 If Not Intersect(Target, Range("A1:G16")) Is Nothing Then If oldValue <> Target.Value Then If Target.Comment Is Nothing Then Target.AddComment Format(Now, "yyyy-mm-dd hh:mm:ss") _ & " " & oldValue & "->" & Target.Value Else: With Target.Comment .Text Text:=.Text & vbNewLine & _ Format(Now, "yyyy-mm-dd hh:mm:ss") & " " _ & oldValue & "->" & Target.Value .Shape.TextFrame.AutoSize = True End With End If End If End IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) oldValue = Target.ValueEEnd Sub