Err.Raise仅在标准模块生效，工作表/工作簿报错问题咨询

1. 为什么Err.Raise在工作表/工作簿模块中失效？ #

工作表、工作簿模块属于特殊类模块，Excel对这类模块的事件处理有特殊的错误拦截机制。当这些模块中的代码触发Err.Raise且没有本地错误捕获时，Excel会直接拦截该错误，将其转换为通用的“未处理运行时错误”，而不会让错误沿调用栈向上冒泡。这是因为Excel默认会保护事件流程不被自定义错误打断，导致自定义错误信息丢失。

2. 替代方案 #

方案一：在事件模块中添加本地错误捕获，手动传递错误信息 #

在工作表/工作簿的事件过程中加入错误捕获逻辑，捕获到错误后，将错误编号和描述传递到标准模块或类模块中处理，而非依赖自动冒泡。

示例代码：
工作表模块（如Sheet1）：

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    
    ' 执行可能出错的逻辑，比如调用类模块方法
    Dim myClass As New CustomErrorClass
    myClass.TriggerError
    
    Exit Sub
ErrorHandler:
    ' 将错误信息传递到标准模块处理
    ErrorHandlerModule.HandleError Err.Number, Err.Description
End Sub

标准模块（ErrorHandlerModule）：

Sub HandleError(errNum As Long, errDesc As String)
    ' 自定义错误处理逻辑：弹窗提示、日志记录等
    MsgBox "发生错误：" & errDesc & vbCrLf & "错误代码：" & errNum, vbCritical
    
    ' 如需继续向上抛出错误，可在此重新触发
    Err.Raise errNum, , errDesc
End Sub

方案二：将核心逻辑迁移到标准/普通类模块，事件仅做触发 #

把可能产生错误的业务逻辑（如计算、值处理）全部移到标准模块或普通类模块中，工作表/工作簿事件只负责调用这些逻辑，不处理具体业务。这样错误会在标准模块/类模块中正常冒泡，不会被Excel的事件机制拦截。

示例代码：
工作表模块：

Private Sub Worksheet_Calculate()
    ' 事件仅调用标准模块的逻辑
    CalculationModule.ProcessSheetCalculation Me
End Sub

标准模块（CalculationModule）：

Sub ProcessSheetCalculation(targetSheet As Worksheet)
    On Error GoTo ErrorHandler
    
    ' 具体计算逻辑，触发自定义错误
    If targetSheet.Range("A1").Value = 0 Then
        Err.Raise -1001, , "A1单元格不能为0"
    End If
    
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbCritical
    ' 如需继续抛错，保留Err.Raise即可
    Err.Raise Err.Number, , Err.Description
End Sub

方案三：使用自定义错误对象传递信息 #

如果需要更灵活的错误传递，可以定义一个自定义类封装错误信息，在事件模块捕获错误后，实例化该类并传递到处理模块，替代依赖Err对象的方式。

自定义类模块（CustomError）：

Public Number As Long
Public Description As String
Public Source As String

工作表模块：

Private Sub Workbook_Open()
    On Error GoTo ErrorHandler
    
    Err.Raise -1000, , "工作簿打开时出错"
    
    Exit Sub
ErrorHandler:
    Dim customErr As New CustomError
    customErr.Number = Err.Number
    customErr.Description = Err.Description
    customErr.Source = Err.Source
    
    ErrorHandlerModule.HandleCustomError customErr
End Sub

标准模块处理：

Sub HandleCustomError(errObj As CustomError)
    MsgBox "错误来源：" & errObj.Source & vbCrLf & _
           "错误代码：" & errObj.Number & vbCrLf & _
           "错误描述：" & errObj.Description, vbCritical
End Sub

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