• ベストアンサー

エクセルのフィルターでのフィールド項目について

おせわになります。。 エクセルVBA初心者です。 フィルターをかけて同じフィールドの条件を繰り返し行い、抽出がしたいのですがどのようにしたらできますでしょうか？ 2008/10　会社A　10円 2008/10　会社B　12円 2008/10　会社C　20円 のように会社名ごとに金額を集計したいのですが会社名の数が多く、 かつ、今後も会社名が増えていくので Selection.AutoFilter field:=1, Criteria1:=myKaisyaのようにCriteria1:=に変数をいれてループして全会社名を取得したいと考えてます。 なにぶん初心者なので行き詰っています。。 どなたかアドバイスいただけないでしょうか？

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

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.4

#2です。 VBAで、SUMIFで会社別合計をだすコード 例データ A１：B１２ 会社名 計数 A会社 1 A会社 2 B会社 3 A会社 4 C会社 2 B会社 4 A会社 2 A会社 6 B会社 3 A会社 2 C会社 1 ーーー F1：F3　会社名＜－フィルタオプションの設定、重複するレコードは無視する、で会社名一覧を作る。 F列　　　G列 A会社 17 B会社 10 C会社 3 ーー コード 標準モジュールに Sub test01() d = Range("A65536").End(xlUp).Row d1 = Range("F65536").End(xlUp).Row For i = 1 To d1 Cells(i, "G") = Application.SumIf(Range("A2:A" & d), Cells(i, "F"), Range("B2:B" & d)) Next i End Sub ーーーー 結果 上記G1:G3 ーーー ＞全会社名を取得したいと考えてます 会社名だけなら、エクセルの操作である データ フィルタ フィルタオプションの設定 その中の「重複するレコードは無視する」にしてマクロの記録をとれば、コードはわかります。

Turkey-R
質問者

補足

imogasiさん ２度にわたりアドバイスを頂き、ありがとうございます。 >＞全会社名を取得したいと考えてます >会社名だけなら、エクセルの操作である >データ >フィルタ >フィルタオプションの設定 >その中の「重複するレコードは無視する」にしてマクロの記録をとれば、コードはわかります。 はい♪　コード取れました！！ For文の方は、明日以降試してご報告させていただきます。 助けていただき本当にありがとうございます！

その他の回答 (5)

  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.6

ANo.1です。 Dictionaryオブジェクトのサンプルです。 データがＡ～Ｃ列にあり、結果をＥ・Ｆ列に書き出すものとします。 Sub　test() 　Dim　Dic　As　Object 　Dim　i　As　Long 　Dim　v 　Set　Dic　=　CreateObject("Scripting.Dictionary") 　With　Worksheets("Sheet1") 　　　　　　v　=　.Range(.Range("B1"),　.Cells(Rows.Count,　3).End(xlUp)).Value 　　　　　　For　i　=　1　To　UBound(v,　1) 　　　　　　　　　　Dic(v(i,　1))　=　Dic(v(i,　1))　+　v(i,　2) 　　　　　　Next 　　　　　　.Range("E:F").ClearContents 　　　　　　.Range("E1").Resize(Dic.Count,　2).Value　=　_ 　　　　　　Application.Transpose(Array(Dic.keys,　Dic.items)) 　End　With 　Set　Dic　=　Nothing 　Erase　v End　Sub ご参考まで。

Turkey-R
質問者

補足

n-junさん 二度にわたるアドバイスありがとうございます。 Dictionary大変参考になりました。 なんとかかんとか、解決できましたので 質問を締め切らせていただきます。 参考になった順にポイントをつけさせて頂きます。 皆様 本当にありがとうございました。

回答No.5

金額の合計が知りたいだけですか？ 金額が入力されてる所を全部選択すれば下に合計が出て来ますよね？ 出て来なかったら 右クリックして「合計」を選べば良いかと思うのですが。

Turkey-R
質問者

補足

ookami1969さん アドバイスありがとうございます。 今回は、知人の会社で使用する為、VBAでできるバッチ処理を作成しております。 知人いわく、操作/知識があやふやなので余計な操作をせずに ボタン一つで処理が完了するようにとの要望でした。 ですが、 わざわざこのような質問にお時間を割いていただき 感謝しております。 ありがとうございました。

  • empelt
  • ベストアンサー率52% (9/17)
