0

「IssueStatus」列の上にコンボボックスを配置して、この列から選択した値に基づいてシート全体をフィルタリングしたいと思います。理想的には、コンボボックスには、「開く」、「閉じる」、「任意」の3つのオプションがあります。

どうすればこれを行うことができますか？

次のコードを試しました。

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 に答える