轻松实现Excel单元格修改自动记录：VBA批注功力大显

2023-11-29 13:36:52

在Excel中实现单元格修改自动记录

在工作簿中，我们经常需要对单元格进行修改，以便更新数据或进行分析。但是，当我们对单元格进行修改后，却无法得知单元格的修改情况。这给我们的工作带来了不便。

为了解决这个问题，我们可以利用VBA编程来实现单元格修改的自动记录。

具体步骤如下：

打开需要进行单元格修改记录的工作簿。
在工作表模块的代码窗口中写入下面的全部代码：

Option Explicit
Dim RngValue As String

接下来，我们需要为工作表添加一个批注，以便记录单元格的修改情况。在需要添加批注的单元格上右键单击，然后选择“插入批注”。
在批注框中，输入单元格的修改情况，例如“修改了单元格A1的值”。
单击“确定”按钮，即可将批注添加到单元格中。
当您对单元格进行修改后，VBA代码将自动将修改情况记录到批注中。

以下是具体的代码示例：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:C10")) Then Exit Sub
    Dim rng As Range
    For Each rng In Target
        If rng.Value <> RngValue Then
            rng.AddComment rng.Value
            RngValue = rng.Value
        End If
    Next rng
End Sub

这段代码的作用是：

当工作表上的单元格发生改变时，触发Worksheet_Change事件。
如果修改的单元格不在A1:C10的范围内，则退出事件。
遍历修改的单元格。
如果修改的单元格的值与之前的值不同，则为单元格添加一个批注，批注的内容为修改后的值。
将修改后的值保存到变量RngValue中。

代码详解：

Worksheet_Change(ByVal Target As Range)是Worksheet对象的一个事件，当工作表上的单元格发生改变时，触发该事件。
If Not Intersect(Target, Range("A1:C10")) Then Exit Sub语句的作用是：如果修改的单元格不在A1:C10的范围内，则退出事件。
Dim rng As Range语句的作用是：声明一个Range类型的变量rng。
For Each rng In Target语句的作用是：遍历修改的单元格。
If rng.Value <> RngValue Then语句的作用是：如果修改的单元格的值与之前的值不同，则执行下面的代码。
rng.AddComment rng.Value语句的作用是：为单元格添加一个批注，批注的内容为修改后的值。
RngValue = rng.Value语句的作用是：将修改后的值保存到变量RngValue中。