メモ

メモ

 

お借りしました

 

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("A1").Value = toPage
           ActiveSheet.PrintOut

        Next idx            
            
    Else
        MsgBox "開始番号、終了番号が不適切です。印刷は行いません"
    End If

End Sub