フィルタリング日付と文字列1つのオートフィルタ

を含む空白とセルを無視して、私は日付の範囲をフィルタ処理しようとしている必要があれば、私は全体のコードを投稿することができますが、ここでスニペットです私は問題を抱えています。

Set ComboRange = .Range(.Cells(1, 1), .Cells(lcRow, lcColumn)) 
ComboRange.AutoFilter Field:=6, Criteria1:= _ 
    "<=" & Finish, Operator:=xlOr, Criteria2:=Array("0000-00-00", "=")

私のコードでは、lcRowとlcColumnは最後の行と列を表しています。 Finishは例6/30/16の日付です。私の問題は、これが "0000-00-00"を含む私のデータを削除することです。私は演算子をxlAndとxlFilterValuesに変更しようとしましたが、どちらもうまくいきませんでした。助けてくれてありがとう！

出典

2016-07-12 BerticusMaximus

これは動作するはず：

ComboRange.AutoFilter Field:=6, Criteria1:= Array("0, " & Finish), _ 
    Operator:=xlFilterValues, Criteria2:=Array("0000-00-00", "=")

を最初の配列に0より大きいか等しい意味します。

出典

2016-07-12 19:28:49

"ランタイムエラー '1004'：Rangeクラスのオートフィルタメソッドが失敗しました" – BerticusMaximus

@BerticusMaximus - 今すぐ試してください。 'Finish'変数と文字列をどのようにロードするかについて演奏する必要があります。私は朝までこれをもう一度試すことはできません。 –

別のエラーが発生しました。それはきれいではありませんが、私は問題を解決しましたが、すべてをループし、行を再表示します。明日までに何も投稿していない人がいれば、解決策としてあなたの答えを確認してください。 – BerticusMaximus

フィルタリング日付と文字列1つのオートフィルタ

答えて

関連する問題