0

我想在“问题状态”列上方放置一个组合框，以根据从该列中选择的值过滤整个工作表。理想情况下，组合框将具有三个选项——“打开”、“关闭”和“任何”。

我该怎么做呢？

我尝试了以下代码：

Private Sub ComboBox1_Change()
    Dim sFilter As String
    sFilter = ActiveSheet.DropDowns(Application.Caller).List(ActiveSheet.DropDowns(Application.Caller).Value)
    On Error Resume Next
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.UsedRange.AutoFilter 1, sFilter
End Sub

但是，这会引发错误： Run-time error 1004: Unable to get the DropDowns property of the worksheet class.

此外，它在组合框中多次列出值。例如，组合框的索引 1 =“Open”，索引 2 也 =“Open”，等等。我只想显示不同的值并根据它进行过滤。

有更好的方法吗？我究竟做错了什么？

4

1 回答 1

1

只需使用过滤器，数据>过滤器。

在此处输入图像描述

于 2012-11-26T15:20:12.043 回答