【エクセル】別シートの名簿の項目を本シートに１人ずつ落とし、数人分までを連続印刷するマクロについて。

質問

いつもお世話になってます。

マクロの記述で質問します。

シート２に連番の名簿番号の付いた名簿を作ります。
シート１に文書の様式を作ります。
シート１の文書の様式の枠外のＡ１に名簿番号を入力すると
シート１の様式にシート２の同じ名簿番号の者の氏名・住所・電話番号が各欄に表示されます。
印刷ボタンを押すと様式が印刷されます。

ここまではマクロで作ったのですが、（たいしたことありませんが。）

シート１のＡ１に”４”、Ｂ１に”１２”と入力し、印刷ボタンを押すと、
名簿番号４～１２までを順次様式に反映させ、９枚連続印刷する。

というところまで作りたいのですが、どのようなマクロの記述になるのか判りません。
例としてどのような記述になるのでしょうか？

もしくは、参考になる過去の質問や参考になるようなサイトなどご存知でしたら教えてください。よろしくおねがいします。

（エクセル２００３）

回答No.1

hana-hana3 · ベストアンサー

簡単に行うならこんな感じでしょうか。

Sub LP()

Dim start As Long
Dim stp As Long
Dim i As Long

start = Range("A1")
stp = Range("B1")

For i = start To stp
Range("A1") = i
Call 作成した印刷マクロ
Next

End Sub

お礼

ありがとうございます。
もしかしてシート２の名簿の項目をシート１の様式に反映させるのもマクロにしていなければならなかったのでしょうか？
実は、関数で写し表示するようにしただけだったのです。

すみません、。

回答No.2

hana-hana3

＞実は、関数で写し表示するようにしただけだったのです。

「シート１の文書の様式の枠外のＡ１に名簿番号を入力すると・・・」と書かれていたので、ＶＢＡからＡ１に順々に値を記入するようにしましたから、印刷部分のマクロを呼ぶ（Call マクロ名）だけで何も変更せずに使えるはずです。

お礼

しばらくぶりです。
今日は職場で余裕があったので、おかげさまで効率の良いエクセルファイルを作成できました。
まだ不明な点もありますが、フル活用したいと思います。
本当にポイントを差し上げるくらいしかできませんが、どこかの職場の事務処理時間を短縮させて、こなせる件数も大きく伸びたと想像してください。（笑）
誠にありがとうございました。

6/7 fsy

補足

試してみます。ありがとうございます！。