Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7403 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39377】オートフィルタを使って抽出 まりん 06/6/23(金) 8:13 質問[未読]
【39380】Re:オートフィルタを使って抽出 Statis 06/6/23(金) 8:46 回答[未読]
【39382】Re:オートフィルタを使って抽出 まりん 06/6/23(金) 9:13 お礼[未読]
【39377】オートフィルタを使って抽出
質問  まりん  - 06/6/23(金) 8:13 -
引用なし
パスワード
   おはようございます。何時もお世話になります。

オートフィルタを使って、○○を含むものと○○を含むもの以外を抽出するコマンドボタンを作ります。
○○を含むものは

Private Sub ○○_Click()
With Range("a6")
　.AutoFilter Field:=1, Criteria1:="*○○*"
End With
End Sub

でできるのですが、○○を含むもの以外がわかりません。
どなたかご指導よろしくお願いします。
【39380】Re:オートフィルタを使って抽出
回答  Statis  - 06/6/23(金) 8:46 -
引用なし
パスワード
   こんにちは
マクロの記録で出来ますよ。

Criteria1:="<>*○○*"
【39382】Re:オートフィルタを使って抽出
お礼  まりん  - 06/6/23(金) 9:13 -
引用なし
パスワード
   ▼Statis さん：
できました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7403 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free