Excelで抽出・連続印刷したいです

質問

恐らくExcelのマクロの機能になるかと思うのですが
以下の作業を簡単にできるようにしたいです。

シート1にデータベース
1.○○×夫　〒000-0000　A県B市・・・
2.××○子　〒111-1111　C県D市・・・

シート2に印刷用フォーマット

FROM～TOの入力でデータベースの該当番号から
シート2の印刷用フォーマットの宛名の部分に
名前・郵便番号・住所
のデータを拾ってくる。
↓
順番に印刷

仕事で使用します。。。
印刷用フォーマットに書かれてある内容は全員
共通で、ただデータベースに入力した名前・あて先
に送りたいだけなのですが。。。

簡単にできますでしょうか？

ずいぶん前にVBAの講習を受けましたが、まったく
忘れてしまい、今日新たに本も購入しましたが
よくわかりません。。。

ご存知の方、よろしくお願いします。

回答No.2

imogasi · ベストアンサー

Sub test01()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
d = ws1.Range("a1").CurrentRegion.Rows.Count
For i = 1 To d
ws2.Cells(3, "C") = ws1.Cells(i, "A")
ws2.Cells(4, "C") = ws1.Cells(i, "B")
ws2.Cells(5, "C") = ws1.Cells(i, "C")
ws2.Range("A1:F20").PrintOut
Next i
End Sub
Sheet1には
山田　太郎 １００－２０００ 福岡市中央区蕨町１－１
川田　花子 ２００－３０００ 岡山市朝日町１－２－３
大森　菊子 ３００－４０００ 岐阜市台町３－３－４
Ｓｈｅｅｔ２にはＢ３：Ｂ５に
氏名
郵便番号
住所
を入れておきます。固定文章。
印刷されて
氏名　　　大森　菊子
郵便番号　３００－４０００
住所　　　岐阜市台町３－３－４
などの各ページが打ち出されました。
Ｃｅｌｌｓの(）内は本番に合わせて、適当に修正が必要です。Ｓｈｅｅｔ名も修正のこと。

お礼

早々にご回答いただいたにもかかわらず、お返事が遅れて
しまい、申し訳ございません。
おかげさまで、週末、無事望んでいたものができあがりま
した！
本当に困っていたので大変助かりました。
どうもありがとうございました。

回答No.1

nishi6

QNo.770107『エクセル等で連続流し込み印刷は？』
http://www.okweb.ne.jp/kotaeru.php3?q=770107

と同じ内容のように思えます。

参考URL：

http://www.okweb.ne.jp/kotaeru.php3?q=770107