VBA を利用した、エクセルのタブの名前変更のやり方

Question

VBA を利用した、エクセルのタブの名前変更のやり方について質問です。

Sub tab()
Dim i As Integer
Dim cnt As Integer

cnt＝Application.Inputbox(括弧内略)

　For i ＝ 1 to cnt
Worksheets("0001").Copy After:＝Worksheets(i)
ActiveSheets.Name ＝ "000" & Workshhts.Count - 1
Next i
End Sub

上記コードを利用したものを使っているのですが、10枚目以降が00010という名前になってしまいます。
これを0010という名前にしたいです。

これは変数cntの範囲を9までにして、10以降はFor 文を付け加えるという形を考えているのですがそれ以外にシンプルなコードにすることは可能でしょうか？
アドバイス頂けるとありがたいです。

また、エラートラップで100枚以上の指定をした場合止まる様にしたいのですが、こちらも変数を
cnt <= 100のように範囲を決めるというやり方が良いでしょうか？

上記2点が質問です。
よろしくお願いします！

Answer 1

シート名について、数字４桁固定（先頭ゼロ埋め）で良いならこれでいかが？

ActiveSheets.Name = Format(Workshhts.Count - 1, "0000")

また、エラートラップで100枚以上の指定をした場合止まる様にしたいのですが、こちらも変数を

100で止まるようにしたいならForループの前に

If cnt > 100 Then
    cnt = 100
End If

エラー扱いで１回もループさせないのなら、上記のcnt = 100の部分でアラート表示して
Exit Sub (Exit Function？)ですかね。

Comments

[退会済みユーザー]

回答頂きありがとうございます！

やはり人によって色んな書き方があるんですね。
色々と考え方を身につけていきます！！

Answer 2

これを0010という名前にしたいです。

ActiveSheets.Name ＝ Right("000" & Workshhts.Count - 1, 4)

また、エラートラップで100枚以上の指定をした場合止まる様にしたいのですが、こちらも変数を
cnt <= 100のように範囲を決めるというやり方が良いでしょうか？

InputBoxのあとで、If文で判定すればいいかと思います。

cnt＝Application.Inputbox(括弧内略)
If cnt > 100 Then Exit Sub

ん？違うか。100枚より多く入力されても100枚までは処理するってことでしょうか？
だとすればループ内で判定ですね。

For i ＝ 1 to cnt
    If i > 100 Then Exit For
    Worksheets("0001").Copy After:＝Worksheets(i)
    ActiveSheets.Name ＝ "000" & Workshhts.Count - 1
Next i

Comments

[退会済みユーザー]

回答頂きいつもありがとうございます！

なるほど、4桁までに絞れば良かったんですね????

>> InputBoxのあとで、If文で判定すればいいかと思います。
こんなシンプルにコードかけるんですね！
if文は凄い、、、

今回は100枚より大きく入力するとエラーになるというのを書きたかったです。
100枚までは処理するというパターンも書いて頂きありがとうございます。
この考え方も覚えておきます！