エクセル 印刷時の連番にハイフンをいれたい

質問

エクセル2013を使用しています。

印刷時にBA2セルに連番をふるマクロを,

以下のように組みました。

Sub test01()
For i = 1409001 To 1409200
Range("BA2") = i
ActiveSheet.Range("A1:BL61").PrintOut
Next i
End Sub

連番の「1409001」の間にハイフンを入れ

「1409-001」とし、ハイフン以降を200迄の連番にするマクロを

お教えください。

なお、”1409”は固定です。

よろしくお願い致します。

回答No.1

NotFound404

Sub test01A()
Range("BA2").NumberFormatLocal = "0000-000"
For i = 1409001 To 1409200
Range("BA2") = i
ActiveSheet.Range("A1:BL61").PrintOut
Next i
End Sub
ならセルの書式設定で、0000-000 とした時と同じです。
内部的には数値のままなので数式バーの所では
1409001 などのままです。

Sub test01B()
For i = 1 To 200
Range("BA2") = "1409" & format(i,"-000")
ActiveSheet.Range("A1:BL61").PrintOut
Next i
End Sub
ではセルの値は文字列になります。
扱いやすい方でどうぞ。

お礼

お教え頂きありがとうございます。
文字列になる下のマクロを使用する事になりました。
これで作業が進みます。
本当にありがとうございました。