怎么制作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、里面需要记录的工作表名称为：操作日志，代码前后必须要保持一致。
0
投稿猜你喜欢
在通常的工作中，为了方便文件共享，我们都将加入家庭组网，但这还不够。我们还需要启动网络发现，以便其他人的计算机可以找到我们。但是，很多用户不- PPT怎么画甜甜圈图形？ppt中想要画一个孩子喜欢的甜甜圈，该怎么画呢？下面我们就来看看ppt设计甜甜圈的教程，需要的朋友可以参考下ppt中
- 不少用户表示，Win7开关机时系统总是弹出“Windows Update”的窗口，提示用户重新启动计算机以完成重要更新的安装。不少用户都遇到
- ppt怎么使用OK插件给人物图片换色？ppt中想要给图片中的人物调色，该怎调色呢？我们可以使用ok插件来调色，下面我们就来看看详细的教程，需
- 在win10系统上玩帝国时代3的小伙伴非常的多而很多的新玩家也都被它所吸引要下载玩，但是新用户很多都不知道该怎么联机，下面就来看看详细的教程
- 键盘NumLock键无法使用怎么办？如果需要使用键盘上的数字小键盘的话，那么就需要启用NumLock，但是最近有用户发现，NumLock键怎
- Win11无线网卡设备无法启动代码10怎么解决？有一些朋友会遇到这样的问题，这跟你使用什么无线网卡无关，不少用户在网络上搜索了各种各样的解决
- 现在我们在各种地方都可以看到各种二维码，比如微信和支付宝的收款和付款的二维码，微信用户的账号二维码，在各种餐厅进行扫描点单，健康码，行程码，
- 具体操作如下： 一定是使用替换功能，而且利用颜色替换就可以。替换完发现不对，如果都是20的话还可以都替换成20，但如果红色位置不都是20不就
- 睡眠是计算机的一种待机模式，许多用户在短暂离开后更喜欢睡眠模式而不是将其关闭电脑。但是有些win7用户的电脑休眠后会自动唤醒是怎么了？下面跟
- Mac电脑如何设置屏幕保护程序？屏保是我们显示个性的重要途径,也是保护我们的电脑安全的一个重要方法。MAC用户想要修改自己的屏保该怎么办呢?
- 在操作Windows7系统时候，有时候会出现一些莫名其妙的错误，用户对于这些错误往往不知道该如何解决。最近一位Windows7用户在使用电脑
- CorelDRAW2019 for Mac使用此款高级图形设计软件，随时随地使用您所需的专业矢量插图、页面布局、图片编辑和设计工具，让工作更
- 最近关于 MacBook 要上触控屏的话题被讨论很多。一方面有人发现 macOS Big Sur 中很多 UI 设计都在为触控操作做优化，比
- 戴尔电脑U盘重装Win10怎么操作？不少朋友想要了解如何重装，从制作U盘启动盘开始，到U盘插入电脑按什么快捷键，这一系列的操作都想要有完整的
- 自从换成WIN7sp1之后，新型的睡眠模式就一直无法正常使用，接下来为大家详细介绍下WIN7无法正常睡眠问题解决方法，感兴趣的你可不要错过了
- 1.“福”到了依次单击“插入→艺术字→艺术字样式1”，在文本框中输入“福”字，字号设为96，字体设为华文行楷，单击“确定”按钮。在编辑区域得
- win11怎么更改盘符？win11系统中默认的磁盘想要换一个名称，该怎么修改磁盘的名称呢？比如把E盘改成F盘，下面我们就来看看Win11系统
- Excel中经常需要用函数进行填充颜色，填充颜色具体该如何利用函数达成效果呢?下面是小编带来的关于excel表用函数填充颜色的方法，希望阅读
- 我们在编辑excel表格的时候，总会遇到遇到批量删除单元格内数据的情况，如果是逐个单元格删除数据那么只需点击Delete键即可，如果要批量去
