VBA | 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 Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) oldValue = Target.ValueEEnd Sub
‍
第三步：双击对应的表名，粘贴代码，关闭VBE即可
如果文件中有多张表,在VBE中双击对应的工作表后,再粘贴

小结:初学的时候,以为Excel只是一个数值计算器,到后知道原来可以使用SUM,好厉害!再来发现了VLOOKUP,慢慢的才发现原来比计算器厉害多了!

到现在利用宏可以实现大部分有逻辑的功能,但是Power BI又出来了~~~~~

路漫漫其修远兮~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

赞 (0)

相关推荐