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

エクセルのデータをワードへ差込印刷はできるのですが、エクセルへ差し込む方法を教えていただきたけますか。

エクセルで作った、学年の試験得点の一覧表があります。
これをエクセルで作った個人票に差し込みたいのです。

No.4 回答者： zap35 回答日時： 2007/03/05 11:50

＃０１です。

補足ありがとうございました。
印刷する元データの表は分かりました。A列～J列にデータがあるのですね。

印刷シートは１ページの印刷シートに生徒５名分のデータが印刷されるという解釈でよろしいでしょうか
また、
　＞1)氏名：A２、国語：B２、数学：C３…順位：J３
の氏名：A２、国語：B２はＡ３、Ｂ３ですね。

以下のマクロをALT＋F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はシート画面に戻って、ALT＋F8を押してマクロ一覧からマクロ名を選択して実行します。

シート名は３、４行目を実際のシート名に変更してから実行してください。

Sub Macro1()
Dim LastR, idx, ptr, cntPage As Integer
Const orgSheet As String = "元データ"
Const prnSheet As String = "印刷シート"
　LastR = Worksheets(orgSheet).Range("A65536").End(xlUp).Row
　For idx = 2 To LastR Step 5
　　For ptr = 0 To 4
　　　Worksheets(prnSheet).Cells(3, 1).Offset(ptr * 3, 0).Resize(1, 10).Value _
　　　　= Worksheets(orgSheet).Cells(idx, 1).Offset(ptr, 0).Resize(1, 10).Value
　　Next ptr
　　cntPage = cntPage + 1
　　Worksheets(prnSheet).PageSetup.CenterFooter = cntPage
　　Worksheets(prnSheet).PrintOut copies:=1
　Next idx
　Worksheets(prnSheet).PageSetup.CenterFooter = ""
End Sub

この回答へのお礼

ありがとうございました。
VBAを学習しようと思います。

お礼日時：2007/03/05 21:21

No.3 回答者： onlyrom 回答日時： 2007/03/04 21:53

こんばんは。

ワードの差込印刷を使えば簡単にできますよ。

それからエクセルワードの質問をする時は、バージョン（Excel2000とか2003とか）を書いた方がベターです。

以上です。

この回答へのお礼

ありがとうございます。

エクセルからエクセルの差込を知りたいのです。
バージョンは2003です。

お礼日時：2007/03/04 22:27

No.2 回答者： imogasi 回答日時： 2007/03/03 10:00

エクセルからエクセルへは差込印刷とは言わないようです。

ニーズは良くわかりますが。
VBAだけでやる方法ももちろんあります。一挙にそこに行かないで、中間のやり方をお勧めします。
Sheet1に生徒１人が１行に記録されているデータがあるとします。
Sheet2にデータセル以外の１セルを作業セルに使います。
そのセルの内容は第何行目の生徒のデータを参照しているかという数を示します。
Sheet2に浮動文字（見出しなど）・罫線・フォント・色などは各人共通とします。
ーー
例データ　Sheet1　A1:D3
氏名　　　国語　　　算数理科
木村　卓郎233445
高松　茂334128
ーーー
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の解説を読んでください。

この回答へのお礼

丁寧に書いて下さり、ありがとうございます。
これほど複雑なものは私の頭では無理です。
もっと単純なやり方はないのでしょうか。

お礼日時：2007/03/03 23:57

No.1 回答者： zap35 回答日時： 2007/03/03 00:50

これはマクロでないと実現できないと思います。

次のことを教えてください

印刷元シート（生徒毎の得点が書かれたシート）
　１）どの列に何の科目の点数が書かれているか
　　　例）Ａ列：氏名、Ｂ列：国語、Ｃ列：数学…　Ｊ列：順位
　２）生徒のデータは何行目から始まっているか

印刷するシート
　１）印刷元の各項目を、どこのセルに書き込めば良いか
　　　例）氏名：Ａ２、国語：Ｂ５、数学：Ｂ６…　順位：Ｊ１０
　２）印刷するのシートは１頁ですか、それとも複数頁ですか

この回答への補足

お世話になります。

印刷元シート
1)例）にお書きになった通りです。
2)２行目からです。

印刷するシートは1枚のシートに以下の表が５個分書いてありますが、300人分必要です。
1)氏名：A２、国語：B２、数学：C３…順位：J３
（余白２行）
　氏名：A６、国語：B６、数学：C６…順位：J６
（余白２行）
2)300人分が印刷できる頁数
以上です。よろしくお願いします。

補足日時：2007/03/03 23:24