エクセルの表に複数枚印刷したときに連番をつけたい

質問

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過去の質問をみて上記マクロを使用して印刷できましたがスタートの番号は3000001番からスタートさせたいのですがエラーが出てしまいます。どのようなコードにしたらいいのか分からないため教えて下さい。素人で今まで使用したことがないのですいません

回答No.1

tom04 · ベストアンサー

こんにちは！

おそらく変数の宣言部分でエラーになっていると思われます。

＞Dim idx As Integer
を
＞Dim idx As Long
と長整数型にしてみてはどうでしょうか？

整数型の　Integer　は　-32,768 ～ 32,767　の範囲しか格納できないはずです。

※　長整数型だと　-2,147,483,648 ～ 2,147,483,647　の範囲の格納が可能です。m（_ _）m

お礼

早速の回答ありがとうございます♪

きちんと起動しました。

とても助かりました。

もう少し勉強したいと思います。