Excel VBA質問箱 IV

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

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


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

8913 / 76732

←次へ　｜　前へ→


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

kanabun - 12/12/29(土) 21:58 -


	引用なし

	パスワード

▼ニャンソさん：こんばんは。 >>そういえば、送られてくるデータブックも当然 Book名が都度 >>変わりますね？ >>前回の (kanabun案) を少し変更して、Book1の名前をマクロコード >>上でいちいち変更しなくてもすむように、マクロを実行するときは >>送られてきたデータブックを前面にして（アクティブにして）スタート >>すればすむようにしました。 > >変わりますね。 >ありがとうございます！！ > >アクティブとはどう行えばよいのでしょうか？ >>　'◆送られてきたBookをアクティブにして実行してくださいそのBookをアクティブにするとはそのBookを（Windowを）最前面にもってくるということです。つまり、マクロはマクロブックに書いてあり、印刷用の Book2 も開いているけれど、マクロを実行する直前には送られてきたBook1相当をクリックして画面の一番前にもってきてから、マクロを実行すれば Bookの名前を毎回マクロコードで書き換えなくてよい、ということです。 Book1-1 と Book1-2 については、先のニャンソさんの説明のとおりで、送られてきたデータは Book1のSheets(1) だけという理解でよろしいですね。 Book1-2 はあくまでこちらでグループ番号を補完したBook1-1 のコピーという考えでよろしいのですね？ Book2の印刷レイアウトが少し変わりましたが、考え方の変更を迫るようなものではないので、基本的に、 >処理手順 >1.私が処理する地区のみ（3地区）フィルタにて表示し、別シートへコピペ >2.そこにBook3からグループ番号をコピペ >3.グループ番号・従業員番号順に並び変え >4.グループ番号1のみ表示しBook2へコピペ >5.合計金額（申請金額・実金額それぞれ）を算出 >6.Book2を印刷 >7.Book2の内容を削除 >4～7を12回同じシートに行うの手順どおりで（列番号とか行番号とか範囲とか抽出項目とかは変わりますが）、Sub Try1b() で基本的には行けると思います。変更後のシートレイアウト用の修正コードを提示しても、考え方は Sub Try1b() のママなので↓ 　1. Book1-1 ⇒ AdvancedFilterで3地区のみ別シートにコピー　2. Book3からグループ番号を補完　3. グループ番号・従業員番号順に並び変え　4. グループ番号 1～ 12 別に Book2 に値コピーして印刷まず、Sub Try1b() が想定しているような BookとSheetのレイアウトで実行検証できる最低限のサンプルデータをつくり、そこで、ステップ実行なりしながら、コードの各行がしていることを理解することから始めるのが、「急がば回れ」かと思います。