несоответствие типов во время выполнения для массива vlookup - PullRequest
Новая
       23

несоответствие типов во время выполнения для массива vlookup

0 голосов
/ 11 октября 2018

Я столкнулся с

ошибка времени выполнения 13 несоответствие типов

при выполнении кода ниже.В основном я хотел бы использовать значения в столбце 31 для vlookup на другом листе, чтобы вернуть искомое значение в столбце 32, дату поиска в столбце 33.

Пожалуйста, помогите мне. 

Sub vlookupFU()

'vlookupfollowup material & Eff-out date
Dim wkbNPI As Workbook
Dim wksPT As Worksheet
Dim wksFU As Worksheet

Set wkbNPI = ActiveWorkbook
Set wksPT = wkbNPI.Sheets("Packaging tracking")
Set wksFU = wkbNPI.Sheets("FollowUpMaterial")

Dim wf As WorksheetFunction
Set wf = Application.WorksheetFunction
Dim lrw2 As Long
    lrw2 = wksPT.Cells(Rows.Count, "A").End(xlUp).row

Dim PTarray As Variant
Dim i As Long, j As Long

PTarray = wksPT.Range("A7:AG" & lrw2)

Dim Oldcode As String
Dim FUM As String           'Follow up material code
Dim FUMD As String            'Follow up material date

For i = 1 To lrw2
Oldcode = PTarray(i, 31)

    If Oldcode <> 0 Then 'where I have error type mismatch

    FUM = wf.vlookup(PTarray(i, 31), wksFU.Range("B:R"), 13, False)               'vlookup follow up material
    FUMD = wf.vlookup(PTarray(i, 31), wksFU.Range("B:R"), 17, False)              'vlookup follow up material effective out date
    FUM = PTarray(i, 32)
    FUMD = PTarray(i, 33)

    End If


Next i

End Sub

1 Ответ

0 голосов
/ 11 октября 2018

Я полагаю, что следующее будет работать так, как вы ожидаете, чтобы пропустить пустые ячейки, которые вы могли бы сделать следующим образом:

If Oldcode <> "" Then

Пожалуйста, см. Ниже ваш исправленный код, я 'Мы также удалили lrw2 как неиспользуемый в коде, еще один момент, который следует учитывать, это то, что вы не помещаете возвращаемое значение из Vlookup нигде, кроме переменной, так что это не добавит значения в таблицу Excel?Не уверен, что вы над этим работаете или нет ...: 

Sub vlookupFU()
'vlookupfollowup material & Eff-out date
Dim wkbNPI As Workbook: Set wkbNPI = ThisWorkbook
Dim wksPT As Worksheet: Set wksPT = wkbNPI.Sheets("Packaging tracking")
Dim wksFU As Worksheet: Set wksFU = wkbNPI.Sheets("FollowUpMaterial")
Dim wf As WorksheetFunction: Set wf = Application.WorksheetFunction
Dim lrw2 As Long, i As Long ', j As Long
Dim PTarray As Variant
Dim Oldcode As String, FUM As String, FUMD As String

'lrw2 = wksPT.Cells(Rows.Count, "A").End(xlUp).Row 'not used so no need for this line
PTarray = wksPT.Range("A7:AG" & lrw2)

For i = 1 To wksPT.Range("A7:AG" & lrw2).Rows.Count
    Oldcode = PTarray(i, 31)

    If Oldcode <> "" Then
        FUM = wf.VLookup(PTarray(i, 31), wksFU.Range("B:R"), 13, False)               'vlookup follow up material
        FUMD = wf.VLookup(PTarray(i, 31), wksFU.Range("B:R"), 17, False)              'vlookup follow up material effective out date
        'FUM = PTarray(i, 32) 'you get the value above and then you overwrite it here??
        'FUMD = PTarray(i, 33) 'you get the value above and then you overwrite it here??
    End If
Next i
End Sub
...