Question

我有一个

ListBox = firmList; 
TextBox = firmGroupID; 
Worksheet = RelatedFirms; 
ColumnA = gID (ID numbers); 
ColumnB = firmName

我正在尝试根据firmGroupID的值填充我的列表框目前我有一个组合框，根据组合框选择填充firmGroupID中的gID编号。

然后我希望firmList根据firmGroupID填充firmNames列表。

Sheet RelatedFirms包含每个firmName的指定gID。

这看起来很简单，但我尝试的一切似乎都不起作用。

不确定如何仅在列表框中显示具有等于gID的值的项目。

Private Sub firmGroupID_Change()
    Dim rngName As Range
    Dim ws As Worksheet
    Dim i As Integer

    Set ws = Worksheets("RelatedFirms")
    For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Step 1
        If ws.Cells(i, 1).Value <> vbNullString Then Me.firmList.AddItem
        ws.Cells(i, 1).Value   
        Next i
End Sub

Answer 1

请更改此代码：

If ws.Cells(i, 1).Value <> vbNullString Then Me.firmList.AddItem ws.Cells(i, 1).Value

要

If ws.Cells(i, 1).Value = firmGroupID.Value Then Me.firmList.AddItem ws.Cells(i, 2).Value

根据文本框值查找列，并在列表框中显示所有结果

1 个答案: