Excel VBA質問箱 IV

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

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


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

8924 / 76732

←次へ　｜　前へ→


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

UO3 - 12/12/28(金) 12:05 -


	引用なし

	パスワード

▼kanabunさん

いつもお世話様です。
とりあえず私が想定しているブック要件を。

・まず、Book1 には　同じレイアウトのシートが２枚あると想定しています。
　スレ主さんが Book1-1 と　Book1-2 という表現をしておられましたので。
　で、シート名がわからないので、 Sheets(1) と Sheets(2) として扱っています。
・でBook1の各シートは、7行目までヘッダー部分で、何かしらの項目がセットされている。
　でも、少なくとも、7行目には、説明のあった
　空白・通番・県名・地区・グループ番号・従業員番号・従業員名・過去申請金額・申請金額・実金額
　こういう見出しがＡ列からＪ列にあるという前提です。（Ｋ列以降にもあるでしょうけど対象にしていません）
・で、Ｅ列のグループ番号は空白になっているんだろうと想定しています。
　ですから（スレ主さんに断わりもなく）、ここに Book3から従業員番号をキーにしてグループ番号を埋め込んで
　処理しています。で、処理後、また（こっそり）空白に戻しています。

　★この紐つけが、従業員番号でＯＫなのか、あるいは他の項目で紐つけるべきなのかは、スレ主さんに
　　確認するのを失念していました。もしかしたら違うかもしれませんね。

・Book2 も　上の７行目がヘッダー部分なんだろうと思っています。
　で、その中の７行目が
　空白・従業員NB・従業員名・申請日・申請金額・実金額
　このようにＡ列からＦ列に記載されているんだろうと思っています。
・フィルターを使いますので、ネックが
　１）Book1 のタイトルは　"従業員番号" 、一方、Book2 では "従業員NB" 。
　　　ここをスレ主さんにお願いして同じものにしてもらうのが本筋だったかもしれませんが
　　　横着に（？）このＡ～Ｆ列の値を保存して、ここにBook1の該当の項目名をセット。
　　　（最後に復元しています）
　２）Book1 にない項目、"申請日" があります。このままではフィルタリングで失敗しますので
　　　コードでは、ここを　Book1　の G7 （従業員名）からセット。フィルタリング完了後に
　　　列データをクリアしています。

・ということで、Book1からのフィルタリングを２回行い、最初は７行目のタイトル行に対して
　２回目は、抽出最終データの下の行にタイトル行をセットして、そこから下に抽出した後で
　ダミーでセットしたタイトル行を削除しています。

・Book1 への　グループ番号のセットとリセットは
　Call maintGrp(sh, True, dicP)　と　Call maintGrp(sh, False)　で行っています。

・印刷時に、そのままBook2 を印刷しますと、私が勝手に置き換えたタイトルが７行目にある状態で
　印刷されますので、印刷前に（もうデータ抽出は終わっていますので）タイトル行を復元しています。

・なお、H列に、たとえばスレ主さんの担当地区が３つ（H2:H4) 記載されていたとすると、
　そのI列に、同じグループコードを
　.Range("H2", .Range("H" & .Rows.Count).End(xlUp)).Offset(, 1).Value = grp
　でセット。この場合、H1:I4 が検索条件欄になります。

★なお、申請金額・実金額　は　Ｙ列、Ｚ列なのかもしれません。
　ただ、私のコードでは、Ａ列から連続して説明のあった項目があると認識していますので、
　↑で書きましたように、項目は（空白も含めて）Ａ列からＪ列　としています。

426 hits

▼

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