【コイン500枚】Excelのマクロについてhttps://ja.extendoffice.com/documents/excel/3606-excel-auto-increment-number-when-printing.html↑こちらのURLを参考に印刷する用紙の枚数ごとに番号を振りたいなと思いチャレンジしていたのですが、50番代のみなど途中の数字から印字をしたいときはどのようにすればよろしいでしょうか？一度VBAコードのカウント数を\u0026quot; No.5 \u0026quot;（URL先だとCompany-00の箇所）で10部印刷してみたのですが、51〜59までは正常に振られるものの10枚目は510などになってしまいました。一の位が0になる番号を印刷する方法も知りたいです。PC初心者なので可能であれば分かりやすく教えていただきたいです。回答のほど、よろしくお願いいたします。

ネットに転がっているプログラムは、無駄に長いので使わない方がいいです。

自由度を上げけるためには、VBA で行う事は必要最低限にして、他はのセルの書式設定等Excel の機能を使います。

以下はA1に数字のみを設定します。

51～60を印刷したい時は 51-60と入力します。

１枚印刷するときは、51の様に数字だけ入力してもいいです。

Option Explicit

'

Sub Macro1()

    Dim IBox As String

    Dim Ins As Integer

    Dim Page As Integer

'

    IBox = InputBox(\u0026quot;開始番号-終了番号\u0026quot;, \u0026quot;印刷\u0026quot;, \u0026quot;1-1\u0026quot;)

    

    If IBox = \u0026quot;\u0026quot; Then

        End

    End If

'

    Ins = InStr(IBox \u0026amp; \u0026quot;-\u0026quot;, \u0026quot;-\u0026quot;)

    Page = Left(IBox, Ins - 1)

    Ins = InStr(IBox, \u0026quot;-\u0026quot;)

    Application.ScreenUpdating = False

'

    For Page = Page To Mid(IBox, Ins + 1)

        [A1] = Page

        ActiveSheet.PrintOut

    Next Page

End Sub



A1の数字の前に「Company-」を入れたいなら、

セルの書式設定、ユーザー定義｢\u0026quot;Company-\u0026quot;0｣

にして下さい。