Question

Private Sub Search_Click()
    On Error GoTo MyErrorHandler:

Dim PartNumber As String
Dim det As String

PartNumber = PartNumberIN.Text ' take part input from textbox

det = "Part Number: " & Application.WorksheetFunction.VLookup(PartNumber, Application.WorksheetFunction.Offset(Table1, 0, 2), 3, False)
det = det & vbNewLine & "Part Description: " & Application.WorksheetFunction.VLookup(PartNumber, Application.WorksheetFunction.Offset(Table1, 0, 4), 5, False)
det = det & vbNewLine & "CV or VA: " & Application.WorksheetFunction.VLookup(PartNumber, Application.WorksheetFunction.Offset(Table1, 0, 1), 2, False)
det = det & vbNewLine & "Direct Ship?: " & Application.WorksheetFunction.VLookup(PartNumber, Application.WorksheetFunction.Offset(Table1, 0, 3), 4, False)
det = det & vbNewLine & "Storage Container: " & Application.WorksheetFunction.VLookup(PartNumber, Application.WorksheetFunction.Offset(Table1, 0, 6), 7, False)
det = det & vbNewLine & "SAP Location: " & Application.WorksheetFunction.VLookup(PartNumber, Application.WorksheetFunction.Offset(Table1, 0, 13), 14, False)
det = det & vbNewLine & "Physical Location: " & Application.WorksheetFunction.VLookup(PartNumber, Application.WorksheetFunction.Offset(Table1, 0, 14), 15, False)
MsgBox "Part Details : " & vbNewLine & det
Exit Sub



MyErrorHandler:
If Err.Number = 1004 Then
    MsgBox "Part not present in table."
ElseIf Err.Number = 13 Then
    MsgBox "You have entered an invalid value"
ElseIf Err.Number = 429 Then
    MsgBox "You're toast"
End If

消息框应显示：零件号:(数据提取）简历或VA：“” 直接发货：“”

等等。

数据是从单独的工作表上的表中提取的，而不是宏按钮。该按钮只是打开用户窗体。

寻求帮助。将表用作范围的原因是此数据将定期更新，并且命名的动态范围不起作用。

Answer 1

有点简化：我没有在这里使用Offset，所以你可能需要调整一些列号......

Private Sub Search_Click()

    Dim PartNumber As String
    Dim det As String, m, rng

    'get the table's data range
    Set rng = ThisWorkbook.Sheets("Sheet1").ListObjects("table1").DataBodyRange
    'Debug.Print rng.Address
    PartNumber = PartNumberIN.Text ' take part input from textbox

    'locate the row if there's a match in the first column
    m = Application.Match(PartNumber, rng.Columns(1), 0)
    If Not IsError(m) Then
        'got a match, so construct the message
        With rng.Rows(m)
            det = "Part Number: " & PartNumber 
            det = det & vbNewLine & .Cells(5).Value
            'etc...
            MsgBox "Part Details : " & vbNewLine & det
        End With
    Else
        'no match
        MsgBox "Part not present in table."
    End If

End Sub

使用Vlookup和Table作为数据拉宏的范围时出错

1 个答案: