エクセルの表を複数枚印刷したときに連番をつけたい

解決済

質問者：homa10
質問日時：2007/07/23 11:24
回答数：4件

エクセルの1枚の表を１００枚印刷し、その表のシート内（AW3）に連番を打ちたいのですが、なにか簡単な方法はありますか？
今までは印刷を１００枚して、ナンバーリング（ハンコ）で連番を打っていましたが、ちょっと面倒なんです。
マクロを使ったことのない初心者ですが、何かよい方法はありませんか？よろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： zap35
回答日時：2007/07/23 16:19

＃０２です。

開始番号、終了番号を指定する場合はこんなマクロです。
ただし開始、終了ともに正の数でないと印刷は行いません。

Sub NumberPrint()
Dim idx As Integer
Dim frmPage, toPage
　frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _
　　　　　& "開始番号を入力してください", Type:=1)
　toPage = Application.InputBox("終了番号を入力してください", Type:=1)
　If frmPage > 0 And toPage >= frmPage Then
　　For idx = frmPage To toPage
　　　Range("AW3").Value = idx
　　　ActiveSheet.PrintOut
　　Next idx
　Else
　　MsgBox "開始番号、終了番号が不適切です。印刷は行いません"
　End If
End Sub

- 26
- 件

通報する

この回答へのお礼

このたびは、ありがとうございました。
私が求めていたのはこれでした!!
マクロを使ったことがなかったのですが、わかりやすく大変勉強になりました。
この機会に是非、勉強したいと思いました。

通報する

お礼日時：2007/07/23 17:27

No.3

回答者： imogasi
回答日時：2007/07/23 13:09

VBAを使わないと、不可能と思います。

Headde、Footerを使えばで繰るかも知れませんが、位置が制約されます。
＃２のご回答と実施中同じですが、
＞マクロを使ったことのない初心者ですが
ですので、最低限にして
ツールーマクローVBE－挿入ー標準モジュールの画面に下記を張り付ける。
Sub test01()
For i = 1 To 100 '１００枚繰り返し
Range("V2") = i 'V2に連番を入れる例
ActiveSheet.Range("A1:V30").PrintOut '印刷範囲がA1:V30の例
Next i
End Sub
ーー
実行キーF5キーを押す。
印刷部数１００を任意に変える。
Range("V2") =でページ番号を入れるセルを希望のセルに変える。
Range("A1:V30").を印刷する希望の印刷範囲に変える。
ーー
まず
For i = 1 To 3 ぐらいでテスト刷りをしてみてください。

- 6
- 件

通報する

No.2

回答者： zap35
回答日時：2007/07/23 11:55

このカテゴリで「印刷　連番」で検索すればマクロを使う方法、ヘッダ/フッタを使う方法…　数多くの履歴がありますよ

マクロでやるなら、以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面を表示してALT＋F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

Sub NumberPrint()
Dim idx As Integer
Dim res
　res = Application.InputBox("印刷部数を入力してください", Type:=1)
　If res > 0 Then
　　For idx = 1 To res
　　　Range("AW3").Value = idx
　　　ActiveSheet.PrintOut
　　Next idx
　End If
End Sub

「マクロはちょっと…」なら過去履歴を参考にしてください。
このマクロでうまくいかないときは、「どこまでやったら、どんな結果になったか」を補足していただければ、再度説明します。