根據文本框值搜索列，並在列表框中顯示所有結果

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