エクセルで１４０人をマクロをつかって連続印刷？

１４０人の個別IDがあります。それをVlOOKUPで参照して別のシートに引き出しています。一回一回、IDを入力しては印刷ボタンをクリックしてきました。１４０人を一度に印刷したり、１０～４０番までを指定して連続印刷したりするマクロを教えてください。

No.2 ベストアンサー 回答者： jamshid6 回答日時： 2008/11/01 22:37

マクロ自体をどの程度触ったことがあるのかもわからないので、微妙ですが、

・IDは1番から140番まである
・DataシートのA1に印刷開始ID、A2に印刷終了IDを入力する
・DataシートのB1に今入力しているID入力欄がある
・Printシートを印刷する
とすると、最もシンプルなマクロは以下の通りです。
Sub BulkPrint()
Dim lStart As Long
Dim lEnd As Long
Dim lRow As Long

lStart = Worksheets("Data").Range("A1")
lEnd = Worksheets("Data").Range("A2")

For lRow = lStart To lEnd
Worksheets("Data").Range("B1") = lRow
Worksheets("Print").PrintOut
Next
End Sub

これを「ご自分のシートの状態に読み替えて組み込むことができれば」目的は達すると思います。

この回答へのお礼

教えていただきありがとうございました。マクロについては、いじったことがないに等しいのですが、本などでいろいろと調べて、今、組み込んでいる最中です。参考になりました。ありがとうございます。

お礼日時：2008/11/03 00:58

No.1 回答者： chukenkenkou 回答日時： 2008/11/01 02:23

どのセルにどういう情報が入っているかも提示せず、「マクロを教えて」とは？

WORDを使わず、EXCELで「差し込み印刷」するフリーソフトが、たくさんあるようなのでネット検索して適当なのを使ってみては？

この回答へのお礼

教えていただきありがとうございました。早速ネットで探してみたところ、目的と似ているものがありました。初めての投稿のため、どの程度提示するのかが分かりませんでしたが、以後気をつけます。

お礼日時：2008/11/03 00:55