Excel VBA質問箱 IV

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

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


8849 / 76732 ←次へ | 前へ→

【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」に

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

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

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

【73344】AdvancedFilterメソッドについて ニャンソ 12/12/21(金) 23:34 質問
【73346】Re:AdvancedFilterメソッドについて UO3 12/12/22(土) 0:44 発言
【73348】Re:AdvancedFilterメソッドについて ニャンソ 12/12/22(土) 8:33 質問
【73349】Re:AdvancedFilterメソッドについて kanabun 12/12/22(土) 10:08 発言
【73350】Re:AdvancedFilterメソッドについて kanabun 12/12/22(土) 10:17 発言
【73353】Re:AdvancedFilterメソッドについて ニャンソ 12/12/22(土) 16:22 回答
【73352】Re:AdvancedFilterメソッドについて ニャンソ 12/12/22(土) 16:18 質問
【73351】Re:AdvancedFilterメソッドについて UO3 12/12/22(土) 14:07 発言
【73354】Re:AdvancedFilterメソッドについて ニャンソ 12/12/22(土) 16:28 回答
【73355】Re:AdvancedFilterメソッドについて UO3 12/12/22(土) 18:23 発言
【73356】Re:AdvancedFilterメソッドについて ニャンソ 12/12/22(土) 19:14 お礼
【73358】Re:AdvancedFilterメソッドについて ニャンソ 12/12/24(月) 21:24 回答
【73360】Re:AdvancedFilterメソッドについて kanabun 12/12/25(火) 0:05 発言
【73362】Re:AdvancedFilterメソッドについて ニャンソ 12/12/25(火) 20:34 お礼
【73361】Re:AdvancedFilterメソッドについて UO3 12/12/25(火) 10:39 発言
【73363】Re:AdvancedFilterメソッドについて ニャンソ 12/12/25(火) 20:54 回答
【73364】Re:AdvancedFilterメソッドについて UO3 12/12/26(水) 9:53 発言
【73366】Re:AdvancedFilterメソッドについて ニャンソ 12/12/26(水) 19:46 お礼
【73369】Re:AdvancedFilterメソッドについて UO3 12/12/27(木) 12:33 発言
【73371】Re:AdvancedFilterメソッドについて ニャンソ 12/12/27(木) 22:03 回答
【73372】Re:AdvancedFilterメソッドについて UO3 12/12/27(木) 22:10 発言
【73379】Re:AdvancedFilterメソッドについて ニャンソ 12/12/28(金) 21:00 回答
【73373】Re:AdvancedFilterメソッドについて UO3 12/12/27(木) 22:15 発言
【73380】Re:AdvancedFilterメソッドについて ニャンソ 12/12/28(金) 21:02 回答
【73382】Re:AdvancedFilterメソッドについて ニャンソ 12/12/28(金) 22:00 発言
【73385】Re:AdvancedFilterメソッドについて ニャンソ 12/12/29(土) 20:11 回答
【73374】Re:AdvancedFilterメソッドについて kanabun 12/12/28(金) 11:23 発言
【73375】Re:AdvancedFilterメソッドについて kanabun 12/12/28(金) 11:42 質問
【73376】Re:AdvancedFilterメソッドについて UO3 12/12/28(金) 12:05 発言
【73377】Re:AdvancedFilterメソッドについて kanabun 12/12/28(金) 19:37 発言
【73378】Re:AdvancedFilterメソッドについて kanabun 12/12/28(金) 20:05 発言
【73381】Re:AdvancedFilterメソッドについて ニャンソ 12/12/28(金) 21:56 回答
【73383】Re:AdvancedFilterメソッドについて kanabun 12/12/29(土) 9:31 発言
【73384】Re:AdvancedFilterメソッドについて kanabun 12/12/29(土) 9:40 発言
【73386】Re:AdvancedFilterメソッドについて ニャンソ 12/12/29(土) 21:23 回答
【73387】Re:AdvancedFilterメソッドについて kanabun 12/12/29(土) 21:58 発言
【73388】Re:AdvancedFilterメソッドについて ニャンソ 13/1/2(水) 21:17 回答
【73390】Re:AdvancedFilterメソッドについて kanabun 13/1/3(木) 0:26 発言
【73391】Re:AdvancedFilterメソッドについて ニャンソ 13/1/3(木) 20:39 回答
【73392】Re:AdvancedFilterメソッドについて kanabun 13/1/3(木) 23:11 発言
【73396】Re:AdvancedFilterメソッドについて ニャンソ 13/1/4(金) 20:59 回答
【73409】Re:AdvancedFilterメソッドについて kanabun 13/1/5(土) 19:04 発言
【73428】Re:AdvancedFilterメソッドについて ニャンソ 13/1/7(月) 21:05 回答
【73429】Re:AdvancedFilterメソッドについて kanabun 13/1/7(月) 23:27 発言
【73451】Re:AdvancedFilterメソッドについて ニャンソ 13/1/11(金) 20:54 回答
【73452】Re:AdvancedFilterメソッドについて kanabun 13/1/11(金) 23:09 発言
【73477】Re:AdvancedFilterメソッドについて ニャンソ 13/1/14(月) 20:07 回答
【73488】Re:AdvancedFilterメソッドについて kanabun 13/1/15(火) 9:39 発言
【73508】Re:AdvancedFilterメソッドについて ニャンソ 13/1/16(水) 21:17 回答
【73511】Re:AdvancedFilterメソッドについて kanabun 13/1/16(水) 22:51 発言
【73521】Re:AdvancedFilterメソッドについて ニャンソ 13/1/17(木) 20:46 回答
【73522】Re:AdvancedFilterメソッドについて kanabun 13/1/17(木) 21:58 発言
【73525】Re:AdvancedFilterメソッドについて ニャンソ 13/1/17(木) 22:47 回答
【73389】Re:AdvancedFilterメソッドについて ニャンソ 13/1/2(水) 21:26 回答
【73365】Re:AdvancedFilterメソッドについて kanabun 12/12/26(水) 9:54 発言
【73367】Re:AdvancedFilterメソッドについて ニャンソ 12/12/26(水) 20:06 回答
【73368】Re:AdvancedFilterメソッドについて kanabun 12/12/26(水) 21:09 質問
【73370】Re:AdvancedFilterメソッドについて ニャンソ 12/12/27(木) 21:49 回答
【73359】Re:AdvancedFilterメソッドについて ニャンソ 12/12/24(月) 21:25 質問

8849 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free