Question

在vba中on error怎么对一个过程的错误进行多次判断

在vba中on error怎么对一个过程的错误进行多次判断举个例子，一个过程我分前，中，后三段来说明
我在前一段用发现了错误就跳过前段直接从中段执行，
在中段发现错误就跳到后段开始执行
后段中有错误就直接结束

Answer 1

按照你的想法，可能是下面的逻辑：

on error goto lab1:
'前段代码

lab1:
on error goto lab2:
'中断代码

lab2:
'后段代码

因为on error语句不是编辑选项，而是执行语句，只在此语句执行后产生效果，可以多次执行。

追问

谢谢，我也像你这样做过，问题就是如果第一段检测出问题了，那么第二段就检测不出来了。

追答

优秀的逻辑是避免GOTO，例如这样的：

ON ERROR RESUME NEXT '关闭一切报错

'进行操作1
IF 成功 THEN
    '...
ELSE
    '...
END IF

'进行操作2
IF 成功 THEN
    '...
ELSE
    '...
END IF

关键的技巧在于如何检测遇到错误，每一步都有详细的错误检测。

追问

谢谢你这么耐心的回答哈，我呢因为是在共享里面操作的，我就是想避开别人修改共享中的地址而导致的错误呢

追答

可以的，关键在于想办法检测各种情况进行判断。

Answer 2

Sub abc()
    On Error GoTo a
    错误代码1
a:
   On Error GoTo -1
   On Error GoTo b
   错误代码2
b:
   On Error GoTo -1
   On Error GoTo c
   错误代码3
c:
End Sub

追问

谢谢！，你的on error goto -1 是什么意思呢？ 我的问题可能就是这个的问题

追答

还需要回答吗？