Question

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

这非常有效，除非用户选择没有产品描述的产品，因此vlookup将返回空并导致用户形式出错。

我尝试了几个If Error - 如果为空 - 说明为0 - 说明是空语句，但似乎没有工作，包括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

Excel VBA - Userform vlookup错误处理

1 个答案: