ベストアンサー

エクセルで差込印刷

2003/04/06 23:59

エクセルを使って差込印刷をする方法を教えて下さい町内会で使用する定形の用紙に住所録を印刷します。一行（レコード）に通し番号・班番号・氏名・TEL・住所が入力された、住所録データがあります。このデータを元に定形の用紙に印刷するにはどうすればよいのでしょうあの年賀状をはがき印刷する要領で住所録にあるデータを一気に印刷したいのですがマクロが最適なんでしょうか・・・

JOX
お礼率83% (141/169)

オフィス系ソフト
回答数3
ありがとう数16

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

papayuka
ベストアンサー率45% (1388/3066)

2003/04/07 01:03 回答No.3

再びこんにちは。下記の仮定に基づくサンプルです。実際にプリントアウトテストはしてません。シート名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

質問者

お礼 2003/04/07 01:24

ありがとうございます。このマクロを参考にテストプリントしてみました。成功です。後は必要なセルにVLOOKUP関数を入力していけば何とかなりそうです。目処が立ってきましたありがとうございました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

papayuka
ベストアンサー率45% (1388/3066)

2003/04/07 00:10 回答No.2

こんにちは。定型用紙はWordで作り、Wordの差し込み印刷でデータ元をExcelにした方が簡単です。 Excelだけでやるなら、定型用紙シートの任意のセルに通し番号を入れ、他のフィールドはそのセルを参照したVLOOKUP関数を入れる。連続でやるには、通し番号を次々に入れて印刷をかけるマクロが必要だと思います。