Excel操作记录如何生成日志

excel使用技巧大全我们在编辑excel表单时,如果我们可以不时记录我们的操作过程,那么在我们需要检查修改时就非常方便了。

像下图所示,我们只要修改了一个工作表中的数据,就会记录在“日志”表中相关的修改时间、工作表名称、原始值、修改后和操作的单元格地址等等相关信息。
日志是不是感觉很神奇呢?如果你想在你自己的表中添加一个日志功能,一起来看看该如何操作。

第1步:添加“日志”工作表,输入标题行。
日志第2步:单击工作表菜单中的“查看代码”命令。
日志 第3步:在打开的窗口中,双击窗口中的“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(“日志”).[A100000].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

猜你喜欢

转载自blog.csdn.net/qq_29234631/article/details/88524171
今日推荐