VBA: How long does On Error Resume Next work?

问题

I\'m reading up on how to use On Error Resume Next and I\'m trying to figure out how long that line will apply to the program. On the Microsoft site, I found this sentence: \"An On Error Resume Next statement becomes inactive when another procedure is called.\" What exactly does this mean? What is considered to be a procedure?

I ask because I\'m using the line in my program, but I don\'t want it to Resume Next all the runtime errors which occur, just the obvious one on the next line.

Code:

Dim zRange As Range

Call FilterTableFor(fieldNameColumn, Array(\"baseunitprice\", \"burden\", \"MTLBURRATE\", \"PurPoint\", \"Vendornum\"))

On Error Resume Next
Set zRange = commentsColumnRange.SpecialCells(xlCellTypeVisible)
zRange.Formula = \"target\"

Call FilterTableFor(fieldNameColumn)

I\'ve also found (and known for a while) that On Error or GoTo lines are considered poor coding. Is there a Try-Catch which I can use for a line like this?

I\'m thinking something like this:

Dim zRange As Range

Call FilterTableFor(fieldNameColumn, Array(\"baseunitprice\", \"burden\", \"MTLBURRATE\", \"PurPoint\", \"Vendornum\"))

Try
Set zRange = commentsColumnRange.SpecialCells(xlCellTypeVisible)
zRange.Formula = \"target\"
Catch()

Call FilterTableFor(fieldNameColumn)

Where I don\'t even do anything with it, as I don\'t feel a need to.

Thanks for your time.

回答1:

You only want to use "On Error Resume Next" when

You know why the error occurs.
You know that it will not affect other parts of the code.
You use "On Error Goto 0" immediately after the code where the error occurs.

Having said that, you should almost NEVER use it. You should figure out why the error occurs and code to handle it.

What the website is saying is that once your are out of the sub or function that called it the resume next will no longer be in affect and your errors will raise as they should.

A better alternative is to use goto in this fashion. But some people frown on this almost as much.

sub SomeSub()
    On Error Goto TestFailed

    'Some code

    'Some code

    'Some code

Exit sub

TestFailed:
    'Some code here to alert you to and/or handle the fallout of the error.
End sub

回答2:

SCOPE OF ON ERROR... STATEMENT

The effec5 of ON ERROR ... ends as soon as one of the following is encountered:

Another ON ERROR .... (Maybe in the form of ON ERROR RESUME x or ON ERROR GOTO x)
Exit Sub / Exit Function within the same sub/function where defined.
End Sub / End Function of the sub/function where defined.

IS IT BAD TO USE ON ERROR RESUME NEXT?

Yes and No.

I would say don't use without knowing what the effect of this statement would be. Avoid if possible. Keep the scope short wherever not possible.

To nullify the effect of an ON ERROR RESUME NEXT statement, you can call ON ERROR GOTO 0

回答3:

To answer your question "How long does On Error Resume Next work?"

The answer is: until the next definition of On error ...

So if you define an On error resume next, it will skip every error until you define a On error goto 0 or On error goto label

回答4:

You don't always need a bunch of code to handle an error, but you really should do something with it. Maybe just have your code change the cells.font.color property to vbRed. Simply doing On Error Resume Next (a line of code that might error) On Error Goto 0 is terribly poor form.

And like others have pointed out, On Error Goto Label is essentially VBA's version of Try ... Catch, and I use it frequently

来源：https://stackoverflow.com/questions/31753201/vba-how-long-does-on-error-resume-next-work

标签

vba

try-catch

onerror