Worksheet_Change 是 Microsoft Excel VBA（Visual Basic for Applications）中的一个‌工作表事件‌。它在用户更改工作表中的单元格内容，或通过外部链接引起单元格内容更改时自动触发。 ‌

这个事件的核心作用是允许开发者编写自定义代码，在数据发生变化时执行特定的操作，从而实现数据验证、自动记录、动态更新等功能。‌

主要特性与用途

·‌触发条件‌：当工作表中的任意单元格或单元格区域的值被修改时，Worksheet_Change 事件就会被触发。这包括用户直接输入、从其他地方复制粘贴，或通过公式计算结果更新。 ‌

·‌事件参数‌：事件会将一个 Target 参数传递给编写的代码，这个参数代表了被更改的单元格或单元格区域的 Range 对象。开发者可以通过判断 Target 的地址、行、列或值来决定如何响应。 ‌

·‌核心应用场景‌：

·‌数据验证与纠错‌：在用户粘贴不符合预设数据有效性规则的数据时，自动撤销操作并提示错误，弥补 Excel 原有数据有效性在处理粘贴时的不足。 ‌

·‌自动记录与追踪‌：将输入的值自动保存到工作表的其他位置（如历史记录列），实现数据的版本追踪或审计日志。 ‌

·‌动态更新与联动‌：根据某个单元格的输入，自动更新其他相关单元格的值、格式或内容。例如，当输入的数值超过100时，自动将相邻单元格的背景色设为红色。 ‌

·‌限制输入范围‌：例如，只允许在特定单元格（如 A2）输入数据，并在该单元格变化时执行特定逻辑。 

------我的方法------​

Sub Worksheet_Change(ByVal Target As Range)    '仅变更某列的中的值时触发该事件    Dim rng As Range
    If Intersect(Target, Range("A:A")) Is Nothing _        Or Target.Rows.Count = Rows.Count Then '某行全选时不触发       Exit Sub    End If    Application.EnableEvents = False ' 防止无限循环    '当满足选中A列中的内容时，可以按照选中的单元格依次处理    For Each rng In Intersect(Target, Range("A:A"))        'Do somthing，如当单元格被修改时弹出提示        MsgBox "更改的值为: " & Target.Value    Next rng    Application.EnableEvents = True ' 防止无限循环
End Sub

常见注意事项

1. 不要放在标准模块（如 Module1）中

   ：必须放在具体工作表的代码页中，如Sheet1。
   
   
   

2. 避免无限循环

   ：如果在事件中修改了单元格，会再次触发 Change 事件。需要结合以下语句使用。

   Application.EnableEvents =False' 防止无限循环

3. Undo 功能可能失效

   ：VBA 修改内容后，Excel 的“撤销”按钮通常不可用。Ctrl+Z不好使，所以要记得保存历史方便找回😔。

4. 批量修改也会触发一次

   ：如果用户粘贴区域覆盖多个单元格，Target 就是一个多单元格区域。此时就可以根据ForEach rng InIntersect(Target, Range("A:A"))进行循环处理了哦。

阅读原文：原文链接