수동으로 선택한 셀을 사용하는 Vlookup 매크로

Question

나는 초보자이지만 일을 할 수없는 간단한 Vlookup 매크로가 있습니다.

각 행에 다른 숫자가있는 열이있는 Excel 시트를 상상해보십시오. 숫자를 선택하면 매크로 바로 가기가 사용되고 vlookup이 실행되어 해당 숫자와 관련된 텍스트가 반환됩니다. 이 코드를 실행하면

Dim Resource As String 
Resource = Selection.Copy 
rName = Application.WorksheetFunction.VLookup(Resource, Sheets("Program Title").Range("D5:F305"), 3, False) 
MsgBox "" & rName 

End Sub 

는, 나는 "런타임 오류 '1004'다음 WorksheetFunction 클래스의 VLOOKUP 속성을 가져올 수 없습니다"를 얻을

누군가가 나이 코드는 어떻게해야 알릴 수 결정된?

Answer 1

Dim Resource As String, rName As Variant 
Resource = Selection.Value 

rName = Application.VLookup(Resource, Sheets("Program Title").Range("D5:F305"), _ 
          3, False) 

If Not IsError(rName) Then 
    MsgBox "" & rName 
Else 
    MsgBox Resource & " not found in lookup table" 
End If 

의