怎么制作Excel表格监控器,将别人的每一步操作都记录在案
时间:2022-03-25 07:47:09
今天教大家做一个VBA技巧最强操作,那就是制作一个属于你的Excel表格监控器,将别人对你的表格的每一步修改操作全部记录下来。这样再也不用担心别人到底修改的是哪一步操作,我们也可以对数据进行恢复。
下面我们来看一下具体的效果展示。
演示效果图
如上图:我们有一个操作日志的表格和每日销售明细的表格。操作日志是记录每一次操作的记录,每日销售明细是每天需要登记的数据,当我们在每日销售明细中进行修改操作的时候,操作日志里面就会将每一次修改记录下来。是不是感觉很神奇呀,这就是VBA功能的强大之处。
下面我们来看一下制作的具体操作。
第一步:新建对应的工作表,我们需要每天操作的表格和需要记录的工作表(操作日志)。如下图:
第二步:按alt+f11或右键点击工作表名称,进入代码编辑窗口,双击工程文件thisworkbook进入代码编辑窗口。如下图:
第三步:双击thisworkbook进入代码编辑窗口,输入以下VBA代码即可。如下图:
代码如下:
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
第四步:另存为启用宏的工作簿就可以正常使用了。
注意点:
1、DIM定义的名称为XX,代码中的名称前后必须保持一致;
2、里面需要记录的工作表名称为:操作日志,代码前后必须要保持一致。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
如何更改excel工作表标签的颜色
![](https://img.aspxhome.com/file/2023/9/a141129_0s.jpg)
word 中部两端对齐的方法
![](https://img.aspxhome.com/file/2023/9/33269_0s.png)
excel中制作目录并实现超链接的方法
word行间距怎么设置?
![](https://img.aspxhome.com/file/2023/4/34794_0s.gif)
Word2007:插入表格的行与列
![](https://img.aspxhome.com/file/2023/4/25264_0s.jpg)
excel2003两个工作表数据对比的教程
excel打开提示格式文件扩展名不一致该怎么办?
![](https://img.aspxhome.com/file/2023/0/a141770_0s.jpg)
Win10专业版打开程序响应很慢怎么办?
![](https://img.aspxhome.com/file/2023/8/50228_0s.jpg)
Word如何改变文字背景颜色默认底色为灰色或其他
![](https://img.aspxhome.com/file/2023/6/33966_0s.gif)
Excel启动问题的常规步骤
Excel中矩形和椭圆绘图工具的使用技巧
![](https://img.aspxhome.com/file/2023/1/a156681_0s.jpg)
Excel自动换行方法
转发周知!工作最实用Word快捷键
![](https://img.aspxhome.com/file/2023/2/17102_0s.jpg)
excel显示公式的教程
word2007中如何输入生僻字 word生僻字输入技巧分享
Excel简单操作技巧,比别人更快完成工作
![](https://img.aspxhome.com/file/2023/4/39144_0s.gif)
Word如何放大带圈字技巧
![](https://img.aspxhome.com/file/2023/2/20702_0s.png)
excel如何快速查找两列两行两个表里数据的不同
![](https://img.aspxhome.com/file/2023/5/a140605_0s.jpg)
office 365 续费用户操作教程
![](https://img.aspxhome.com/file/2023/8/16228_0s.png)
excel规划求解怎么用?Excel使用规划求解方法
![](https://img.aspxhome.com/file/2023/8/41168_0s.jpg)