VBAを使用したExcelのカスタムフィルタ

Question

私は9000以上の行の巨大なリストをフィルタリングしようとしています。 各行は個別のプロジェクトで、 すべての行がテーブル「Table2」にあります。 シートは「最終データ」

下限は「17-0034」です。バインド アッパーはテキストとして読み込まれ、コードの最後の部分はここ

を動作しませんどのように私は、これらのより低い&上限 値との間にフィルタん「17から0152」

あるコードです

Private Sub CommandButton2_Click() 
Sheets("Final Data").Select 
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=19, Criteria1:= _ 
    Array("Active", "Completed", "Main"), Operator:=xlFilterValues 
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=20, Criteria1:= _ 
    "RTB" 

ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=1, Criteria1:= _ 
    ">=17-0034", Operator:=x1And, Criteria2:="<=17-0152", Operator:=xlFilterValues 
End Sub 

Answer 1

x1Andは未定義です。 Option Explicitを使っていれば、それを簡単に捕まえることができます。

x1AndこれをxlAnd（ '1'、 '1'でない）に置き換えてください。フィルタが正常に動作します。