Excel vba Vlookup 속성을 가져올 수 없습니다.

Question

여기에 이러한 질문이 많이 있음을 알고 있습니다. 그러나 나는 틀린 것을 볼 수 없습니다.

값이 다른 통합 문서의 열에 있는지 확인하는 다음 코드가 있습니다.

Dim masterWbk As Workbook 
Dim oWbk As Workbook 
Dim RowCount As Integer 
Dim LookupRange As Range 
Dim Exists As Variant 
Dim a As Integer 
Dim i As Integer 
Dim jobnumber As String 

    RowCount = WorksheetFunction.CountA(Sheets("Sheet1").Range("A1").EntireColumn) 

    masterWbk.Activate 

Set LookupRange = masterWbk.Sheets("Sheet1").Range("C1:C100") 

    a = 0 

    For i = 0 To RowCount - 1 

     jobnumber = oWbk.Sheets("Sheet1").Range("A2").Offset(i, 0).Value 

     ' On Error GoTo ExistsError: 

     Exists = Application.WorksheetFunction.VLookup(jobnumber, LookupRange, 1, False) 

값이 조회 범위에 있으며 형식이 동일하지만 Vlookup이 작동하지 않습니다. 그것은 엑셀 공식으로 잘 작동합니다.

내가 무엇을 놓쳤는가?

Answer 1

그것이 내가 WorksheetFunction.Vlookup의 문서에 문제가 있다고 생각 this-

Dim masterWbk As Workbook 
Dim oWbk As Workbook 
Dim RowCount As Integer 
Dim LookupRange As Range 
Dim Exists As Variant 
Dim a As Integer 
Dim i As Integer 
Dim jobnumber As String 

    RowCount = WorksheetFunction.CountA(Sheets("Sheet1").Range("A1").EntireColumn) 

    masterWbk.Activate 

Set LookupRange = masterWbk.Sheets("Sheet1").Range("C1:C100") 

    a = 0 

    For i = 0 To RowCount - 1 

    jobnumber = oWbk.Sheets("Sheet1").Range("A2").Offset(i, 0).Value 
    If Trim(jobnumer) <> "" Then 
    With lookuprange 
     Set Rng = .Find(What:=jobnumber, _ 
         After:=.Cells(.Cells.Count), _ 
         LookIn:=xlValues, _ 
         LookAt:=xlWhole, _ 
         SearchOrder:=xlByRows, _ 
         SearchDirection:=xlNext, _ 
         MatchCase:=False) 
     If Not Rng Is Nothing Then 
      Exists = 1 
     Else 
      Exist = 0 
     End If 
    End With 
    End If 

Answer 2

처럼 보일 것입니다 찾을 사용. Excel 2007의 테스트에서 검색 문자열을 찾으면 해당 셀의 값이 반환됩니다. 당신이 정확히 일치하는 검색하는 경우, 당신은이 엑셀 2010에서 잘 작동하는 것 같다

... 

Dim FoundText as String 

... 

FoundText="" 

On Error Resume Next 

FoundText=Application.WorksheetFunction.VLookup(jobnumber, LookupRange, 1, False) 

On Error Goto 0 

Exists= (FoundText <> "") 

... 

Answer 3

1004

당신은 VLOOKUP을 사용하려면 ...

나는 것 공포의 오류를 얻을 jobNumber을 문자열로 지정했으며 워크 시트/셀 "서식 지정"에도 불구하고 VLOOKUP에서 오류가 발생할 가능성이 높습니다. 워크 시트의 작업 번호는 숫자 값으로 저장 될 가능성이 큽니다.

문제는 "123"<> 123입니다. jobNumber가 숫자인지 테스트 한 다음 올바른 종류의 데이터를 함수에 전달하는지 확인하십시오.

If IsNumeric(jobNumber) Then 
    Exists = Application.WorksheetFunction.VLookup(CLng(jobNumber), lookupRange, 1, False) 
Else: 
    Exists = Application.WorksheetFunction.VLookup(jobNumber, lookupRange, 1, False) 
End If