Excel VBA:如何在Excel中创建自定义滤色器(具有全部选项的组合框控件)

Private Sub ComboBox1_Initialize()

    ' 设置组合框的选项列表
    With Me.ComboBox1
        .AddItem "全部" ' 添加一个“全部”选项
        .AddItem "选项1"
        .AddItem "选项2"
        ' 添加更多选项...
    End With
    
    ' 将组合框与工作表数据区域绑定
    Dim rng As Range
    Set rng = Sheets("Sheet1").Range("A1:A10") ' 修改为实际的数据区域
    Me.ComboBox1.ListFillRange = rng.Address

End Sub

Private Sub ComboBox1_Change()

    Dim selectedOption As String
    selectedOption = Me.ComboBox1.Value
    
    If selectedOption = "全部" Then
        ' 显示所有数据
        Sheets("Sheet1").Range("A1:A10").EntireRow.Hidden = False ' 修改为实际的数据区域
    Else
        ' 根据选项筛选数据
        Sheets("Sheet1").Range("A1:A10").AutoFilter Field:=1, Criteria1:=selectedOption ' 修改为实际的数据区域和字段索引
    End If

End Sub