Об ошибке Оператор GOTO в VBA

Question

У меня есть этот код, чтобы найти конкретное значение на листе excel с помощью команды Ctrl + F, но когда код не найдет ничего, я хочу, чтобы он послал сообщение.

sub test() 
    f=5 
    do until cells(f,1).value=""  
    On Error goto hello 
     Cells.Find(what:=refnumber, After:=ActiveCell, LookIn:=xlFormulas, _ 
        lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
        MatchCase:=False, SearchFormat:=False).Activate 

f=f+1 

     hello: Msgbox"There is an error" 

    loop 

    endsub 

Проблема в том, что даже если ошибка не найдена, сообщение все еще отображается. Я хочу, чтобы окно сообщения отображалось только при возникновении ошибки.

Answer 1

Для этого случая вы должны использовать Exit Sub или Exit Function, и пусть ваш hello ярлык к последней части кода. Смотрите пример:

Sub test() 

    f = 5 

    On Error GoTo message 

check: 
    Do Until Cells(f, 1).Value = "" 

     Cells.Find(what:=refnumber, After:=ActiveCell, LookIn:=xlFormulas, _ 
       lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
       MatchCase:=False, SearchFormat:=False).Activate 
    Loop 

    Exit Sub 

message: 
    MsgBox "There is an error" 
    f = f + 1 
    GoTo check 

End Sub 

Answer 2

Вам нужен exit sub (или exit function, если это является частью функции вместо суб) строки кода перед hello: Msgbox"There is an error", иначе всегда будет выполняться код под ним. Смотрите этот пост в качестве справочно-

How to stop VBA macro automatically?

кодекса ПРИМЕР-

on error goto bad 
    call foo 
    exit sub 
bad: 
    msgbox "bad" 
    'clean up code here 
exit sub 

public sub foo 
    msgbox 1/0 'could also trigger the error handling code by doing err.raise, to use user defined errors 
end sub 

Update:

Чтобы исправить петлю, вы должны переместить код обработки ошибок вне петли , но до сих пор сохраняйте exit sub, чтобы предотвратить его выполнение независимо.

sub test() 
f=5 

do until cells(f,1).value=""  

On Error goto hello 

    Cells.Find(what:=refnumber, After:=ActiveCell, LookIn:=xlFormulas, _ 
       lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
       MatchCase:=False, SearchFormat:=False).Activate 


loop 

exit sub 

hello: 
    Msgbox"There is an error" 

endsub