【Excel2003マクロ】文字入力→印刷の繰り返し

年賀状の宛名印刷に、Excel2003で使える宛名印刷ファイルを使っています。

これ→（http://www.kcc.zaq.ne.jp/dfbpl606/atena/　の『勤務先郵送版』）ですが、
シート“list”に住所等を入力し、シート“tate”・“yoko”で配置、印刷するという方式です。

“tate”シートで印刷する場合は、
セルA1に番号（“list”シートで入力した行番号）を入力する
→“list”シートの該当する行の内容に中身が差し替えられる
→印刷ボタンを押すとそのページが印刷される
というやり方です。（参考画像）

この『A1セルに番号を入力する→印刷ボタンを押す』を繰り返して
全員分を印刷するんですが、件数が何百件あって、ちょっと大変なんです。

マクロで自動化できませんでしょうか？

No.1 ベストアンサー 回答者： CoalTar 回答日時： 2015/12/09 13:58

VBAは苦手ですが、この程度だったらなんとか(^^;

[Alt]+[F11]VBE 挿入 標準モジュール
Sub 連番入力し印刷する()
　Dim 開始番号 As Long
　 　開始番号 = InputBox("開始番号を入れてください")
　Dim 終了番号 As Long
　 　終了番号 = InputBox("終了番号を入れてください")
　Dim n As Long
　MsgBox "確認のための印刷プレビューします。その後、[閉じる]で閉じてください"
　Range("A1") = 開始番号
　ActiveSheet.PrintPreview

　If MsgBox("連続印刷を開始してよろしいですか", vbOKCancel) = vbCancel Then Exit Sub
　For n = 開始番号 To 終了番号 Step 1
　 　Range("A1") = n
　 　ActiveSheet.PrintOut
　Next n
　MsgBox "印刷データの送信を完了しました"
End Sub

この回答へのお礼

か、完璧です！すごい！
印刷プレビューまでセットしていただけるなんて……
本当に助かりました。ありがとうございました！＾＾

お礼日時：2015/12/09 18:58