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

我有一个

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

我正在尝试根据firmGroupID的值填充我的列表框。
目前我有一个combobox，根据comboboxselect填充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