[[20150126214514]]　『VBAでオートフィルター』（kiss）　ページの最後に飛ぶ

『VBAでオートフィルター』（kiss）

  いつも大変お世話になっております
ご教示いただけたら幸いです

オートフィルターをかけるときの条件設定
"含まない"で3個以上　やり方ありますか？
　　単純に Criteria　を増やしても出来ないみたいですね
有ればうれしいのですが

Selection.AutoFilter

    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("A:X").AutoFilter Field:=2, Criteria1:="<>*三井*" _
        , Operator:=xlAnd, Criteria2:="<>*住友*"

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 完全一致なら、xlFilterValues で、いくつでも配列指定ができますが、含まない　や　ワイルドカードには対応していません。
 フィルターオプションではだめですか？
（β） 2015/01/26(月) 22:14

β様　　コメント有難うございました
別な方法考えます

（ゆうこ） 2015/01/27(火) 07:55

 もう見ないかもしれませんが。

 マクロの先頭で現在の領域のA:Xに、もう１列、Y列も加え、B列と同じ内容にしておいて、列を非表示にしておく。
 このY列も含めた領域をオートフィルター領域として設定してY列に対して、Criteria1:="<>*三菱*"　といった３番目の条件を与えてフィルタリングすれば
 ４個までできますね。列を増やせば、何個でも可能ということになります。
 まぁ、あまりスマートなやり方ではないですけど。

（β） 2015/01/27(火) 08:40

β様　
コメント有難うございます

荒業も考えようで
出来るんですね

助かりました

他人のPC使用すると
履歴残ってて　名前が違うし(笑い）
エクセル　素人軍団が　　ばればれ　
（KISS） 2015/01/27(火) 14:50

コメント返信：

[ 一覧(最新更新順) ]

[[20150126214514]] 『VBAでオートフィルター』（kiss） ページの最後に飛ぶ

[[20150126214514]]　『VBAでオートフィルター』（kiss）　ページの最後に飛ぶ