Excel-工作表change事件

Excel工作表Change事件是最常用的事件代码之一，通俗的讲工作表内容发生变化时，此事件将被激活。
Change事件的过程框架如下，其中参数Target是Range类型变量，代表工作表中发生变化的单元格范围。

Private Sub Worksheet_Change(ByVal Target As Range)
' Your code
End Sub

下面来看一个最简单示例，将代码写入工作表模块，如下图所示。

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox "发生变化的单元格是：" & Target.Address
End Sub

在Sheet2工作表中选择B3至E8单元格区域，输入“2”，然后按<Ctrl+Enter>快捷键填充数据，将显示如下图所示的提示框，Target.Address将返回发生变化的单元格区域的绝对地址。

---

有时需要指定Change事件的有效单元格区域，那么就需要做代码过程中进行相应的判断，使用的场景基本上可以分为如下两种。

• 场景1：监测单个单元格
  顾名思义，只有某个指定单元格发生变化时，才进行后续的处理。首先判断发生变化的单元格是为单个单元格，接着使用Target.Address = Range(TARGET_RNG).Address作为判断条件，判断是否为指定的单元格，如果需要监测其他单元格，只需要修改常量 TARGET_RNG。

Private Sub Worksheet_Change(ByVal Target As Range)
    Const TARGET_RNG = "A1"
    Application.EnableEvents = False
    With Target
        If .Count = 1 Then
            If .Address = Range(TARGET_RNG).Address Then
 
                ' Your Code
 
            End If
        End If
    End With
    Application.EnableEvents = True
End Sub

• 场景2：监测指定区域
  如果需要监测某个单元格区域，例如：A5:B10的单元格区域内的某个单元格发生变化时，运行相关代码，可以使用下面的代码。这个应用场景可以兼容“场景1”。

Private Sub Worksheet_Change(ByVal Target As Range)
    Const TARGET_RNG = "A5:B10"
    Application.EnableEvents = False
    With Target
        If .Count = 1 Then
            Set c = Application.Intersect(Range(TARGET_RNG), Target)
            If Not c Is Nothing Then
            
            ' Your Code
            
            End If
        End If
    End With
    Application.EnableEvents = True
End Sub