プロが教えるわが家の防犯対策術!

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

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というようにしたいのですが、
どのようにすればよろしいでしょうか。

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

A 回答 (2件)

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



Range("A27").NumberFormatLocal = "000"
    • good
    • 0
この回答へのお礼

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

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

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

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



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

とかで、A27 に 書式"000"(3桁の数字)を入れるのではダメ?
    • good
    • 0
この回答へのお礼

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています