• ベストアンサー

マクロ AutoFilter・・Criterial

ActiveSheet.Range("$A$2:$P$5000").AutoFilter Field:=9, Criteria1:="1"　というオートフィルターのマクロがあります。 Criteria1:=　の次にある　”１”　はどういう意味ですか?

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

フィルタをかける条件を意味しますよ。 この場合、 　　・Field:=9　　　　（範囲内の）９列目が 　　・Criteria1:="1"　　「１」のモノ を抽出してくるというフィルタですね。 他の使い方として、 　　　　ActiveSheet.Range("$A$2:$P$5000").AutoFilter Field:=9, Criteria1:="1" , _ 　　　　　　　　　　　　　　　　　　　　Operator:=xlOr, Criteria2:="2" としてやると「９列目が１又は２」のデータを、 　　　　ActiveSheet.Range("$A$2:$P$5000").AutoFilter Field:=9, Criteria1:=">=1" , _ 　　　　　　　　　　　　　　　　　　　　Operator:=xlAnd, Criteria2:="<3" だと「９列目が１以上３未満」のデータを それぞれ抽出してきます。 Criteria 以降を省略するとフィルタ解除ですよ。

perogou
質問者

お礼

ありがとう　よくわかりました

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • マクロのAutoFilter Fieldについて

    初めての質問のため､足りない情報などあるかもしれませんので､ その際はご指摘いただけますと幸いです｡ マクロのAutoFilter Fieldの場所を可変させたい｡ 調べ方が甘いだけだと思いますが､AutoFilter Fieldの値を可変させる方法を教えてください｡ 縦軸に製品､横軸に日付の情報を持つ計画表に対し､ とある日の製品計画情報を抽出したいと考えています｡ マクロサンプル記載 Range("$A$2:$z$100").AutoFilter Field:="A1", Criteria1:="製品名" ※A1にはフィルタをかけたい列番号が引数として入っています｡ 上記の"A1"部分を1や2などの定数にすれば問題ないのですが、 日付によって計画が違うため、可変させたいと考えています。 何か良い方法があれば教えていただけますと幸いです。

  • オートフィルタをかけるマクロ

    A12からA50に表示されている内容でB列にオートフィルタをかけ、印刷をする というマクロですが、 Selection.Autofilter field:=2, Criteria1:=Range("A12") Activesheet.Printout を39回コピーし、"A12"の部分を"A13"............"A50"に変えていきました。 本当はもっとスッキリできると思うのですが、そこがまだよくわかりませんので どなたか教えていただけないでしょうか。 A列は必ず50までデータがあるとは限りません。 エクセル2003使用の初心者です。 よろしくお願いします。

  • オートフィルタ　検索

    オートフィルタで三つの条件でデータを抽出するマクロを作っています 以下のような記述は誤りでしょうか？ ActiveSheet.Range("$B$2:$D$114").AutoFilter Field:=1, Criteria1:="=02722*" _ , Operator:=xlOr, Criteria2:="=02729*" _ , Operator:=xlOr, Criteria3:="=02737*" 表はこのようなものです ↓キー 番号　　　　　　名前　　　　　　値 027＊＊　　　　　＊＊　　　　　＊ 027＊＊　　　　　＊＊　　　　　＊ 027＊＊　　　　　＊＊　　　　　＊ ・ ・ ・

  • エクセルのシートをコピーしたら、マクロが・・・

    こんにちは。 小さい図書室の運営をしている者です。 前回、こちらに質問を投稿したところ、とても役立つアドバイスを頂き、すぐに解決したので、今回も質問させていただきます。 今、図書の管理をすべてＰＣで行っています。 エクセルの「貸出管理」と言うブックで図書の貸出管理を行っています。 フィルタを使って図書の検索をした後、次に図書データを入力すべきセルにボタン一つで戻れるようにマクロを登録してあります。 このマクロを同じブック内の他のシートにコピーして使いたいのですが、コピーするとシートのテーブル名が変わってしまうためマクロでエラーが出てしまいます。 同じブック内の複数のシートでこのマクロを使う場合、いちいちシート名を変えなければならないのでしょうか？？ もしくは、シートそれぞれに違うマクロを登録しなければならないのでしょうか？？ ちなみに、登録されているマクロは次の通りです。 Sub 戻り() ' ' 戻り Macro ' ActiveSheet.ListObjects("テーブル2").Range.AutoFilter Field:=12 ActiveSheet.ListObjects("テーブル2").Range.AutoFilter Field:=10 ActiveSheet.ListObjects("テーブル2").Range.AutoFilter Field:=9 ActiveSheet.ListObjects("テーブル2").Range.AutoFilter Field:=7 ActiveSheet.ListObjects("テーブル2").Range.AutoFilter Field:=6 ActiveSheet.ListObjects("テーブル2").Range.AutoFilter Field:=4 ActiveSheet.ListObjects("テーブル2").Range.AutoFilter Field:=3 ActiveSheet.ListObjects("テーブル2").Range.AutoFilter Field:=2 ActiveSheet.ListObjects("テーブル2").Range.AutoFilter Field:=1 Range("テーブル2[貸出日]").Select Selection.End(xlDown).Select Selection.Offset(1, 0).Select End Sub この説明で分かって頂けますでしょうか？！ どうか御回答お願いいたします！！

  • エクセルのマクロのことについてです。

    エクセルのマクロのことについてです。 セル内に入力した日本語でオートフィルタの絞り込み検索をかけるマクロを作りたいのですが、英語ではうまく行っているのですが、日本語ではなぜかうまくいきません。 下記のようにコードを書いているのですが、 どこが間違っているのかご教授いただけませんでしょうか？ Dim nihongo As String nihongo = Worksheets("絞り込み").Cells(3.4).Value If nihongo = Empty Then nihongo = "*" End If ActiveSheet.Range("$A$7:$G$100").AutoFilter Field:=4, Criteria1:="=*" & nihongo & "*", Operator:=xlAnd

  • エクセルのマクロでフィルタを判別するマクロ

    いつもお世話になっております。 エクセル2000で オートフィルタを使用した表があります。 やりたいことは以下の通りです。 AutoFilter Field:=1（一番左側のフィルタ）が、 なんらかのフィルタリングがされている （フィルタの▼が青い状態）のときはそのままで、 なにもフィルタリングされていない （フィルタの▼が黒い状態）のときは Selection.AutoFilter Field:=1, Criteria1:="<>#N/A", Operator:=xlAn を実行させたいのです。 どのようなマクロを記述すればいいか ご教示ください。 よろしくお願いします。

  • エクセル　マクロ超初心者です。仕事に使用したくて、数日前から初めたばか

    エクセル　マクロ超初心者です。仕事に使用したくて、数日前から初めたばかりです。 下記の作業の部分がうまくいきません。どう変えたらいいのか教えてください。 【作業】 数列が入力されている列（M列）で、オートフィルタのオプション機能で、100以上・-100以下のもののみ選択し、該当したもののP列に〇と入力する作業です。 【コード】 （新しいマクロの記録から、実際に作業をして記録させたところ下記のようになりました） Selection.AutoFilter Field:=13, Criteria1:=">=100", Operator:=xlOr, _ Criteria2:="<=-100" Range("P5").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "○" Range("P5").Select Selection.FillDown ActiveSheet.ShowAllData

  • エクセルのマクロ

    勉強を始めたばかりで処理を繰り返す項目をいろいろ調べたのですがうまくいきません。教えてください。 オートフィルタで3列目を”東京　”という文字でを抽出したあとである処理をし、その後同じ列で今度は”神奈川　”を選び同様の処理をする。また今度は 次は"千葉”と繰り返したいのです。 マクロを見てみると Selection.AutoFilter Field:=3, Criteria1:="1" 　　　何らかの処理 Selection.AutoFilter Field:=3, Criteria1:="2" 　　　何らかの処理 Selection.AutoFilter Field:=3, Criteria1:="3" 　　　何らかの処理 となっています。こうなると必要な数だけ これをコピーしないといけないので ループのようなもので下記の■の部分の 数字を1.2.3.～と処理を繰り返す毎に 増やして生きたいのです。 そしてリストの最後にきたらおしまいにしたいのですが・・・・。FOR　NEXT　とか　DO　LOOP　とか 試しましたが、私の幼稚な知識ではうまく動いてくれませんでした。すみませんがよろしくお願いします。 Selection.AutoFilter Field:=3, Criteria1:="■" 処理

  • マクロ　オートフィルタで困っています。

    マクロ　オートフィルタで困っています。 1列目と2列目からそれぞれ条件をフィルタで抽出し、抽出された行を削除するマクロを組んだのですが（下記）、Bの条件が表にない場合に2行目から下が全て削除されてしまいます。 元の表は毎週変わるため、抽出する条件があるかないかはその時次第です。 オートフィルタにこだわってはいませんが、その他の抽出方法もいまいち分からず……。 どのようにすればよいのか、教えていただけますでしょうか。 宜しくお願い致します。 <マクロ> Sub Macro() Selection.AutoFilter Field:=1, Criteria1:="A" Selection.AutoFilter Field:=2, Criteria1:="B", Operator:=xlAnd Dim gyou(1) As Long gyou(0) = 2 gyou(1) = Range("A1").CurrentRegion.Rows.Count Rows(gyou(0) & ":" & gyou(1)).Select Selection.Delete Shift:=xlUp End Sub

  • 特定のセルをフィルタするマクロを作りたい

    特定のキーワードが含まれるセルをフィルタするマクロを作りたいです。 使用環境はExcel2010です。 口頭ではわかりにくいので、画像を添付します。 添付画像のように、それぞれの人物名と点数が一覧になった表があります。 特定の名前の人で点数が一定以下の行をフィルターしたいのですが、毎回フィルターで名前を選ぶのが面倒なので、マクロの記録機能で下記のマクロを作成しました。 Selection.AutoFilter ActiveSheet.Range("$A$1:$C$7").AutoFilter Field:=2, Criteria1:="=鈴木", _ Operator:=xlOr, Criteria2:="=田中" ActiveSheet.Range("$A$1:$C$7").AutoFilter Field:=3, Criteria1:="<70", _ Operator:=xlAnd 上記のマクロで、「田中」と「鈴木」のみ、点数が70点に満たなかった行を抜き出しています。 しかし、他部署の人物も調査の対処に含めるため、E2:E7セルに調査したい対象の名前を入れ、自動的にセルに入力された名前でフィルタリングされるようにしたいです。 この際のマクロの記載方法を知りたいです。 ＊部署によって人数が異なるため、E2:E7セルに入力する名前がすべて埋まるとは限りません。 ＊実際の名前と点数は毎月新しいExcelブックで送られてくるので、フィルター用のExcelシートにコピーペーストで張り付けて使用予定です。 ＊記載されている名前や点数は例です。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する