发布网友 发布时间:2023-07-13 15:11
共2个回答
热心网友 时间:2023-09-11 06:50
第一种捕捉方法:
1、语法:
On Error GoTo Err_Handle '如果遇到错误就跳转到错误处理代码
语句xxxxx
Exit Sub/Function(如果没有这条语句,即使没有错误也会执行错误处理语句)
Err_Handle: 语句 xxxxxx
2、举例:
Sub 查找数字() ’本段代码查找电子表格中有没有数字12
On Error GoTo Err_Handle
MsgBox Cells.Find(12).Address
Exit Sub '如果没有这个退出过程语句,会一直执行下去
Err_Handle:
MsgBox ("不存在该数字")
End Sub
(1)、电子表中数据和代码
(2)、查找12的结果:
(3)、查找13的结果:
热心网友 时间:2023-09-11 06:51
首行加一段