晚上还要加班,今天就不多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