Excel VBA - Userform vlookupエラー処理

Question

私はコンボボックスに製品名を入力したユーザーフォームを持っています。ユーザーがコンボボックスから製品を選択すると、製品の説明付きのラベルを表示しようとしています。

これは、ユーザーが製品の説明がない製品を選択しない限り、うまくいきます。したがって、vlookupは空を返し、ユーザーフォームでエラーが発生します。

私はいくつか試してみましたIf - 空の場合 - 説明は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 

おかげで、

Answer 1

A2Kこれは私のために動作します。

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