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

Question

我有一个

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

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

然后，我希望firmList填充基于firmGroupID的firmNames列表。

工作表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