• 欢迎访问人家博客,WordPress信息,WordPress教程,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站,欢迎加入人家博客 QQ群
  • Git主题现已支持滚动公告栏功能,兼容其他浏览器,看到的就是咯,在后台最新消息那里用li标签添加即可。
  • 最新版Git主题已支持说说碎语功能,可像添加文章一样直接添加说说,新建说说页面即可,最后重新保存固定连接,演示地址
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏人家博客吧

是谁?偷偷修改了我的Excel表格

OFFICE admin 2年前 (2018-07-20) 45次浏览 0个评论

在编辑excel表格时,如果能时时记录我们的操作过程,在需要查看修改过程时就很方便了。


如下图演示,只要修改任一个工作表中的数据,就会在“日志”表中记录修改时间、工作表名称、原值、修改后操作的单元格地址信息。



是不是很逆天的效果,如果你想在自已的表格中增加日志功能,就跟兰色一起操作吧。


第一步:添加“日志”工作表,输入标题行。



第二步: 单击工作表右键菜单中的“查看代码”命令。



第三步:在打开的窗口中,双击工程窗口中的‘Thisworkbook“,然后把下面的代码粘贴到右侧的空白位置。

代码:


Dim XX


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next

If Sh.Name <> “日志” And Target.Rows.Count = 1 Then

With Sheets(“日志”)

If XX <> Target Then

 ROW1 = Sheets(“日志”).[A65536].End(xlUp).Row + 1

 .Cells(ROW1, 1) = Format(Now, “yyyy-mm-dd hh:mm:ss”)

 .Cells(ROW1, 2) = Sh.Name

 .Cells(ROW1, 3) = XX

 .Cells(ROW1, 4) = Target.Value

 .Cells(ROW1, 5) = Target.Address

 End If

 End With

End If

End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

XX = Target.Value

End Sub



第四步:关闭上面的代码窗口,回到工作表中后,文件 – 另存为 – 类型:Excel启用宏的工作簿



设置完成!

注:删除代码即可让日志失去记录作用


如果你是同学,长按下面二维码 – 识别图中二维码 – 关注,就可以每天和兰色一起学Excel了。


本篇文章来源于微信公众号: Excel精英培训


极客公园 , 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:是谁?偷偷修改了我的Excel表格
喜欢 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址