回答No.3

マクロなど組まなくてもピボットテーブルを使えば一発ではないでしょうか？ グルーピングして合計や個数や平均値などの算出が可能です。

Turkey-R
質問者

補足

empeltさん ありがとうございます。 調べてみたのですが、 確かにピボットテーブルを使えば一発かもしれませんね。 　月　会社　金額　割合　 VBAでどのように書いていくのか、さらに調べてみようと思います。 ありがとうございました。

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

コンなのは、会社名でソートして、会社名が切れる（変わる）まで足しこみ、変わったところでその時点の合計をセルに書き出せば簡単です。オフライン・バッチ処理の常道。 フィルタを使う方法も考えてみますが。 SUMIF関数で、会社名を変えて計算が出来るかもしれない。 夜遅いのでとりあえず。

Turkey-R
質問者

補足

imogasiさん ありがとうございます。 SUMIF関数ですね。調べて見ます。 ちなみに補足になるかわからないのですが、現在の流れはVBAで １．月ごとでフィルタ ２．会社名でフィルタ ３．会社ごとに金額を抽出（合計金額はSUBTOTALで別セル表示している） ４．合計額を集計用の別シートに転記 ５．月　会社名　合計金額　割合を出す。 といった感じです。 夜遅くにありがとうございました。

  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

Excel(エクセル) VBA入門：Dictionaryオブジェクトを利用する http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_dictionary.html 日付に関係なく会社毎の集計と言う場合には、私はこの方法を用いてます。

Turkey-R
質問者

補足

