友情提示:本文共有 426 个字,阅读大概需要 1 分钟。
有时候,在代码运行中,会因为某些原因造成错误而导致程序运行中断,而我们希望能够忽略错误,跳转到指定的语句继续执行,这时候就会用到错误转移语句。
语句一:On Error GoTo
我们首先新建一个工作簿,打开VBE,插入模块,输入以下代码:
Sub 删除工作表()On Error GoTo skipSheets("销售").DeleteExit Subskip:MsgBox "工作簿中无此工作表"End Sub
当出现错误时跳转到skip语句然后继续运行。
语句二:On Error Resume Next
新建一个工作簿,其中一个工作表名称改为销售,打开VBE,插入模块,输入以下代码:Sub 删除工作表()On Error Resume Next Sheets("销售").DeleteExit Subskip:MsgBox "工作簿中无此工作表"End Sub
大家可以看到,工作簿中并没有业绩表,运行代码时也未提醒错误,直接转到下一条语句删除销售工作表。
本文如果对你有帮助,请点赞收藏《VBA中常用的语句 错误转移语句》,同时在此感谢原作者。