Excel VBA - Userform vlookup錯誤處理

Question

我有一個用戶窗體，用我的設置表中的產品名稱填充了組合框，並且我試圖在用戶從組合框中選擇產品時顯示帶有產品描述的標籤。

這很有效，除非用戶選擇沒有產品說明的產品，因此vlookup將返回空白並導致用戶表單發生錯誤。

我試了幾次If Error - if is empty - Description is 0 - Description is empty statements，but none does not work，including 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