VBA异常处理和工作表排序

晚上还要加班，今天就不多BB了，直接放个demo好了

简单异常处理

Option Explicit

Sub errHandlingOne()
    '异常处理示例
    'Err.Number对象显示错误代码，Error(Err.Number)显示于错误代码对应错误类型
    'Err对象默认属性是Err.number 所以可以省略
    On Error Resume Next
    MsgBox 1 / 0
    If Err.Number <> 0 Then
        MsgBox "发生错误，错误代码为:" & Err.Number & ",错误类型为:" & Error(Err.Number), , "错误提示"
    End If
End Sub

Sub errHandlingTwo()
    '异常处理示例
    'Err对象默认属性是Err.number 所以省略.number也可以正常运行
    On Error Resume Next
    MsgBox 1 / 0
    If Err <> 0 Then
        MsgBox "发生错误，错误代码为:" & Err & ",错误类型为:" & Error(Err), , "错误提示"
    End If
End Sub

下面是对工作簿内的工作表进行排序

Option Explicit

Dim shtCount As Integer

Sub sortSheet()
    
    '工作表排序

    '先设置屏幕别滚动
    Application.ScreenUpdati