ここから本文です

Excelでの連番印刷で、過去の投稿から下記を見つけました。

flo********さん

2018/3/1315:02:08

Excelでの連番印刷で、過去の投稿から下記を見つけました。

----------------------
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("O1").Value = idx
ActiveSheet.PrintOut
Next idx
Else
MsgBox "開始番号、終了番号が不適切です。印刷は行いません"
End If
End Sub
--------------------------------

これは1ずつ数字が上がっていく連番印刷なのですが、
1,4,7…と+3ずつ(もしくは任意)数字を上げていく
自動印刷がしたいです。
どのように修正したらよろしいでしょうか。

閲覧数:
49
回答数:
1

違反報告

ベストアンサーに選ばれた回答

tar********さん

2018/3/1316:40:09

For idx = frmPage To toPage

これを

For idx = frmPage To toPage Step 3

とすれば3ページおきになりますが、これで想定通りの動きをしていますでしょうか。

質問した人からのコメント

2018/3/14 13:52:28

できました!!
ありがとうございました!!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる