エクセルデータベースからエクセル印刷用フォームに差込印刷したい。（No.667710類似質問）

質問

エクセルの「顧客リスト」データベースから、エクセルの「顧客別シート」印刷用フォームの各セルに差込印刷したいです。「顧客別シート」は様々な理由からワードではなく、既にあるエクセルフォームにて行いたいです。
※ここまではNo.667710と同様の内容です。⇒http://okweb.jp/kotaeru.php3?qid=667710

No.667710の要望だとデータ件数が固定であることが前提となっていますが、私の要望はデータベースの件数が可変で、多数のユーザーが使用するので、個々のユーザーはVBAの編集をしなくてもいいことが前提です。

1.「顧客リスト」白紙（定型データベース：列固定）
2.「顧客別シート」（印刷用フォーム）
3.「印刷用マクロ」
の３つが含まれたブックを公開し、個々のユーザーが個別にダウンロードしたデータ（行数可変）を1に貼り付け、貼り付けたデータを全て「顧客別シート」で印刷するイメージです。
「顧客別シート」（印刷用フォーム）の余白は使用可能なので、そこに例えばその都度印刷範囲の行数やセル名等を入力してもらうことは可能です。

VBAについては、自動作成したマクロを開いてその一部（セル名等）を編集する程度のスキルしかありません。出来ればVLOOKUP等の関数を併用し、マクロ部分は必要最小限であれば助かります。（なるべくシンプルな方法で）

皆様のお知恵を貸してください。何卒宜しくお願いします。

回答No.1

imogasi · ベストアンサー

No.667710に回答したものです。
あの時は、質問者が慣れていないと思い、ＶＢＡコードを減らそうと、変に気を使って、両者混合になってますが、ＶＢＡ1本でやりたかったのですが。
過去になんども同じような質問に回答してます。
但し印刷用フォームシートの位置合わせは相当難しい試行錯誤になります。列・行設計もコツがあります。
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
'----顧客リストＳｈ１シートの最終行を得る
d = sh1.Range("A65536").End(xlUp).Row
For i = 2 To d
sh2.Cells(2, "B") = sh1.Cells(i, "A")
sh2.Cells(2, "C") = sh1.Cells(i, "B")
sh2.Range("a1:h40").PrintOut
Next i
End Sub
が骨子です。
Worksheets("Sheet1")顧客リストシート名に変えること
Worksheets("Sheet2")印刷用シートのシート名に変える
For i = 2 To d顧客リストの顧客データの開始行で２を置換えること。
sh2.Range("a1:h40").PrintOut
印刷用シートの印刷範囲で置き変えること
最大の変更箇所は
項目－－－－印刷シート－－－－顧客リスト
氏名　　　　Ｂ３セル　　　　　Ｂ列
住所１　　　Ｃ３セル　　　　　Ｃ列
住所２　　　Ｄ３セル　　　　　Ｄ列
・・・
のような対比表メモを作る。
それにより、例えば住所２なら
sh2.Cells(3, "Ｄ") = sh1.Cells(i, "D")
のように、項目数だけの行を作り、
sh2.Range("a1:h40").PrintOutの前までに入れる（増やす）。

お礼

早速ありがとうございます！頑張ってやってみます。
ＶＢＡを最初から自分で記述するのは初めてなので、またお伺いするかもしれませんが、宜しくお願いします。

補足

まだ本番はやっていませんが、テストフォームで成功しました！（会社のプリンタの前で小躍りしてしまいました。）
今までやりたくてもやれなくて苦労していたケースなので、この応用でかなり効率化できそうです。
本当に助かりました。ありがとうございます。
午後から本番フォームでやってみますので、もし壁にぶちあったったら、また助けてください。
宜しくお願いします。