| |
▼kanabun さん：
こんばんは。
>金額欄が Y,Z列とか、
>Book2 のどの行に 印刷データを値貼り付けするのか？ とか、
>そういうことは「変数」 なので、変わってもいいようにマクロの
>ほうで対応しておけばいいですよ。
コード内容を理解し、自分で変更すれば実行出来るということですか？
Book1-1
Ａ・Ｂ・Ｃ・Ｄ・Ｅ・Ｆ・Ｇ・Ｈ〜Ｗ・Ｘ・Ｙ・Ｚ
1.空白
2.見出し
3.空白
4〜7.空白・通番・県名・地区・責任者番号・従業員番号・従業員名・過去申請金額・・空白・申請金額・実金額
8からがデータ
Book1-2
Ａ・Ｂ・Ｃ・Ｄ・Ｅ・Ｆ・Ｇ・Ｈ〜Ｗ・Ｘ・Ｙ・Ｚ
1.空白
2.見出し
3.空白
4〜7.空白・通番・県名・地区・グループ番号・従業員番号・従業員名・過去申請金額・・空白・申請金額・実金額
8からがデータ
Book2
Ａ・Ｂ・Ｃ・Ｄ・Ｅ・Ｆ・Ｇ・Ｈ・Ｉ・Ｊ・Ｋ
1.見出し
2〜5.説明文
6〜7.従業員番号・従業員名・申請日・申請金額・実金額・照合・処理日・処理した申請金額・処理した実金額・修正有無・確認日
8〜34.転記データ
35.ＡとＢ列結合で「合計」の文字
35のＤが申請金額の合計金額
35のＥが実金額の合計金額
36.空白
37〜39のＡ列Ｂ列結合.「金額差異理由
（名前・差異理由を記入）」
37のＣ・Ｄ結合.空白
37のＥ〜Ｋ.結合・空白
38のＣ・Ｄ結合.空白
38のＥ〜Ｋ.結合・空白
39のＣ・Ｄ結合.空白
39のＥ〜Ｋ.結合・空白
Ｃ・Ｆ・Ｆには「/」が入っています。
転記する所はBook1-2
Ａ・Ｂ・Ｄ・Ｅ
従業員NB・従業員名・申請金額・実金額
Book3
Ａ・Ｂ・Ｃ・Ｄ・Ｅ・Ｆ〜ＤＱ
地区・責任者番号・グループ番号・従業員番号・従業員名・その他データ
Book1-1・Book1-2・Book2については罫線ありです。
と変更となりました。
分かりにくく申し訳ありません。
不明な点があればおっしゃってください。
>そういえば、送られてくるデータブックも当然 Book名が都度
>変わりますね？
>前回の (kanabun案) を少し変更して、Book1の名前をマクロコード
>上でいちいち変更しなくてもすむように、マクロを実行するときは
>送られてきたデータブックを前面にして（アクティブにして）スタート
>すればすむようにしました。
変わりますね。
ありがとうございます！！
アクティブとはどう行えばよいのでしょうか？
>'---------------------------------------- 標準モジュール
>Option Explicit
>
>Private Book1 As Workbook
>Private Book2 As Workbook
>Private Book3 As Workbook
>
>Sub Try1()
> '◆送られてきたBookをアクティブにして実行してください
> Set Book1 = ActiveWorkbook '送られてきたデータブック
> Set Book2 = Workbooks("Book2.xls") '印刷シート
> Set Book3 = ThisWorkbook 'このマクロBook(Group名一覧を含む)
>
> If Book1 Is Book2 Then
> MsgBox "送られてきたBookを前面にして実行", vbCritical
> Exit Sub
> End If
> If Book1 Is Book3 Then
> MsgBox "送られてきたBookを前面にして実行", vbCritical
> Exit Sub
> End If
ここのコードでアクティブにされるのでしょうか？
それとも自分で行うのでしょうか？
>なので、ここから マクロブックの「Temp」シートに 必要な3地区データ
>を転送し、「Temp」シートにコピーされたデータについてだけグループ
>番号の書き込みをすることにします。要は、並び替えのキーにグループ
>番号が必要なだけなので、ってことです。
>(Q4.)グループ番号は他のどの項目に紐づけられているのでしょうか？
> Book1のデータの何をみると グループ番号が分かるのですか？
> 県名から連想されるグループ番号があるのですか？
> それとも、地区 をみると グループ番号が分かるのですか？
> あるいは 従業員番号 とか 従業員名 をみると分るのですか？
紐付けですが、Book1-1に責任者番号が追加となり責任者番号・従業員番号順に並んでおります。
ですので、Book3を責任者番号・従業員番号に並び変えて転記…という流れになります。
>そのほかのレイアウト関係は 前回と同じ前提です。
---------------------------------------------------
細かく説明して頂きありがとうございます。
お忙しい中ありがとうございました。
学生以来で初心者なもので頭が混乱しております…
結果につきましては、月曜に出来れば行いたいと思います。
出来なければ休み明け（3日）以降となります。
年末年始と忙しいので出来るか不安ですが…すみません。
よろしくお願い致します。
|
|
ニャンソ
- 12/12/29(土) 21:23 -
