[[20090725090554]]　『支店別にシートを振分けるマクロを組みたいのです』（はっぱ）　ページの最後に飛ぶ

『支店別にシートを振分けるマクロを組みたいのですが』（はっぱ）
Excel2002,WindowsXP

47都道府県の支店が入力されているリストがあります。
それを支店別にシートを振分けたいのですが結構手間のかかる作業ですので
マクロで支店別にシートを分けれるように組みたいのですがデータを取る度に
件数が違ってくるので普通にマクロを組んでしまうと違う支店が入ってしまいます。
(私が作るマクロは実際に作業をして記録させるマクロです。)
どのようなマクロを組めば支店別にシートを振分けらけるでしょうか?

データは下記の様のものです

 支店	 受付区分	 受付番号	入居者	商品名	実施予定日
 札幌支店 １年	 12345 	Aさん	***　	2009/08/01
 札幌支店 １年	 12456 	Bさん	***	2009/08/03
 札幌支店 １年	 12687 	Cさん	***      2009/08/08
 札幌支店	 ２年点検	 12589 	Dさん	***	2009/08/11
 札幌支店 ３年点検	 12556 	Exy	***	2009/08/17
この下に47都道府県の支店名が続きます。
よろしくおねがいします。

 1) シートを１枚追加する
 2) 新シートの A1 に　支店 として、A2 に 任意の支店名を入力
 3) 新シートがアクティブな状態で [データ] - [フィルタ] - [フィルタオプションの設定]
 4) [抽出先] - 指定した範囲を選択
 5) [リスト範囲] - 元シートのデータ範囲（列項目行を必ず含む）を選択
 6) [検索条件範囲] - 新シートのA1:A2を指定
 7) [抽出範囲] - 新シートのA4 を指定　して　OK

 3) - 7) の手順をマクロの記録をするとかなり希望に近い形のコードができます。
 (seiya)

 衝突してしまいましたが、そのまま載せておきます。

 こんにちは。かみちゃん　です。

 > 私が作るマクロは実際に作業をして記録させるマクロです。) どのようなマクロを組めば支店別にシートを振分けらけるでしょうか?

 今できているマクロがあるならば、掲載されてみてはいかがでしょうか？
 セル位置、どの列が支店の列で、どの行がタイトル行、どの行からデータ行なのかを列番号と行番号を説明されてはいかがでしょうか？

 あと、支店の列で、重複しないリストを作成し、そのリストのひとつずつをフィルタオプションの設定で別のシートに抽出していく
 という感じでできると思うのですが、
 フィルタオプションの設定は、わかりますか？
http://www.eurus.dti.ne.jp/~yoneyama/Excel/filter3.htm

 重複しないリストは、フィルタオプションの設定でできるのですが、Dictionaryオブシェクトを使って作ることもできますが、
 Dictionaryオブジェクトは、少し難しいかもしれませんが、いかがでしょうか？
http://officetanaka.net/excel/vba/tips/tips80.htm

 (かみちゃん)
 2009/07/25  9:40

 一つのブックに、元データが入ったシート１枚と
 各支店のシート４７枚の
 合計４８枚のシートが有る　と言う事ですか？

 オートフィルタを使用すれば
 元データシート一枚で
 支店別のデータのみを表示させる事が出来ますが
 どうしても４８枚必要なのでしょうか？

 こちらの方は、数式がご希望で
 はっぱさんの場合マクロがご希望の様なので
 少し状況は違いますが、基本的には同じだと思います。
[[20090718120021]]『担当者ごとに抽出して別の表に表示したい』（限界ちゃん）

 ＞ 普通にマクロを組んでしまうと違う支店が入ってしまいます。
 ＞(私が作るマクロは実際に作業をして記録させるマクロです。) 
 これは、
 　今回は、札幌支店は　A2:F6だから、この範囲をコピーして、貼り付け
 と言った作業でしょうか？
 でしたら、札幌支店の件数が5件で無かった場合に　確かに問題が出そうですね。

 オートフィルタで支店を絞り込んでコピペ。次の支店で絞り込んでコピペ・・・
 をマクロで繰り返す設計にしたり
 フィルタオプションの設定を利用（支店毎の繰り返し処理は同様に必要）する
 設計にするのが、簡単かもしれません。

 これらでしたら、マクロの記録で基本部分のコードが作成出来ますので。

 似たような過去ログはたくさん有ると思いますので
 探してみられても良いかもしれません。

 (HANA)

seiyaさん・かみちゃんさん・HANAさん

ありがとうございます。オートフィルタのオプションでマクロ登録をちょっとやってます。
うまくできなかったらまた教えてください。

 >オートフィルタのオプション
 違いますよ？
 オートフィルタではありません。
 MSがなぜこんな紛らわしい名称にしたのかわかりませんが
 AdvancedFilter の方です。
 (seiya)

 衝突しちゃいましたが。。。。

 ＞オートフィルタのオプションでマクロ登録をちょっとやってます。
 念のために書いておきますが
 ●オートフィルタ（のオプション）
 ●フィルタオプションの設定
 二つは違う物です。

 まずは、seiyaさんの書込に従って
 【フィルタオプションの設定】を
 試してみて下さい。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20090725090554]] 『支店別にシートを振分けるマクロを組みたいのです』（はっぱ） ページの最後に飛ぶ

[[20090725090554]]　『支店別にシートを振分けるマクロを組みたいのです』（はっぱ）　ページの最後に飛ぶ