0

こんにちは、初心者プログラマーです。フォーラムで見つけられないことについて、ちょっとした助けを求めています。以下にリストされているプログラムは、オートフィルターを設定して DateCode = ActiveCell.Text ステートメントでフィルター処理するのに完全に機能します。

Dim DateCode
DateCode = ActiveCell.Text  'For this instant the active cell contains "T-09"

ActiveSheet.Range("$A$1:$T$10000").AutoFilter Field:=1, Criteria1:=DateCode

しかし、同じ DateCode / dim ステートメントに基づいて Dose Not Contain フィルターを作成したいですか?

以下のステートメントは、単純なマクロ記録ツールから残されたフットプリントです。このステートメントは、Dose Not Contain "DateCode" としてフィルターを効果的に設定します。

ActiveSheet.Range("$A$1:$DH$10000").AutoFilter Field:=4, Criteria1:= _
    "<>*DateCode*"

以下のステートメントは、次のように書き直すことができ、最初は完全に機能します。ただし、問題は、スクリプトを実行するたびに日付コードが変更されることです。AF Criteria1のロジックを反転しようとするまで、これは問題ではありませんでした:= 

ActiveSheet.Range("$A$1:$DH$10000").AutoFilter Field:=4, Criteria1:= _
    "<>*T-09*"

どんな助けでも大歓迎です

4

1 に答える 1

1

変数を Criteria1 文字列に挿入するだけです。

ActiveSheet.Range("$A$1:$DH$10000").AutoFilter Field:=4, Criteria1:="<>*" & DateCode & "*"
于 2013-06-05T19:59:21.703 に答える