建一堆工作表，有开头和数字后缀

本文链接：https://blog.csdn.net/narutohcl/article/details/2487976

'Excel create Sheets v0.2 b 2008.05.27 lihc
Public Sub createSheets()

gyomuId = InputBox("業務IDをご入力お願いします:")
suumoku = InputBox("シート数目をご入力お願いします:")
isNum = IsNumeric(suumoku)

    While isNum = False
        MsgBox ("数値ををご入力お願いします!")
        suumoku = InputBox("シート数目をご入力お願いします:")
        isNum = IsNumeric(suumoku)
    Wend

gyomuId = gyomuId + "_"

Sheets("Sheet3").Select

'4以後のシートを作成します。
For i = 4 To suumoku Step 1
    Sheets.Add
    Sheets("Sheet" + CStr(i)).Name = gyomuId + Format(CStr(i), "000")
    Sheets("Sheet3").Select
    Sheets("Sheet3").Move After:=Sheets(gyomuId + Format(CStr(i), "000"))
    Next

'1~3のシートの名前を修正します。
For i = 1 To 3 Step 1
Sheets("Sheet" + CStr(i)).Name = gyomuId + Format(CStr(i), "000")
Next

'3番目のシートを移動します。
Sheets(gyomuId + Format(CStr(3), "000")).Move After:=Sheets(gyomuId + Format(CStr(2), "000"))
'1番目のシートを選択します。
Sheets(gyomuId + Format(CStr(1), "000")).Select

End Sub