16、Excel VBA 编程：错误处理与调试技巧

life6

于 2025-11-19 12:17:58 发布

阅读量11

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel VBA入门魔法文章标签： Excel VBA 错误处理调试技巧

本文链接：https://blog.youkuaiyun.com/life6/article/details/155367049

Excel VBA入门魔法专栏收录该内容

26 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

Excel VBA 编程：错误处理与调试技巧

1. 错误处理技巧

1.1 运行时错误处理示例

下面是一个处理运行时错误的示例代码：

Sub SelectionSqrt()
    Dim cell As Range
    Dim ErrMsg As String
    If TypeName(Selection) <> "Range" Then Exit Sub
    On Error GoTo ErrorHandler
    For Each cell In Selection
        cell.Value = Sqr(cell.Value)
    Next cell
    Exit Sub
ErrorHandler:
    Select Case Err.Number
       Case 5 'Negative number
         Resume Next
       Case 13 'Type mismatch
         Resume Next
       Case 1004 'Locked cell, protected sheet
         MsgBox "Cell is locked. Try again.", vbCritical, cell.Address
         Exit Sub
       Case Else
         ErrMsg = Error(Err.Number)
         MsgBox "ERROR: " & ErrMsg, vbCritical, cell.Address