列表框值作为 Vlookup 到组合框值答案

【问题标题】：Listbox value as Vlookup to combobox value列表框值作为 Vlookup 到组合框值
【发布时间】：2020-06-23 17:26:21
【问题描述】：

工作表：主数据

Column A = Engine.
Column B = Part Number.
Column C = Status.
Column D = Name.
Column E = Quantity.
Column F = Date.
Column G = Priority.
Column H = Buyer.

情况：我手动输入从 A 列到 H 列的所有数据。我制作了一个用户表单来输入从 J 列到 M 的数据。

在我的用户表单中：

如果我在组合框中选择买家，我希望列表框填充工作表“MASTER DATA”中与该特定买家相对应的所有部件号。我正在考虑使用 vlookup 来获取买家价值，然后可能会抵消 -6 来获取零件编号值？任何帮助表示赞赏。

到目前为止我的代码：

Private Sub UserForm_Initialize()
    With cboBuyer
        .AddItem "DANIEL"
    End With
End Sub

Private Sub cboBuyer_Change()
    Me.lbPartNumber.Clear
    Select Case Me.cboBuyer.Value
        Case "DANIEL"
            With Me.lbPartNumber
                .AddItem "(VLOOKUP VALUES TO THE BUYER NAME (DANIEL)
            End With
    End Select
End Sub

【问题讨论】：

标签： combobox listbox vlookup userform

【解决方案1】：

解决方案

Private Sub cboBuyer_Change()

Dim i

Me.lbPartNumber.Clear

Dim lastrow As Long
lastrow = Sheets("MASTER DATA").Cells(Rows.count, "B").End(xlUp).Row

Select Case Me.cboBuyer.Value
    Case "DANIEL"
        With Me.lbPartNumber
            For i = 1 To lastrow   ' Rowcount
                Sheets("MASTER DATA").Activate
            If Cells(i, 8) = "DANIEL" Then
                .AddItem Cells(i, 2)
            End If
            Next i
        End With
    End Select

【讨论】：