如何在Excel VBA中使用ComboBox值作为条件自动过滤列

Question

我有一个电子表格，其中包含电话品牌和电话型号的列表（电话品牌在A列中，而电话型号在B列中）

我正在尝试做一个ActiveX程序，该程序允许用户从ComboBox1和Filter列A中使用ComboBox1的值选择电话品牌。

这是我到目前为止的内容：

Option Explicit 
Sub AdvFilter() 
    Dim lw As Long 
    Dim lr As Long 
    lw = Range("A" & Rows.Count).End(xlUp).Row 
    Range("A2:A" & lw).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("H1"), Unique:=True 
End Sub 

Private Sub ComboBox1_Change() 
    Dim lr As Long 
    Dim Sel As String 
    lr = Range("H" & Rows.Count).End(xlUp).Row 
    Sel = "H2:H" & lr 
    ComboBox1.ListFillRange = Sel 
End Sub 

我能够用列A中的唯一值填充comboBox1，但是我不知道如何使用ComboBox1的值对其进行过滤。 任何帮助将不胜感激。

Answer 1

到目前为止，您只获得了A列以外的电话品牌列表，并将它们（唯一品牌）写入H列，并将其作为组合框中的值列表。 现在，根据组合框中的值，您需要在列中显示该品牌的手机型号列表（例如，列I）

步骤1：从组合框中选择电话品牌。 请参考以下示例VBA-获取组合框的选定值

步骤2：获取该手机品牌下的手机型号列表。 假设电话品牌是phone_brand

Sub getPhoneModels()
Dim iCol As Integer
iCol = 1
Dim phone_brand As String
phone_brand=getPhoneBrandFromComboBox()
For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
    If StrComp(.Cells(1, i), phone_brand) = 0 Then
            .Cells(9, iCol) = .Cells(1, i)
            iCol = iCol + 1
    End If
Next i
End Sub

上面的代码将遍历B列中的所有电话型号，并将具有品牌价值的phone_brand作为phone_brand第一列（9）中。

getPhoneBrandFromComboBox()函数是第一步使用链接中给出的帮助编写的函数。 此功能返回使用comboBox选择的电话品牌