Excelでは、さまざまな方法で新しいワークシートを作成できます。新しいワークシートを作成し、すべてを1つのステップで名前を付けたい場合はどうなりますか？これを行う最も簡単な方法は、マクロを使用することです。以下は、名前を要求し、ワークシートを作成して、そのワークシートに指定された名前を付けるマクロの例です。

Sub AddNameNewSheet1()

Dim Newname As String     Newname = InputBox("Name for new worksheet?")

If Newname <> "" Then         Sheets.Add Type:=xlWorksheet         ActiveSheet.Name = Newname     End If End Sub

このマクロは、ユーザーがExcel標準で「合法」なワークシート名を入力する限り正常に機能します。新しい名前がExcelで受け入れられない場合でも、ワークシートは追加されますが、期待どおりに名前が変更されません。

より堅牢なマクロは、ワークシートの命名で発生する可能性のあるエラーを予測します。次のサンプルコードはワークシートを追加しますが、間違った名前が指定されている場合はワークシート名を要求し続けます。

Sub AddNameNewSheet2()

Dim CurrentSheetName As String

'Remember where we started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet

CurrentSheetName = ActiveSheet.Name

'Add New Sheet     Sheets.Add

'Make sure the name is valid     On Error Resume Next

'Get the new name      ActiveSheet.Name = InputBox("Name for new worksheet?")



'Keep asking for name if name is invalid     Do Until Err.Number = 0         Err.Clear         ActiveSheet.Name = InputBox("Try Again!" _           & vbCrLf & "Invalid Name or Name Already Exists" _           & vbCrLf & "Please name the New Sheet")

Loop     On Error GoTo 0

'Go back to where you started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet     Sheets(CurrentSheetName).Select

End Sub

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2022）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkマクロを使用したワークシートの作成。