EXCELマクロの話ですが

質問

EXCELマクロの話ですが
マクロでcellに以下のようなものを書き出したいとします。

TOM-001,TOM-002,TOM-003・・・TOM-010,TOM-011

と続くようなものを作りたいとおもい以下のようなマクロを組んでみたが・・・

sub tom()
　Dim i As Integer
　For i = 0 To 11
　　cells(i + 1,1).value = "TOM-" & i + 1
　Next i
end sub

当然のことながら・・・
TOM-1,TOM-2,TOM-3・・・TOM-10,TOM-11
どのようにしたら 最初に描いた『TOM-000』のようなものになるだろうか？

回答No.1

bin-chan · ベストアンサー

cells(i + 1,1).value = "TOM-" & format(i + 1,"000")

お礼

ありがとうございます。
1つ勉強になりました。
formatの使い方がいまいちだったので、ありがたいです。

回答No.4

imogasi

>EXCELマクロの話ですが
マクロの話じゃない。エクセルの書式設定で、顕著に効果が出るのは、数値に対してだけ。
日付は日付シリアル値という数値なのはご存知か。
文字列と数値を＆で結合したら文字列になる。
文字列はTOM-1に対しTOM－００１のような器用なことは出来ないのは常識。
だから文字列そのものをTOM-001のように作らないとならない。
VBあを遣り出したら直ぐ、１を００１の値にしたいニーズが出てくる。そこで関数を探すのだ。
Format関数がそれ。STR関数というのでも出来そうだが文字列１や１２と３桁以内の０を先頭に結合しないとダメなので複雑。
Strは前に符号桁１スペースが付く。それを除く。
３－（引く）元数字桁の数の０をくっつける。Mid関数など利用。Replace関数でも出来そう(略）
VBAの前に、エクセルの知識が必要を示す例ではないか。

回答No.3

redfox63

Format関数を使えばいいと思いますよ

Cells(i+1,1).Value = Format( i+1, """TOM-""000")
といった具合です

回答No.2

himajin100000

Option Explicit

Sub Main()
Dim i As Integer
For i = 0 To 100
'適当にイミディエイトウィンドウでも開いて出力

Debug.Print (Right$("000" & CStr(i), 3))
Next i
End Sub