关于 VBA 中的错误 GOTO 语句

Question

我有这段代码可以使用 Ctrl+F 命令在 Excel 工作表中查找特定值，但是当代码找不到任何内容时，我希望它抛出一条消息。

    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

您需要在hello: Msgbox"There is an error" 之前添加exit sub（或exit function，如果这是函数的一部分而不是子代码）行，否则将始终执行它下面的代码。请参阅这篇文章作为参考-

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

更新：

要修复您的循环，您应该将错误处理代码移到循环之外，但仍保留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