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

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

1 个答案: