经过一段时间的忙碌，我终于又回来了。废话不多说，今天给大家带来一个非常有趣的内容——如何将每次的修改记录和时间完整地记录到批注当中呢？没错，我成功地实现了这个功能，现在就来分享给大家。
效果展示如下：
其实现原理是借助 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 函数，这时才逐渐意识到 Excel 的强大之处远不止于一个简单的计算器。如今，通过利用宏可以实现大部分具有逻辑功能的操作。然而，与此同时，Power BI 等新的工具又不断涌现出来。
评论 (0)