如何让检测单元格区域特定文本的Worksheet_Change事件VBA代码生效？

一、让Worksheet_Change事件自动生效的关键 #

你的代码逻辑本身没问题，但要让它在工作表变化时自动运行，必须把代码放在对应工作表的代码模块里，操作步骤：

1. 按Alt+F11打开VBA编辑器
2. 在左侧「工程资源管理器」中，双击你要生效的工作表（比如Sheet1、Sheet2）
3. 把代码粘贴到右侧的代码窗口，保存文件即可

二、优化后的完整代码（解决原代码的潜在问题） #

原代码存在变量未声明、无错误处理、未处理“符合条件的单元格被修改后AF10不重置”的问题，优化后的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    Dim Cell As Range
    Dim certainText As String
    Dim isFound As Boolean
    
    Application.EnableEvents = False
    On Error GoTo Cleanup ' 确保事件不会因报错一直关闭
    
    ' 定义监控的单元格区域和要检测的文本
    Set Rng = Me.Range("Z10:Z35")
    certainText = "Pc Owner"
    isFound = False
    
    ' 只有修改的单元格在监控区域内才执行，提升效率
    If Not Intersect(Target, Rng) Is Nothing Then
        For Each Cell In Rng.Cells
            ' InStr支持不区分大小写检测，vbTextCompare表示忽略大小写
            If InStr(1, Cell.Value, certainText, vbTextCompare) > 0 Then
                isFound = True
                Exit For ' 找到目标文本就停止循环，节省资源
            End If
        Next Cell
        
        ' 根据检测结果设置AF10的内容
        Me.Range("AF10").Value = IIf(isFound, "DONE", "")
    End If

Cleanup:
    Application.EnableEvents = True
End Sub

三、检测单元格区域中的特定词汇 #

1. 模糊匹配（包含指定文本即可）

上面的代码用InStr或Like "*" & certainText & "*"就能实现，适合只要文本中包含目标内容就触发的场景。

2. 精确匹配（检测独立单词）

如果需要检测句子中是否存在独立的特定词汇（比如避免把"OwnerShip"中的"Owner"误判为目标词汇），可以用正则表达式实现单词边界匹配，代码示例：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    Dim Cell As Range
    Dim certainWord As String
    Dim isFound As Boolean
    Dim regEx As Object
    
    Application.EnableEvents = False
    On Error GoTo Cleanup
    
    Set Rng = Me.Range("Z10:Z35")
    certainWord = "Owner"
    isFound = False
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 配置正则规则：全局匹配、忽略大小写、匹配独立单词
    With regEx
        .Global = True
        .IgnoreCase = True
        .Pattern = "\b" & certainWord & "\b" ' \b代表单词边界
    End With
    
    If Not Intersect(Target, Rng) Is Nothing Then
        For Each Cell In Rng.Cells
            If regEx.Test(Cell.Value) Then
                isFound = True
                Exit For
            End If
        Next Cell
        
        Me.Range("AF10").Value = IIf(isFound, "DONE", "")
    End If

Cleanup:
    Set regEx = Nothing
    Application.EnableEvents = True
End Sub

内容的提问来源于stack exchange，提问作者JASON