|
>ReName:
> MsgBox shtName & " は、既にあります。", vbExclamation, "エラー"
> GoTo ReName
シート名は重複するので、再入力させる為に
goto文で ReName: にジャンプします。
: の付いているものをラベルといいます。
gotoはラベルにジャンプする構文です。
> On Error GoTo WrongName
この文以降で、エラーが発生した場合は、WrongName: にジャンプします。
ActiveSheet.Copy before:=Worksheets(1)
以下のシート名変更において、/ などの使えない文字に
シート名が変更されるとエラーが発生するので、
発生したときは、WrongName: にジャンプします。
ActiveSheet.Name = shtName
> On Error GoTo 0
これは、On Error GoTo WrongName の解除です。
MsgBox "完了"
> Exit Sub
マクロ終了です
>WrongName:
> MsgBox "シート名に使えない文字が含まれています。", vbExclamation, "エラー"
> shtName = Application.InputBox("シート名を入力して下さい。", "シート名入力", Type:=2)
>Resume 0
これは、エラーの発生した行にジャンプします。
>End Sub
|
|