n-junさん ありがとうございます。 実は月で一度フィルタをかけ、集計しているのです。 しかし、教えていただいたURLを参考に色々と試してみたいと思います。 ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルのマクロ

    勉強を始めたばかりで処理を繰り返す項目をいろいろ調べたのですがうまくいきません。教えてください。 オートフィルタで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 みかん 3 すいか 1 りんご 2 みかん 3 すいか 1 りんご 2 みかん 3 すいか 上記の表があり、フィルターで1を選ぶ場合に自動マクロで記録すると Selection.AutoFilter Field:=1, Criteria1:="1" となります。これをＣ3に入力した数字を参照したいので Selection.AutoFilter Field:=1, Criteria1:＝cells(1,3) としてみたのですが、うまくいきませんでした 下記のように選択されるようにしたいのですが、どうすればよいのでしょうか？ Ａ列 Ｂ列 1 りんご 1 りんご 1 りんご

  • ＥXcelオートフィルタのオプション設定で条件として変数をマクロで組むには？

    　オートフィルタ機能を使い、指定期間内のデータを抽出するようにマクロを組みたい。指定期間が一定ではないので変数を設定したいのですがうまくいきません。下記はマニュアルで入力したものをマクロに記録したものです。指定期間は他のBookのセルに入力画面として設けてあります。例えばBook2／B1(開始)～B2(終了)。 Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=">=2005/8/21", Operator:=xlAnd _ , Criteria2:="<=2005/9/20" Range("C1").Select End Sub

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

    マクロ　オートフィルタで困っています。 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

  • Ｅxcel のフィルター

    下記の表があり、フィルターで1を選ぶ場合に自動マクロで記録すると Selection.AutoFilter Field:=1, Criteria1:="1" となります。 Criteria1:=～ ～の部分をセルで参照するにはどうすればいいのでしょうか？単純にCriteria1:=cells(3,1) としてもうまくいきません。 正しい記述方法をお願いいたします。よろしくお願いします。 Ａ列　　Ｂ列 1 りんご 2 みかん 3 すいか 1 りんご 2 みかん 3 すいか 1 りんご 2 みかん 3 すいか

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

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

  • EXCEL　VBAでのオートフィルター

    EXCELのVBAで日付のデータを 過去1日、過去1週間、過去1ヶ月などのボタンを作成し クリックしたらオートフィルター機能で各条件に 合ったデータを表示するにようにしようと思っています。 しかし、フィルターがない状態でクリックすると 正常に機能するのですが連続してボタンを クリックするとうまくいきません。（表示がかわらない） 良い対策方法、または正しいやり方を教えてください。 よろしくお願いします。 EXCEL2000 Sub　ボタン_クリック() Rows("3:3").Select Selection.AutoFilter Selection.AutoFilter Field:=1, _ Criteria1:=">=" & , 条件日,Operator:=xlAnd End Sub

  • オートフィルタ　マクロについて

    質問です。 オートフィルタで複数列を1つの条件で抽出したいのですが、教えてください。 たとえばA列が納品書No.・B列が受注No.・C列が商品No.なのですがすべて数字の為、出来ればInBox一回でA-C列を検索してほしいです。 指定納品書NO 受注NO 元品番 21812 3252608 77 21880 3307989 32B 22053 3389769 95414A 22050 3389770 67312H 22052 3389771 67312H 22050 3389773 67118H 以下の様なマクロを作ってみましたが、 A-C列全てに一致しないと抽出しないようです。 どなたかご教授いただけないでしょうか？ マクロ '条件1 の設定 Dim 検索NO As Variant '抽出キーの入力指示 検索NO = InputBox("検索NOを入力てください。") 'キャンセルした場合の処理 If 検索NO = Empty Then Exit Sub End If 'オートフィルタがかかっていなかったらかける 'かかっていたら念の為一度解除し再設定 If ActiveSheet.AutoFilterMode = False Then Range("A2:O2").Select Selection.AutoFilter Else Selection.AutoFilter Range("A2:O2").Select Selection.AutoFilter End If Selection.AutoFilter Field:=1, _ Criteria1:=">=" & 検索NO, Operator:=xlAnd, Criteria2:=" " & 検索NO Selection.AutoFilter Field:=2, _ Criteria1:=">=" & 検索NO2, Operator:=xlAnd, Criteria2:=" " & 検索NO2 Selection.AutoFilter Field:=3, _ Criteria1:=">=" & 検索NO3, Operator:=xlAnd, Criteria2:=" " & 検索NO3 AutoFilterMode = False Application.ScreenUpdating = True End Sub よろしくお願いいたします。

  • 【エクセル マクロ】オートフィルター後の行削除

    Excel2003を使用しています。 オートフィルターを利用した作業をマクロの記録で処理していて 抽出されたデータを行ごと削除しているのですが Selection.AutoFilter Field:=1, Criteria1:="仕入先コード" Rows("4:2102").Select Selection.Delete shift:=xlUp Selection.AutoFilter Field:=2, Criteria1:="仕入先合計" Rows("7:2008").Select Selection.Delete shift:=xlUp …と、上記のような行番号で指定されてしまい 毎月データ数が増減するので、うまく処理出来ません。 (データは、テキストファイルからエクセルに取り込んでいます) 過去の例で近いものがあれば記述の中に取り込んでみましたが… これもうまくいきませんでした。 毎月変わるデータ数に対応できるマクロの記述を教えて下さい。 よろしくお願いします。

  • Excelマクロでオートフィルターからコピペ

    ファイルのB列の値から0以外の値をオートフィルターで抽出し、値を、別のファイルのD列の一番下に貼りつけるマクロを作っていますがうまくいきません。 今作ったのは Sub macro1() If ActiveSheet.AutoFilterMode = False Then Range("A:G").Select Selection.AutoFilter Else Selection.AutoFilter Range("A:G").Select Selection.AutoFilter End If Selection.AutoFilter Field:=2, Criteria1:="<>0", Operator:=xlAnd Range("A1").Select Range("B2", Range("B2").End(xlDown)).Select Selection.Copy Windows("貼りつけるファイル名").Activate Cells(Rows.Count, 4).End(xlUp).Offset(1).Select ActiveSheet.Paste End Sub です。 フィルターで0以外の値を抽出しコピーまではできていますが、貼りつけるところでエラーがでます。 Microsoft Visual Basic 400 というエラーです。 何が悪いのか分かりません・・・。 分かる方いましたらご教授ください。よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する