如何阻止循环在多列用户表单列表框中显示相同的字符串？

Question

如果我没有正确处理所有手续，我深表歉意，但这里什么都没有。 我有一个我一直在开发的用户表单，并且一直停留在如何根据组合框选择 (CB_JobSelect) 来填充列表框 (LB_JobItem)。到目前为止，我已经填充了所有字段，但它们各自显示相同的字符串。当我选择工作地点时，结果如下：

ListBox Output Image

这恰好是电子表格中与位置相关的最后一个值（在本例中为 Belleville），请参阅数据：

Data From Spread Sheet Image

我要做的是在列表框中显示唯一的供应商、项目和单位编号值。似乎循环没有进入电子表格中的下一个值，我不知道它挂在我的代码中的什么位置。虽然我有一种感觉，它与我的“lastrow”声明有关。最后附上SUB的代码：

    Private Sub CB_JobSelect_Change()

    Me.LB_JobItem.Clear


    Dim Vendor As String
    Dim Item As String
    Dim UnitNumber As String
    Dim CountJob As Integer
    Dim j As Integer
    Dim i As Integer
    Dim lastrow As Long


   Set ws = Sheets("PO_U_R")

   With Application.WorksheetFunction
   CountJob = .CountIf(ws.Range("G:G"), Me.CB_JobSelect.Value)
   End With

   lastrow = Sheets("PO_U_R").Range("A" & Rows.Count).End(xlUp).Row




   With Me.LB_JobItem



   For i = 1 To lastrow
      If ws.Cells(i, 7).Value = Me.CB_JobSelect.Value Then
      Vendor = ws.Cells(i, 5)
      End If
   Next i

   For i = 1 To lastrow
      If ws.Cells(i, 7).Value = Me.CB_JobSelect.Value Then
      Item = ws.Cells(i, 4)
      End If
  Next i

  For i = 1 To lastrow
      If ws.Cells(i, 7).Value = Me.CB_JobSelect.Value Then
      UnitNumber = ws.Cells(i, 2)
      End If
  Next i

  For j = 1 To CountJob

  .AddItem
  .List(j - 1, 0) = Vendor
  .List(j - 1, 1) = Item
  .List(j - 1, 2) = UnitNumber


  Next j
 End With

 End Sub

Answer 1

问题是您首先分配所有值，然后输出相同的值，N (CountJob) 次。

你需要在找到它们时输出它们，或者使用数组。

For i = 1 To lastrow
    If ws.Cells(i, 7).Value = Me.CB_JobSelect.Value Then
        .AddItem
        .List(.ListCount - 1, 0) = ws.Cells(i, 5)
        .List(.ListCount - 1, 1) = ws.Cells(i, 4)
        .List(.ListCount - 1, 2) = ws.Cells(i, 2)
    End If
Next i