Как получить пользовательскую форму для vlookup из textbox1 в пользовательской форме на другой лист? - PullRequest
0 голосов
/ 11 июня 2019

Я пытаюсь получить метку (label5) для поиска по номеру, введенному в reg1, однако я хочу, чтобы поиск нашел данные из worksheet.consumables.В идеале, после того, как это было найдено, я бы хотел, чтобы оно стало красным, если найденное число является отрицательным.

См. Код ниже.Я попытался добавить .label5 - Application.WorksheetFunction.VLookup (CLng (Me.reg1), расходные материалы. Диапазон ("B5: I114"), 6, 0) К сожалению, это не сработало.

Private Sub Reg1_AfterUpdate()
    'Check to see if value exists
    If WorksheetFunction.CountIf(Sheet28.Range("B:B"), Me.reg1.Value) = 0 Then
       MsgBox "This is an incorrect ID"
       Me.reg1.Value = ""
       Exit Sub
    End If

    'Lookup values based on first control
    With Me
        ' .reg1 = Application.WorksheetFunction.VLookup(CLng(Me.reg1), Sheet28.Range("LOOKUP"), 1, 0)
        ' .reg2 = Application.WorksheetFunction.VLookup(CLng(Me.reg1), Sheet28.Range("LOOKUP"), 2, 0)
        ' .reg3 = Application.WorksheetFunction.VLookup(CLng(Me.reg1), Sheet28.Range("LOOKUP"), 3, 0)
        '.reg4 = Application.WorksheetFunction.VLookup(CLng(Me.reg1), Sheet28.Range("LOOKUP"), 4, 0)
        '.reg5 = Application.WorksheetFunction.VLookup(CLng(Me.reg1), Sheet28.Range("LOOKUP"), 5, 0)
        '.reg6 = Application.WorksheetFunction.VLookup(CLng(Me.reg1), Sheet28.Range("LOOKUP"), 6, 0)
        .reg4 = Application.WorksheetFunction.VLookup(CLng(Me.reg1), Sheet28.Range("LOOKUP"), 7, 0)
        ' .reg8 = Application.WorksheetFunction.VLookup(CLng(Me.reg1), Sheet5.Range("LOOKUP"), 8, 0)
    End With
End Sub
...