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

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

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

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

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

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

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

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

（エクセル２００３）

No.2 回答者： hana-hana3 回答日時： 2007/05/22 23:33

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

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

この回答への補足

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

補足日時：2007/05/23 07:03

この回答へのお礼

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

6/7 fsy

お礼日時：2007/06/07 20:55

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2007/05/22 16:34

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

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

この回答へのお礼

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

すみません、。

お礼日時：2007/05/22 19:47