VBAで指定範囲の整理NOを付けたい

質問

下記VBAで
整理NOを例えば　　最初と最後を0010～0050と指定したいのですが
命令文を指導願います

Sub ページ番号付印刷()
Dim mypage As Integer
mypage = InputBox(Prompt:="最終となるページ番号を入力してください。")
For i = 1 To mypage
Range("D47") = i
ActiveSheet.PrintOut
Next
End Sub

回答No.2

piroin654 · ベストアンサー

Sub test()
Dim numStart As Integer
Dim numEnd As Integer
Dim i As Integer

numStart = InputBox(Prompt:="最初となるページ番号を入力してください。")
numEnd = InputBox(Prompt:="最終となるページ番号を入力してください。")

For i = numStart To numEnd
Range("D47") = Format(i, "0000")
ActiveSheet.PrintPreview
Next i

End Sub

ActiveSheet.PrintOutをActiveSheet.PrintPreview
にして確認しましたが、表示されますが。

なお、セルのD47の書式を文字列にしておいてください。

回答No.1

piroin654

以下のようなことですか。

Sub test()
Dim numStart As Integer
Dim numEnd As Integer
Dim i As Integer

numStart = InputBox(Prompt:="最初となるページ番号を入力してください。")
numEnd = InputBox(Prompt:="最終となるページ番号を入力してください。")

For i = numStart To numEnd
Debug.Print Format(i, "0000")
Next i

End Sub

10と50をそれぞれのInputBoxに入れると0010から0050まで出力されます。
これでよければ、
Debug.Print Format(i, "0000")
を
Range("D47") = Format(i, "0000")
ActiveSheet.PrintOut
に置き換えるといいのではと。

補足

下の記述とうりですか?
整理番号が出ませんよ?
どこか間違っていますか

Sub test()
Dim numStart As Integer
Dim numEnd As Integer
Dim i As Integer
numStart = InputBox(Prompt:="最初となるページ番号を入力してください。")
numEnd = InputBox(Prompt:="最終となるページ番号を入力してください。")

For i = numStart To numEnd
Range("D47") = Format(i, "0000")
ActiveSheet.PrintOut
Next i

End Sub