エクセルで差込印刷

エクセルを使って差込印刷をする方法を教えて下さい

町内会で使用する定形の用紙に住所録を印刷します。
一行（レコード）に通し番号・班番号・氏名・TEL・住所
が入力された、住所録データがあります。

このデータを元に定形の用紙に印刷するにはどうすれば
よいのでしょう

あの年賀状をはがき印刷する要領で住所録にあるデータを一気に印刷したいのですが
マクロが最適なんでしょうか・・・

No.3 ベストアンサー 回答者： papayuka 回答日時： 2003/04/07 01:03

再びこんにちは。

下記の仮定に基づくサンプルです。実際にプリントアウトテストはしてません。
シート名Sheet1にリストがあり、A2～Axx行まで通し番号データがある。
シート名Sheet2のB1に通し番号を連続代入する。

Sub aa()
With Worksheets("Sheet1")
　For i = 2 To .Range("A65536").End(xlUp).Row
　　Worksheets("Sheet2").Range("B1") = .Range("A" & i)
　　'Worksheets("Sheet2").PrintOut
　Next i
End With
End Sub

この回答へのお礼

ありがとうございます。
このマクロを参考にテストプリントしてみました。

成功です。
後は必要なセルにVLOOKUP関数を入力していけば何とか
なりそうです。

目処が立ってきましたありがとうございました。

お礼日時：2003/04/07 01:24

No.2 回答者： papayuka 回答日時： 2003/04/07 00:10

こんにちは。

定型用紙はWordで作り、Wordの差し込み印刷でデータ元をExcelにした方が簡単です。

Excelだけでやるなら、定型用紙シートの任意のセルに通し番号を入れ、他のフィールドはそのセルを参照したVLOOKUP関数を入れる。

連続でやるには、通し番号を次々に入れて印刷をかけるマクロが必要だと思います。

この回答へのお礼

VLOOKUP関数を使用するのは何となく理解できます。

＞通し番号を次々に入れて印刷をかけるマクロが必要だと思います。

このマクロを教えていただけませんか

お礼日時：2003/04/07 00:48

No.1 回答者： Spur 回答日時： 2003/04/07 00:02

挿し込み印刷はMS-WORDにはあるけど、MS-EXCELにもありましたっけ？

新しいバージョンにはあるのかな？私のEXCEL98にはありません。

私は区の役員をしていますが、いつも文章はMS-WORDで作り、MS-EXCELで住所録を作っておいて挿し込みます。

この回答への補足

挿し込み印刷はEXCELに無いと思います。
恥ずかしながら、WORDを使った事がなく町会費などを
エクセルに入力しています。

住所録もエクセルを使っています。
そこでこのデータを元にマクロでワードのように差込印刷をしたいのですが・・・・

どのようにすればよいのでしょう

補足日時：2003/04/07 00:44