Что происходит, возобновление следующего в конце кода означает в vba?

Question

Может ли кто-нибудь объяснить мне, что означает этот код? Я предполагаю, что если ошибка произошла, перейдите в раздел ErrHandler, но почему в конце есть резюме следующего конца и Exit sub inbetween?

On Error Goto ErrHandler: 
N = 1/0 ' cause an error 
' 
' more code 
' 
Exit Sub 
ErrHandler: 
' error handling code 
Resume Next 
End Sub 

Я также написал короткий код, чтобы лучше понять. Если вы запустите его в VBA excel, вы получите 4 числа, которые появляются по порядку: 1,2,2,4 Я понимаю первые 2 числа, но почему это третий номер 2 и последний 4? btw для этого примера ошибка не возникла.

On Error Goto Err: 
n = 1 
MsgBox n 
Err: 
n = 2 
MsgBox n 
Resume Next 
MsgBox 4 

Resume Next 
End Sub 

Answer 1

Он поднимает выполнение тела метода в точке после того, где произошла ошибка.

Answer 2

Из документации On Error:

Указывает, что при возникновении ошибки во время выполнения, управление переходит на заявление сразу после заявление, в котором произошла ошибка, и выполнение продолжается с этого момента.

Answer 3

Уже было сказано, что Resume Next будет выполнять выполнение в точке после возникновения ошибки. Существует также Возобновление, которое подбирает выполнение, начиная с строки, вызвавшей ошибку, и Resume, которая берет выполнение на указанной метке.

Итак, это то, что происходит в коде, при условии:

1. N = 1/0 возникает деление на ноль ошибок
2. выполнение перемещается к метке ErrHandler.
3. Код ошибки будет работать до тех пор, пока он не возобновится.
4. Возобновление следующего будет перемещать выполнение в строку после N = 1/0. Поскольку вы возвращаетесь назад, имеет смысл, что ваш код обработки ошибок может сделать что-то вроде этого N = 1, иначе остальная часть кода попытается использовать N, который не инициализирован, и вы получите еще одну ошибку.

Следующая ссылка дает простое объяснение oerror обращения и заявления три резюме:

http://www.cpearson.com/excel/ErrorHandling.htm