excel修改后自动添加批注,excel 特定内容自动添加批注

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

原理：VBA 事件

如何操作呢？

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

(细节百度如何使用宏)

第二步：复制代码！

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

'日期：2019-11-19 '作者：Excel办公实战-小易 '功能: 记录单元格变化 , 并写入批注 '------------------------------------------------ Option Explicit Public oldValuePrivate Sub 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 If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) oldValue = Target.ValueE End Sub

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

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

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