利用Excel VBA代码编写日志

利用Excel VBA代码编写日志,查看表格操作修改记录。

在编辑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启用宏的工作簿。

设置完成!

©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容

  • WORD: 1、快速转换英文大小写 按Shift+F3可以快速转换英文大小写格式 2、输入今天的日期 按Alt+S...
    伊丽莎白丽阅读 4,834评论 0 1
  • 看看下面的Excel界面截图,“排序”和“筛选”往往在一起,这大概是很多数据需要先排序后筛选吧! 在Excel 2...
    完美Excel阅读 29,249评论 1 5
  • VBA订制工具栏 http://club.excelhome.net/thread-1047254-1-1.htm...
    大海一滴写字的地方阅读 6,709评论 0 0
  • sqlmap用户手册 说明:本文为转载,对原文中一些明显的拼写错误进行修正,并标注对自己有用的信息。 ======...
    wind_飘阅读 6,340评论 0 5
  • 这里千里清秋 请多指教~ヽ(•̀ω•́ )ゝ 赵云 好不容易看上一个男人,结果晚上做梦那个男人就大变样,脸还是那张...
    千里清秋c阅读 2,948评论 1 1