18、Excel VBA 代码调试与 Office 集成实战

Excel VBA 代码调试与 Office 集成实战

1. VBA 代码错误处理与调试

在 VBA 编程中，错误处理是确保代码稳定性和可靠性的重要环节。下面我们将详细介绍如何处理代码中的错误，并进行有效的调试。

1.1 带有错误处理的 GetSalesTotal 函数

以下是 GetSalesTotal 函数的代码，它包含了基本的错误处理逻辑：

Function GetSalesTotal(RangeToTotal As Range) As Currency
    Dim currReturn As Currency
    Dim cell As Range
    Dim temp As Currency
    Dim sErrMsg As String
    On Error GoTo Err_Handle
    For Each cell In RangeToTotal
        temp = temp + cell.Value
    Next cell
    currReturn = temp
Exit_Function:
    GetSalesTotal = currReturn
    Exit Function
Err_Handle:
    If Err.Number = 13 Then
        sErrMsg = "A value in your data may not be numeric. Please check your data"
    Else
        sErrMsg = "An unexpecte