エクセルからエクセルへの差込印刷

こんばんは。 ワードの差込印刷を使えば簡単にできますよ。 それからエクセルワードの質問をする時は、バージョン（Excel2000とか2003とか）を書いた方がベターです。 以上です。

エクセルからエクセルへは差込印刷とは言わないようです。 ニーズは良くわかりますが。 VBAだけでやる方法ももちろんあります。一挙にそこに行かないで、中間のやり方をお勧めします。 Sheet1に生徒１人が１行に記録されているデータがあるとします。 Sheet2にデータセル以外の１セルを作業セルに使います。 そのセルの内容は第何行目の生徒のデータを参照しているかという数を示します。 Sheet2に浮動文字（見出しなど）・罫線・フォント・色などは各人共通とします。 ーー 例データ　Sheet1　A1:D3 氏名 　　　国語　　　算数 理科 木村　卓郎 23 34 45 高松　茂 33 41 28 ーーー Sheet2 G1（どこでも良いが印刷範囲外に仮に） 2 ーー 個人票の浮動文字例　下記ｘｘ以外。（）内はセル番地 xxは可変内容。そのセルには、下記関数式を入れる。 XXXXX(C3) 成績点数一覧（D3) 国語（C5) xx(D5) 算数（C6) xx1(D6) 理科（C7) xx(D7) 合計（C9) xx(D9) 平均（C10)xx(D10) ーー C3の式　=INDIRECT("Sheet1!A"&Sheet1!$G$1) D5の式　=INDIRECT("Sheet1!B"&Sheet1!$G$1) D6の式　=INDIRECT("Sheet1!C"&Sheet1!$G$1) D7の式　=INDIRECT("Sheet1!D"&Sheet1!$G$1) D9の式　=SUM(D5:D7) D10の式　=AVERAGE(D5:D7) ーーー G1の数を3に変えると 高松　茂 成績点数一覧 国語 33 算数 41 理科 28 合計 102 平均 34 のように変わるのを確認し、納得してください。 ーーー これを印刷します。これはG1の値を手動で変えた都度、手操作で印刷をやる方法がありますが、自動で一斉にやりたいでしょうから ツールーマクローVBEで標準モジュールの画面に Sub test01() d = Worksheets("Sheet1").Range("A65536").End(xlUp).Row 'Sheet1A列最終行数取得 For i = 2 To d 'Sheet2の第２行から第ｄ行まで繰り返し Range("G1") = i 'Sheet2のG1セルに行数をセット Range("A1:E12").PrintOut '印刷範囲は実情に合わせ Next i End Sub を貼り付けて、実行する（F5キーを押す）。 Sheet2をアクチブにして実行すること。 上記コードないをクリックしておいて実行すること。 たった５行なので辛抱して理解してください。 ーー 自分の場合に合わせるにはどう修正するか、類推を働かせてください。 実行発動方法はボタンやメニューやショートカットなど色々ありますのでVBAの解説を読んでください。

これはマクロでないと実現できないと思います。次のことを教えてください 印刷元シート（生徒毎の得点が書かれたシート） 　１）どの列に何の科目の点数が書かれているか 　　　例）Ａ列：氏名、Ｂ列：国語、Ｃ列：数学…　Ｊ列：順位 　２）生徒のデータは何行目から始まっているか 印刷するシート 　１）印刷元の各項目を、どこのセルに書き込めば良いか 　　　例）氏名：Ａ２、国語：Ｂ５、数学：Ｂ６…　順位：Ｊ１０ 　２）印刷するのシートは１頁ですか、それとも複数頁ですか