在VBA的Worksheet_Change中调用自定义RegExpMatch函数报错的问询

1. 修正自定义RegExpMatch函数（后期绑定，无引用依赖） #

把你的自定义函数改成以下版本，采用后期绑定创建正则对象，无需在Tools->References中添加任何引用，可适配所有机器：

Function RegExpMatch(cellValue As Variant, pattern As String) As Boolean
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    With regex
        .pattern = pattern
        .IgnoreCase = False ' 区分大小写，按需调整
        .Global = False ' 仅匹配一次
    End With
    
    RegExpMatch = regex.Test(cellValue)
End Function

你之前的函数在公式中能运行，但在事件里出错，大概率是调用时传递了单元格对象而非值，或是原函数用了早期绑定（需添加引用）导致分发后出错。

2. 修复Worksheet_Change子程序 #

修改事件代码，重点处理触发范围、事件禁用避免循环、参数传递三个问题：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应J3单元格的变化
    If Not Intersect(Target, Me.Range("J3")) Is Nothing Then
        Application.EnableEvents = False ' 禁用事件，防止保存操作循环触发Change
        
        On Error GoTo Cleanup ' 出错时确保恢复事件
        
        ' 传递单元格的值而非对象给自定义函数
        If RegExpMatch(Me.Range("J3").Value, "^[A-Z]{3}-\d{3}$") Then
            ThisWorkbook.Save ' 匹配正则时保存文件
        End If
        
Cleanup:
        Application.EnableEvents = True ' 恢复事件
    End If
End Sub

3. 错误原因说明 #

运行时错误424（对象要求）的核心原因：

• 调用RegExpMatch时传递了单元格对象（如Me.Range("J3")）而非单元格的值（Me.Range("J3").Value），函数参数类型不匹配
• 原自定义函数采用早期绑定创建正则对象（如Dim regex As RegExp），未添加引用时对象创建失败

4. 额外注意事项 #

• 保存文件时需选择启用宏的格式.xlsm，否则分发后宏会被禁用
• 若不需要区分大小写，可将函数中的.IgnoreCase = False改为True
• 测试时手动修改J3的值，避免通过代码修改单元格时的意外触发

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