Question

我试图从输入reg1的数字中获取标签（label5）进行查找，但是我希望该查找从worksheet.consumables中查找数据。理想情况下，如果找到了负数，我希望它会变成红色。

请参见下面的代码。我尝试添加.label5-Application.WorksheetFunction.VLookup（CLng（Me.reg1），consumables.Range（“ 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

如何获得从用户窗体中的textbox1到另一个工作表的vlookup标签？

0 个答案: