当vlookup返回或不返回匹配时显示一个消息框[重复]

Question

我正在尝试显示一个消息框*，指示 vlookup 公式何时与数组中的名称匹配，何时不匹配。

使用以下数据，我当前的代码可以正常工作：

Name Name
John John

它返回以下消息框：“Ok”

Sub check_name()
Dim name As String
name = Range("A2")

If Application.WorksheetFunction.VLookup(Range("A2"), Range("B1:B2"), 1, False) = name Then
    MsgBox "Ok"
Else
    MsgBox "Not Ok"

End If
End Sub

但是当没有匹配时代码不起作用。
使用以下数据，我试图显示：“Not Ok”。

Name Name
John Wayne

我收到以下消息：

运行时错误“1004”
应用程序定义或对象定义的错误

我猜If 语句在vlookup 不返回匹配项时不起作用，即如果公式返回#N/A（不可用）。

_{我尝试将变量name 定义为布尔值。使它等于用IsNA 包裹的vlookup 公式，然后我尝试在If 语句中使用'name'，但我得到了与上面显示的结果相同的模式。}

我该如何度过这个难关？谢了。

* _{使用 VBA 寻找答案}

Answer 1

您可以通过简单地为有问题的单元格声明 Validation rules 来做到这一点。

您需要选择Validation，然后选择验证列表中的单元格（包含您需要的单元格的另一个范围）。

如果您绝对需要在 VBA 中执行此操作，则必须进行一些错误捕获。

基本上你需要添加代码：

Function ThisFunction()
    On Error GoTo  ErrorHandler

    ' Your normal code
    ' The next two lines are VERY IMPORTANT. If you don't Exit, you'll get weird logical errors on runtime
    ThisFunction = '...
    Exit Function
ErrorHandler:
' Code to return the results in case of Error
ThisFunction = '...
End Function

No Match 结果出现错误，WorksheetFunction.VLookup() 无法直接处理该错误

这段代码，具体要修改为

    Sub check_name()
    On Error GoTo ErrorHandler
    Dim name As String
    name = Range("A2")

    If Application.WorksheetFunction.VLookup(Range("A2"), Range("B1:B2"), 1, False) = name Then
        MsgBox "Ok"
    Else
        MsgBox "Not Ok" ' Never invoked
    End If
    Exit Sub
ErrorHandler:
    MsgBox "Not ok"
End Sub

这是完成此任务的一种非常低效的方法，但这是解决问题的最少修改方法，因此它将适合您在此子例程中的其余代码