经过一段时间的忙碌,我终于又回来了。废话不多说,今天给大家带来一个非常有趣的内容——如何将每次的修改记录和时间完整地记录到批注当中呢?没错,我成功地实现了这个功能,现在就来分享给大家。
效果展示如下:
其实现原理是借助 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)