- ベストアンサー
エクセルＶＢＡで３つ以上の複数条件でオートフィルタをする方法
表題のとおりなんですが、コマンドボタンを使って、ＶＢＡで３つ以上の条件でオートフィルタを実行したいのですが、なにかいい方法はありませんか？
- 19760101
- お礼率37% (36/95)
- Visual Basic
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
関連するQ&A
- エクセルVBA オートフィルタについて
オートフィルタは２つまでしか条件が設定できません。 ３つ以上設定する方法はないでしょうか？（OR条件です） オートフィルタの引数（Criteria）は２つしかありませんから、恐らく３つ以上の設定はできないと思っています。 そこで、オートフィルタを複数回設定し、使っていない列に特定の文字（例えば○など）を入れ、最後にこの○を条件にすることにより、実質的に３つ以上条件のフィルタリングを実現させたいと考えております。 そこでお聞きしたいのは、各条件でフィルタリングした時に、任意の列に○を入れる方法です。 例えば myRng.AutoFilter Field:=4, Criteria1:="=?UA*" でフィルタリングしたエリアの特定の列に○を入れるにはどのようなVBAになるのでしょうか？ オートフィルタを使わず、ループで全行の条件を聞いて、○をつけることは可能ですが、行数が非常に多いので時間がかかってしまいます。 オートフィルタを使えばすばやく該当行が選択されますので、何とかこれを利用したいと思っています。何か良い方法は無いでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBAのオートフィルタ解除について
こんばんわ。 現在、コマンドボタン（オートフィルタの設定）にオートフィルタを設定するようなマクロを登録しています。 そして、別のコマンドボタンにはオートフィルタの解除を実施するマクロを書きたいんです。 しかし、オートフィルタを設定していない時に、解除のマクロを実行するとエラーになってしまいます。どうしたら良いのでしょうか？ Ｉｆ・・・文を使って、対象セルにオートフィルタが設定している時は解除を実施し、オートフィルタが設定されてない時は、何も実施しない。 このようなマクロはどうしたら良いのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡでの複数条件でオートフィルタをする方法
VBA初心者です。 例えば、シートに A B 1 桃 100 2 柿 150 3 葡萄 400 というデータが書いてあって、ある時は「桃or柿」、またある時は「柿」だけ、「柿or葡萄」というようにＶＢＡでオートフィルタをかけてデータを抽出したいと思っています。 その条件は、別にリストボックスが用意されていて、ユーザが選択した項目に該当するデータだけを取得したいのですが・・・ 不特定数の複数項目をオートフィルタの「or」条件で結ぶ事が出来ずに困っています。それともオートフィルタでは無理なのでしょうか？ （知識が乏しくてすみません） どなたか良い解決策、または別策がありましたらご教授下さい。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAでのオートフィルター
EXCELのVBAで日付のデータを 過去1日、過去1週間、過去1ヶ月などのボタンを作成し クリックしたらオートフィルター機能で各条件に 合ったデータを表示するにようにしようと思っています。 しかし、フィルターがない状態でクリックすると 正常に機能するのですが連続してボタンを クリックするとうまくいきません。（表示がかわらない） 良い対策方法、または正しいやり方を教えてください。 よろしくお願いします。 EXCEL2000 Sub ボタン_クリック() Rows("3:3").Select Selection.AutoFilter Selection.AutoFilter Field:=1, _ Criteria1:=">=" & , 条件日,Operator:=xlAnd End Sub
- ベストアンサー
- オフィス系ソフト
- VBAでオートフィルターの再検索
現在ＶＢＡでオートフィルターで絞ってある条件を一度解除してもう一度同じ条件で検索をしたいと思っていますが、出来ず困っています。 内容としては たとえば、Ａ１に"数字"、A2に"２"、A3に"3"とあった場合、A1でオートフィルターをかけ、絞り込みます。（何の条件で絞り込んだかは不明） この状態から、VBAを使います。 ＶＢＡで「一度オートフィルターを解除し、再度オートフィルターで同じ条件で絞る」という作業をしたいのですが、解除はできますが、同じ条件で再度絞り込みができません。 （たぶんCriterialの値を取得するのでしょうか？それもやり方がわかりません。） 何をしたいのか目的はと聞かれると、説明するだけでもややこしくなってしまいますので、簡単にやりたい作業だけかかせていただきました。 こんな作業は出来ますでしょうか？ 教えていただけたら、幸いでございます。 意味が分からなければ、また説明させていただきます。
- ベストアンサー
- オフィス系ソフト
- Excelのオートフィルタについて
こんにちは。人からもらったExcelブックですが、フィルタを実行しているシートのフィルタボタン（▽このボタンです。）を押してもプルダウンの選択項目が出てこなくなっていました。そこで、いったんオートフィルタをメニューから解除してみるのですが、データはすべて表示されず、画面はフィルタボタンが外れただけの状態になります。その後、行の再表示を実行するとすべて表示されるようになりました。 この後、再度オートフィルタを実行すると問題なく操作はできるようになりました。 ちなみに初期の状態では、2つの列にオートフィルタを実行しているようです。 作成者にどうしてこうなるのか聞かれましたが、さっぱりわかりません。また、シートやブックの保護も実行されてませんでした。 実行しているソフトはExcel2000です。作成したソフトはExcelでバージョンは残念ながら不明です。 お分かりの方、どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCELのオートフィルターマクロについて
初歩的な質問で恐縮です。 sheet1にデータ一覧を作成（仮にシート名を「データシート」とします）し、 sheet2へ検索条件を入力するセルとコマンドボタンを配置し、sheet1のデータを「オートフィルタで検索」するマクロを作成しました。 マクロの検証も行い動作の確認も行いマクロの実行してみると、ちゃんとフィルタ処理されており全て完璧！となりました。 ところが、他人への配布も予定していたので、データの改ざんを防止するため、データシートをシート保護して実行したところ、「ロックされているため実行できません」旨のエラーになってしまいました。 やはり、シートの保護を行なってしまうと、マクロであってもオートフィルタ機能は使用できないのでしょうか？ 何か解決（保護状態でもオートフィルタ機能が使用可能）方法はありませんでしょうか？ ご教授お願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCEL2003で三つ以上の条件でフィルタ
EXCEL2003でオートフィルタを使用すると、一つの列に対し、二つの条件までしか設定できません。 三つ以上、具体的には、「A」を含む 又は 「B」を含む 又は 「C」を含む…といったようなフィルター設定をしたいのですが、 これをVBAなどでできませんでしょうか。 2007なら可能なのは分かっているのですが、会社のPCの為2003しか使えません。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelのオートフィルタオプションの「で始まる」について？
下記の 「２」 の方法で 「実行後」 に出来ません。 下記をオートフィルタにて、 オートフィルタオプションの抽出条件の指定で、 １、 AND OR ・・・ を使用すれば出来ますが、 ２、 「75」で始まる ・・・ を使用した場合、 「現状」 になってしまいますが、 「実行後」 にするには、 データをこのままにした状態では、 「２」 の方法では不可能なことでしょうか？ 「セルの書式設定」 を 「文字列」 に設定しても出来ませんでした。 以上 よろしくお願い致します。 ----実行前---- 75 12○ 75▲ 14× 75 75▲ 19 ----実行後---- 75 75▲ 75 75▲ -------------- ----現状-----になってしまいます 75▲ 75▲ --------------
- ベストアンサー
- オフィス系ソフト
- 「～以上、～以下」のオートフィルタのVBAについて
こんばんは、オートフィルタについて２つ質問させてください！ １つ目は、１０列目に入っている値で、20170901以上かつ20170931以下の値をオートフィルタで抽出しようと以下のVBAを入力しましたが、該当するデータがあるにも関わらず抽出ができませんでした(T_T)何か間違っているのでしょうか…？！ Range("A1:K" & Cells(1).CurrentRegion.Rows.Count).AutoFilter Field:=10, Criteria1:=">=20170901" _ , Operator:=xlAnd, Criteria2:="<=20170931" ２つ目は、同様のデータでInputBoxを利用し、入力した数字をそのままオートフィルタの条件に反映しようとする以下のVBAを入力してみました。しかし、やはり記述の方法が違うのか該当するデータがあるにも関わらず抽出は成功しませんでした・・・。 Dim 日付 As Date 日付 = InputBox("処理月を入力して下さい（例:201709）") Range("A1:K" & Cells(1).CurrentRegion.Rows.Count).AutoFilter Field:=10, Criteria1:=">= 日付 & 01" _ , Operator:=xlAnd, Criteria2:="<= 日付 & 31 " どなたかご助力いただけるととても助かります、どうぞよろしくお願いいたします！m(_ _)m
- ベストアンサー
- Excel（エクセル）
