Excel VBA - 用户窗体 vlookup 错误处理

Question

我有一个用户表单，其中的组合框填充了我的设置表中的产品名称，并且一旦用户从组合框中选择了产品，我就会尝试显示带有产品描述的标签。

这很好用，除非用户选择了没有产品描述的产品，因此 vlookup 将返回空并导致用户表单出错。

我尝试了几个 If Error - if is empty - Description is 0 - Description is empty statements，但似乎没有一个有效，包括 OnError GoTo Errorhandler。我在这里做错了什么？

    Private Sub Problem_List_Change()

Description = Application.WorksheetFunction.VLookup(Problem_List.Text, Worksheets("Settings").Range("l3:o1000"), 4, False)

    If IsError(Description) Then
        Desc.Caption = ""
    Else
        Desc.Caption = Description
    End If

End Sub

谢谢， a2k

Answer 1

这对我有用。

Sub x()

Dim r As Variant

On Error Resume Next
r = Application.WorksheetFunction.VLookup(5, Range("a1:b4"), 2, False)

If Not IsEmpty(r) Then
    Debug.Print "Found"
Else
    Debug.Print "Not Found"
End If

End Sub