VBAでVlookupプロパティが機能しない

Question

文字列値をシートに保持する変数selrowを検索しています。時にはそれが

をワークシート関数のクラスのプロパティをVLOOKUP取得することができませんでし

エラーを示して、私はまた、エラー処理コードを入れているが、まだエラーが発生します。

On Error Resume Nextを使用して

がthis where error occurs

for i=1 to last_row 
    'code 
    selrow= range("D"&i) 
    opening_inventory_today = 0 
    On Error Resume Next 
    opening_inventory_today = Application.WorksheetFunction.VLookup(selrow, ActiveSheet.Range("A4:B" & lr), 2, False) 

Answer 1

エラーを処理していないコードは、あなたがVLookupがselrowを見つけ、その後、エラーメッセージを上げることができなかった例というトラップ（またはものは何でもする必要があなたが欲しい）。

は、以下のコードを試してみてください。

If Not IsError(Application.VLookup(selrow, ActiveSheet.Range("A4:B" & lr), 2, False)) Then 
    opening_inventory_today = Application.VLookup(selrow, ActiveSheet.Range("A4:B" & lr), 2, False) 
    ' rest of your code here 

Else 
    MsgBox "VLookup was unable to find " & selrow, vbInformation 
End If