VLOOKUP 오류 메시지가 두 내가 아래에있는 내 코드에 문제가

Question

통합 문서를 열 :

코드 : "항목을 가져올 수 없습니다 : 내 버튼을 클릭하면

Sub CPT_Click() 


    Dim CPTBook, PRBook As Workbook 
    Dim CPTSheet, PRSheet As Worksheet 
    Dim CPTRange As Range 
    Dim myResult, lookValue As String 


    Set PRBook = ThisWorkbook 
    Set PRSheet = PRBook.Worksheets("Implementation") 
    Set CPTBook = Workbooks.Open("CPT.xlsx", ReadOnly:=True) 
    Set CPTSheet = CPTBook.Worksheets(2) 
    Set CPTRange = CPTSheet.Range("G4:DY300") 

    lookValue = PRSheet.Range("U18").Value 'returns correct value 
    myResult = Application.WorksheetFunction.VLookup(lookValue, CPTRange, 2, False) 
    MsgBox myResult 


End Sub 

, 나는 유명한 얻을 WorksheetFunction 클래스의 Vlookup 속성 "오류 메시지가 나타납니다.

나는 시트를 Vlookup 함수를 타이핑 할 때 모든 것을 시도했다. 올바른 값을 얻는다. CPTRange 내의 CPTSheet에서 찾고있는 값 (lookValue)이다.

의견이 있으십니까?

미리 감사드립니다.

Answer 1

Address 속성의 CPTRange의 External 특성을 true로 설정해야합니다. 이 경우에도 Evaluate 메서드를 사용합니다.

myResult = Evaluate("VLookup(""" & lookValue & """," & CPTRange.Address(External:=True) & ",2,False)")