Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8852 / 76735

←次へ　｜　前へ→


	【73451】Re:AdvancedFilterメソッドについて

ニャンソ - 13/1/11(金) 20:54 -


	引用なし

	パスワード

▼kanabun さん：

こんばんは。

回答が遅くなり申し訳ありません。

>>>>　Set Book1 = ActiveWorkbook '送られてきたデータブック
>
>ここで ActiveWorkbook というのはいまアクティブなBook のことです。
>それを Book1 というコード上の変数にセットしています。
>
>
>>>>　Set Book3 = ThisWorkbook　 'このマクロBook(Group名一覧を含む)
>
>ここで、ThisWorkbook というのはマクロが書いてあるこのBook のことです。
>同時に、 ThisWorkbook は「List」と「Temp」というシートをもっています。
>
>
>>>>　If Book1 Is Book3 Then
>>>>　　　MsgBox "送られてきたBookを前面にして実行", vbCritical
>>>>　　　Exit Sub
>>>>　End If
>の部分は、 Book1 (= ActiveWorkbook、最前面にあるBook) が Book3
>(＝マクロブック) だったら、マクロブックが最前面になっている、という
>ことなので、送られてきたBookをアクティブにして、このマクロを実行して
>下さい。
>ということを言っているのですが。。。

ええっと…もう一度コードを初めから貼りつけて実行したところ
正しく出来ました…
何故出来なかったのかは、分かりません。
申し訳ありません。

>最終的な目的ですが、
>
>送られてきた Book1 から必要なデータを抽出して Book2 上で印刷したい
>
>ということですよね。

そうです。

>Book1(送られてきたBook) から印刷用Book2 に AdvancedFilter で印刷に
>必要なデータだけ抽出転記できればいいのですが、印刷用Book2 のシートは
>罫線とかフォーマットがセットしてあるので、
>
>Book3 の「Temp」というシート上に Book1 から（AdvancedFilterを使って）
>必要な情報だけ抽出コピーして、
>
>「Temp」シートの表に Book3 の「List」シートから、Book1 にはないグルー
>プ番号とかを Book1にある項目に紐づけてTenpの表を補足し、並び替え、
>加工された「Temp」シートの表を ●●別にAutoFilter かけて、Book2にコピー
>し、●● の種類分だけ印刷を繰り返す。
>（なぜ Autofilterかというと Book2 には罫線とか書式設定してあるので、
>Book3のTempの表に Autofilter かけて抽出範囲を値のみコピーするため）
>
>と、大まかに言って、こういう処理内容でしたよね？

はい、間違いありません。

>再度、処理内容を大雑把にまとめると、
>1. Book1 から Book3のTempシートに AdvancedFilterで必要な地区だけ
>　必要な項目だけ転記する
>
>2. Book3のTempシートに Book3のListよりグループ番号？とか、並び替えに
>　必要な情報を補足してやり、
>
>3.Boo3のTempシートを順番にあるグループ？だけ Autofilterで値Copyして
>　　印刷に回す（Book2で）
>
>と、上記 3 Step を分けて考えてもいいと思います。
>
>まず、Book1(送られてきたデータシート)から AdvancedFilter で Book3の
>Temp シートに抽出する(1)の部分だけでも、コードで実行できるようにして
>みませんか？
>

本日実行しました。
結果としましては

>1. Book1 から Book3のTempシートに AdvancedFilterで必要な地区だけ
>　必要な項目だけ転記する
>2. Book3のTempシートに Book3のListよりグループ番号？とか、並び替えに
>　必要な情報を補足してやり、

が正しく出来ました。

Book3「Temp」に

Ａ列：グループ番号・県名・地区・従業員番号・従業員名・空白・申請金額・実金額
Ｂ列以降はデータ

がグループ1～12まで番号順に転記されていました。

よろしくお願い致します。

0 hits

▼

【73344】AdvancedFilterメソッドについて ニャンソ 12/12/21(金) 23:34