エクセルのシートに連番をつけたい

エクセル２０１０を使用しています。

シートが100個あったとして、
下のコードで１～１００番までは
コマンドボタンを押すことで、シート名を
変えることができました。

ところがコードの　1　Ｔｏ・・・を
１０１　Ｔｏ・・・に変えても１０１～２００番には
ならないのです。
私がコードを書く時はてっきりこれで大丈夫だと
思っておりましたが・・・意味をはきちがえているみたいです。

どなたか数値を変えれば
何番でも対応できるコードを解説付きでお教えください。


Private Sub CommandButton3_Click()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Name = i
Next
End Sub

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/05/23 18:56

方法１：

「１枚目」のシートの名前を１０１に，「２枚目」のシートの名前を１０２にする
Private Sub CommandButton3_Click()
　Dim i As Long
　For i = 1 To Sheets.Count
　　Sheets(i).Name = i + 100
　Next i
End Sub


方法２：
１０１をスタートに連番を振っていく

サンプル１：
Private Sub CommandButton3_Click()
　Dim i As Long
　dim s as long
　s = 101
　For i = 1 To Sheets.Count
　　Sheets(i).Name = s
　　s = s +1
　Next i
End Sub

サンプル２：
Private Sub CommandButton3_Click()
　dim w as worksheet
　dim s as long
　s = 101
　for each w in worksheets
　　w.name = s
　　s = s +1
　Next
End Sub

この回答へのお礼

ありがとうございます！
方法２で完璧です。私も応用力を身に着けたいものです・・・
またわからなくなったら質問させてください。

お礼日時：2011/05/24 11:45

No.2 回答者： imogasi 回答日時： 2011/05/23 20:56

例えば下記をやるとＯＫ（当初はは３シート有り）

実行後、１０３のシートの名前を見届けた。
数字のままだと早いうちにエラーでとまった。
文字列＋数字や文字列数字にすべきということではないかな。
Private Sub test02()
Dim i As Long
Worksheets.Add Count:=100
For i = 1 To Sheets.Count
Sheets(i).Name = Trim(Str(i))
Next
End Sub

この回答へのお礼

ご回答ありがとうございます。
既存の１００個のシートにはすべてデータが入っており、
新しいシートを作りながら、名前をつけながらというわけではないのです。
コピーを終えた１００個のシートに名前だけ連番でつけたかったのです。
説明が足りず申し訳ないです。

お礼日時：2011/05/24 11:49