
No.1ベストアンサー
- 回答日時:
とりあえず、質問中の矛盾を指摘させていただきますね。
> ※フィルタをかけたい文字が都度かわるので、
> 毎回フィルタの機能を使うのは面倒なため、フィルタの機能は×
のであれば、
> 自動的にフィルタが掛かるようにしたい
不可能です。
フィルタの機能を使わないでフィルタをかけるのは、
いかにエクセルと言えど、マクロを使うと言えど、無理なものは無理です。
だから、回答がつかないのです。
さてさて現状の確認ですが、
横に項目がいくつか並んでいて、縦にデータ行が並んでいる、
いわゆる一般的なエクセルの表で、
このある項目に対してフィルタを掛けたい、と言うイメージで良いですね。
これを前提に話を進めます。
例えば、データ表がA3:D50の範囲に用意されていて、
キー項目列から抽出したい文字列をB1セルに入力しました。
この文字列を基にA列にフィルタを掛けたいものとします。
そうすると、以下のコード
Sub FilSet()
If Range("A3").AutoFilter = False Then
Range("A3").AutoFilter
End If
Range("$A$3:$D$50").AutoFilter Field:=1, Criteria1:=Range("B1").Value
End Sub
これを実行すると、B1の文字列(値)に従ってA列にフィルタを掛けます。
フィルタを解除する機能も必要でしょう。
それは以下のコード。
Sub FilReset()
If Range("A3").AutoFilter = True Then
Range("A3").AutoFilter
End If
End Sub
これでフィルタを解除できます。
これらを標準モジュールやブックモジュール、シートモジュールに貼り付けて、
図のようにボタンを作っておくと便利と思います。
このB1セルに入力規則→リストを設定しておけば
ドロップダウンから選択→フィルタの一連の動作をマウスで行う事も可能でしょう。
どちらにしても、フィルタの処理をしたいなら
マクロを使うにしてもフィルタ機能を使わないと実行できません。
なお、マクロの設定方法は別途お調べください。
Webで検索すると懇切丁寧に解説しているサイトがゴロゴロしていますので。

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) Excelのセル上の日付の不具合 3 2022/05/22 18:20
- Visual Basic(VBA) オートフィルタで抽出結果に 罫線をひく方法 1 2022/07/13 13:08
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- カスタマイズ(バイク) xv400 viragoの燃料コックについて 3 2023/04/12 06:54
- Excel(エクセル) スプレッドシートのチェックボックスとフィルタを連携させたい 2 2022/09/26 18:02
- Excel(エクセル) エクセルのフィルターを複数シートに連動させたいです。 エクセルファイルに15シートあります。 そのう 2 2022/05/01 21:47
- 工学 コンデンサのサブクラスX1、X2について 1 2022/11/13 12:36
- その他(自然科学) フィルタの挿入損失(高周波部品) 3 2022/12/10 13:11
- 国産バイク 燃料フィルタ内の気泡について 3 2023/04/02 09:01
このQ&Aを見た人はこんなQ&Aも見ています
-
見学に行くとしたら【天国】と【地獄】どっち?
みなさんは、一度だけ見学に行けるとしたら【天国】と【地獄】どちらに行きたいですか? 理由も聞きたいです。
-
スマホに会話を聞かれているな!?と思ったことありますか?
スマートフォンで検索はしてないのに、友達と話していた製品の広告が直後に出てきたりすることってありませんか? こんな感じでスマホに会話を聞かれているかも!?と思ったエピソードってありますか?
-
今の日本に期待することはなんですか?
目まぐるしく、日本も世界も状況が変わる中、あなたが今の日本に期待することはなんですか?
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
エクセルで特定の列が0表示の場合、その行を非表示にしたい
Excel(エクセル)
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセル関数で、数字の入った...
-
エクセルの偶数行(奇数行)の抽出
-
オートフィルタで3つ以上の条...
-
【excel】リスト内の条件にあっ...
-
オートフィルタは金額の桁カン...
-
マクロで条件に合った行の選択...
-
なぜShowAllDataだとうまく行か...
-
access マクロでのフィルタの...
-
Excel共有ブックのオートフィル...
-
【Excel】行に複数回出てくる人...
-
オートフィルタを見出し行選択...
-
オートフィルタで選択した項目...
-
VBAでオートフィルターの再検索
-
エクセルのオートフィルタで困...
-
Excelオートフィルターで絞り込...
-
Excelで一定の行(列)間隔の数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
オートフィルタで3つ以上の条...
-
access マクロでのフィルタの...
-
エクセル関数で、数字の入った...
-
エクセルのオートフィルタで困...
-
スプレッドシートのチェックボ...
-
可視セルを対象としたcountifが...
-
データの抽出を教えてください
-
エクセルで隔週をもとめる
-
オートフィルタで未入力(空白...
-
エクセルにて、フィルタをかけ...
-
Excel共有ブックのオートフィル...
-
エクセルで検索窓のようなもの...
-
VBA オートフィルタで抽出した...
-
【EXCEL】条件に一致した最新デ...
-
エクセル、オートフィルタで最...
おすすめ情報