VBAについて質問です。数字を001というように入力したいのですが、、、

印刷の際、連番で印刷されるように
下記マクロを組んでいるのですが、

Sub 連続印刷1→15()
Dim i As Integer
For i = 1 To 15
Sheets(1).Range("A27").Value = i
ActiveSheet.PrintOut
Next
End Sub

For i = 1 To 15の数字の頭を001　To　015というようにしたいのですが、
どのようにすればよろしいでしょうか。

調べて色々試したのですが、うまくいきません。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： akudaikan55 回答日時： 2018/04/24 12:16

セルの書式（a27)をユーザ定義000　にすればいいです。

Range("A27").NumberFormatLocal = "000"

この回答へのお礼

回答ありがとうございます。
おっしゃるとおり試してみて、うまくできました。

本当にありがとうございました。

お礼日時：2018/04/24 12:56

No.1 回答者： zongai 回答日時： 2018/04/24 12:09

Forの中では出来ないと思う。

Sheets(1).Range("A27").Value = Format( i , "000")

とかで、A27　に　書式"000"（3桁の数字）を入れるのではダメ？

この回答へのお礼

回答ありがとうございます。
試してみたのですが、うまくいきませんでした。
私の組み方におかしい点があるのかもしれませんので、再考してみます。

ありがとうございました。

お礼日時：2018/04/24 12:54