
No.4ベストアンサー
- 回答日時:
#02です。
開始番号、終了番号を指定する場合はこんなマクロです。
ただし開始、終了ともに正の数でないと印刷は行いません。
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
このたびは、ありがとうございました。
私が求めていたのはこれでした!!
マクロを使ったことがなかったのですが、わかりやすく大変勉強になりました。
この機会に是非、勉強したいと思いました。
No.3
- 回答日時:
VBAを使わないと、不可能と思います。
Headde、Footerを使えばで繰るかも知れませんが、位置が制約されます。
#2のご回答と実施中同じですが、
>マクロを使ったことのない初心者ですが
ですので、最低限にして
ツールーマクローVBE-挿入ー標準モジュールの画面に下記を張り付ける。
Sub test01()
For i = 1 To 100 '100枚繰り返し
Range("V2") = i 'V2に連番を入れる例
ActiveSheet.Range("A1:V30").PrintOut '印刷範囲がA1:V30の例
Next i
End Sub
ーー
実行キーF5キーを押す。
印刷部数100を任意に変える。
Range("V2") =でページ番号を入れるセルを希望のセルに変える。
Range("A1:V30").を印刷する希望の印刷範囲に変える。
ーー
まず
For i = 1 To 3 ぐらいでテスト刷りをしてみてください。
No.2
- 回答日時:
このカテゴリで「印刷 連番」で検索すればマクロを使う方法、ヘッダ/フッタを使う方法… 数多くの履歴がありますよ
マクロでやるなら、以下のマクロを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
「マクロはちょっと…」なら過去履歴を参考にしてください。
このマクロでうまくいかないときは、「どこまでやったら、どんな結果になったか」を補足していただければ、再度説明します。
この回答への補足
ありがとうございます。入力できました!!
過去のQ&Aを見たのですが、マクロを開き実行するところが
よくわからず苦戦しておりました。
欲を言って申し訳ありませんが、100~200など
数字を指定して入れられると なお、うれしいのですが・・・。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセル印刷時 一枚の書類に印刷枚数分の連続番号を振るには?
Excel(エクセル)
-
エクセルで印刷するとき、連番にしたいm(__)m
Excel(エクセル)
-
1シートを数十部印刷した際に印刷枚数も印字したい
Excel(エクセル)
-
-
4
EXCELでNo.を変えて印刷したい
Excel(エクセル)
-
5
Excelで連番(ナンバリング)印刷
Excel(エクセル)
-
6
エクセル連番自動印刷について
Excel(エクセル)
-
7
エクセルのシートを複数枚印刷したときに連番をつけたい
Excel(エクセル)
-
8
数字をカウントしながらエクセル印刷したい
Excel(エクセル)
-
9
Excelで1部印刷する毎に連番を2箇所つけたい
その他(Microsoft Office)
-
10
エクセルで印刷部数をセルに表示させたい
その他(Microsoft Office)
-
11
エクセルのフッターについて。
Excel(エクセル)
-
12
同じ様式に連番を振ってだしてやりたいのですが・・。
Excel(エクセル)
-
13
Wordで印刷時に通し番号を付けたい
Word(ワード)
-
14
Excelでの作成物に印刷時に連番を印刷。
その他(パソコン・スマホ・電化製品)
-
15
エクセルで通し番号を打ちたいんです
Excel(エクセル)
-
16
Excelで印刷設定をした後に部数の連番を印刷
Word(ワード)
-
17
Excelでナンバリング印刷をしたい
Excel(エクセル)
-
18
EXEL 毎ページ 数値を増やして印刷したい
Excel(エクセル)
-
19
エクセルでページ数をあるセルに表示させたい
Excel(エクセル)
-
20
差込み印刷について(連続した数字を入れる)
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
複数のマクロボタンをまとめて...
-
エクセル ボタンに設定したマク...
-
エクセルの、記録を終了したマ...
-
エクセルでマクロ(Excel 4.0)...
-
エクセル マクロ名にブック名...
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
-
別シートのマクロボタンをマク...
-
Excelで、マクロが含まれ...
-
Excelマクロで、稼働中のマクロ...
-
Ctrl+Zが使えない
-
他のBOOKにマクロを反映させな...
-
(Excel VBA)シートコピー時マ...
-
エクセルマクロで、別のブック...
-
Excelのマクロ名の並び順の法則...
-
エクセルの表を複数枚印刷した...
-
エクセルで明日の日付を表示す...
-
転職に備えてのExcelマクロ習得
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
複数のマクロボタンをまとめて...
-
エクセル ボタンに設定したマク...
-
エクセルでマクロ(Excel 4.0)...
-
エクセル マクロ名にブック名...
-
Excelのマクロでボタンを押すと...
-
Excelマクロで、稼働中のマクロ...
-
エクセルの、記録を終了したマ...
-
エクセルで、「いいね」のよう...
-
エクセルの表を複数枚印刷した...
-
エクセルマクロで、別のブック...
-
LDPlayerのマクロの編集方法を...
-
(Excel VBA)シートコピー時マ...
-
Excelのマクロ名の並び順の法則...
-
マクロをマクロを使ってコピー...
-
エクセルで明日の日付を表示す...
-
Excelマクロをバックグラウンド...
-
Ctrl+Zが使えない
-
マクロ実行ボタンを自動削除したい
おすすめ情報