Excel工作表事件（4）- 单元格修订记录跟踪

Change事件看起来并不复杂，但是在很多应用场景，都会用到Change事件，并且可以给大家带来很多工作上的便利性。
例如很多用户都希望能够保存单元格内容的修订记录，但是靠人工记录下来这个修改过程，确实有些繁琐，合理使用Change事件，就可以实现这个功能，修订记录保存在单元格批注中。
当前数据表内容如下所示。

现在做如下修改：

Math_05 => CS_01
Tom => Jerry

修改后工作表如下图所示，修订记录自动添加到批注中。

示例代码如下。

Private Sub Worksheet_Change(ByVal Target As Range)Dim strCmt As StringApplication.EnableEvents = FalseWith TargetIf .Count = 1 ThenApplication.DisplayAlerts = FalseOn Error Resume NextstrCmt = .Comment.TextIf Err.Number > 0 ThenstrCmt = Date & "-" & .Value.AddComment strCmtElsestrCmt = strCmt & Chr(10) & Date & "-" & .Value.Comment.Text strCmtEnd IfOn Error GoTo 0Application.DisplayAlerts = TrueEnd IfEnd WithApplication.EnableEvents = True
End Sub

【代码解析】
第3行代码禁用系统事件激活。
第5行代码判断是否只是修改了单个单元格。
第6行代码禁止显示告警。
第7行代码忽略错误继续执行。
第8行读取单元格的注释，如果单元格中没有注释，那么第9行代码进行错误捕获。
第10行代码为生成批注内容。
第11行代码为单元格添加批注。
如果单元格已经存在批注，那么第13和14行代码将在批注中追加单元格的最新值。
第16行恢复系统的错误处理机制。
第17行恢复系统错误显示。
第20行代码启用系统事件激活。

Excel工作表事件（4）- 单元格修订记录跟踪相关推荐

在excel工作表中c1单元格_已知Excel工作表中A1单元格和B1单元格的值分别为“电子科技大学”、“信息中心”，要求在C1单元格显示“...
已知Excel工作表中A1单元格和B1单元格的值分别为"电子科技大学"."信息中心",要求在C1单元格显示" 更多相关问题所谓犯罪现象的特性,是指为 ...
3分钟学会在C ++中以编程方式合并Excel工作表中的单元格
合并和取消合并单元格是Microsoft Excel的一项简单且常用功能.合并单元格可能会在某些情况下很有用,例如,当工作表中有多个列共享相同的标题时,可以合并列上方的单元格以使其具有共同的标题.如果 ...
计算机一级excel单元格,在Excel工作表中选择单元格及其内容
在工作表 (工作表:在 Excel 中用于存储和处理数据的主要文档.也称为电子表格.工作表由排列成行或列的单元格组成.工作表总是存储在工作簿中.)中,您可以选择单元格.区域 (区域:工作表上的两个或多 ...
在excel工作表中c1单元格_Excel工作表中的11个逻辑函数应用技巧，中文解读，动图演示！...
逻辑函数,简单的理解就是返回结果为TRUE或FALSE的函数.TRUE,代表判断后的结果是真的,正确的,也可以用1表示:FALSE,代表判断后的结果是假的,错误的,也可以用0表示.在Excel工作表中 ...
删除一行下方单元格上移_快速删除Excel工作表多余空单元格
从其他地方复制了数据,有时候会出现多余的空单元格.手动删除很麻烦,就像下面的图中的工作表区域. 下面介绍一种方法,可以快速删除多余空单元格. 1.选中目标区域,在这里就选中A1:A9的单元格区域. 2 ...
indirect引用单元格/单元格区域/跨表引用(适用于引用不同工作表的相同单元格或者区域)
语法及参数 INDIRECT(ref_text, [a1]) Ref_text 必需.对单元格的引用,此单元格包含 A1 样式的引用.R1C1 样式的引用.定义为引用的名称或对作为文本字符串的单元格的 ...
python创建工作簿_创建工作簿、工作表和写入单元格
---------------------------------------------------------------- 学完本课程可继续巩固篇:https://edu.51cto.com/c ...
Excel批量以工作表指定位置单元格命名工作表
如下图工作簿中含有多个工作表,现在想要以每个工作表A1单元格作为工作表名称. 选中A1单元格点击下图选项(Excel插件,百度即可了解详细的下载安装方法,本文这里不作详细叙述) 点击[工 ...
excel表中怎么插入visio_如何插入或 Visio 中粘贴的 Excel 工作表-阿里云开发者社区...
嵌入或链接 Excel 工作表通过对象命令在插入菜单上的绘图在 Visio loadTOCNode(2, 'summary'); 使用插入菜单上对象命令在 Visio 绘图中插入 Excel ...

Excel工作表事件（4）- 单元格修订记录跟踪

Excel工作表事件（4）- 单元格修订记录跟踪相关推荐

最新文章

热门文章