Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1213 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【75645】ワイルドカードを使った３つ以上条件のオートフィルタ抽出について mam 14/6/4(水) 18:52 質問[未読]
【75646】Re:ワイルドカードを使った３つ以上条件の... γ 14/6/4(水) 19:26 発言[未読]
【75649】Re:ワイルドカードを使った３つ以上条件の... mam 14/6/4(水) 21:15 お礼[未読]
【75645】ワイルドカードを使った３つ以上条件のオ...
質問  mam  - 14/6/4(水) 18:52 -
引用なし
パスワード
   Excel2010VBAでワイルドカードを使った３つ以上のオートフィルタ抽出について教えて下さい。

A列に
田中
富田
伊藤
加藤
中山
佐々木
山田
とあり、"田""藤""山"のつく行だけフィルタ抽出したい場合下記のように
記載しましたが１つも抽出されません。

Sub Book1test()
　　Range("A1").AutoFilter Field:=1, _
　　　　　　　　　　　　　 Criteria1:=Array("*田*", "*藤*", "*山*"), _
　　　　　　　　　　　　　 Operator:=xlFilterValues
End Sub

因みに２つ以上（"田"と"藤"だけ）だとうまくいきます。
３つ以上で成功させるにはどのようにしたら良いのでしょうか？
お分かりになる方教えてください。よろしくお願いします。
【75646】Re:ワイルドカードを使った３つ以上条件...
発言  γ  - 14/6/4(水) 19:26 -
引用なし
パスワード
   Criteria1には配列指定はできません。
Criteria1とCriteria2の二つしか指定できませんから、
こうした場合は、フィルタオプション（詳細設定）を使うのが良いのでは？

コードは一例です。
Sub test()
　　Range("C1").Value = "姓"
　　Range("C2").Value = "*田*"
　　Range("C3").Value = "*藤*"
　　Range("C4").Value = "*山*"
　　Range("A1:A8").AdvancedFilter Action:=xlFilterInPlace, _
　　　　　 CriteriaRange:=Range("C1:C4"), Unique:=False
End Sub
A列の見出しが"姓"である前提です。
【75649】Re:ワイルドカードを使った３つ以上条件...
お礼  mam  - 14/6/4(水) 21:15 -
引用なし
パスワード
   回答ありがとうございます。できました！！！
フィルタオプションも試してみたのですが、
A1とC1に"姓"がなかったのでできなかったみたいです。
本当にありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1213 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free