ブックに存在しない場合、シートを作成するにはどうすればよいですか？

複数のワークシートを含むブックがあるとします。ここで、特定のワークシート名が存在するかどうかを判別する必要があります。 ワークシート名が存在しない場合は作成してください。 存在する場合は、シートが存在することを通知するプロンプトメッセージを表示してください。 このタスクをExcelでどのように解決できますか？

VBAコードを使用してブックに存在しない場合は、シートを作成します

---

VBAコードを使用してブックに存在しない場合は、シートを作成します

次のVBAコードは、ワークブックに特定のワークシート名が存在するかどうかを確認するのに役立ちます。存在しない場合、コードは必要に応じてシートを作成する場合があります。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：ブックに存在しない場合はシートを作成します。

Sub TestSheetCreate()
'Updateby Extendoffice
    Dim newSheetName As String
    Dim checkSheetName As String
    newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet4", , , , , 2)
    On Error Resume Next
    checkSheetName = Worksheets(newSheetName).Name
    If checkSheetName = "" Then
        Worksheets.Add.Name = newSheetName
        MsgBox "The sheet named ''" & newSheetName & _
        "'' does not exist in this workbook but it has been created now.", _
        vbInformation, "Kutools for Excel"
        
    Else
        MsgBox "The sheet named ''" & newSheetName & _
        "''exist in this workbook.", vbInformation, "Kutools for Excel"
    End If
End Sub

3。 そして、 F5 このコードを実行するためのキーを押すと、確認するシート名を入力するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

4。 次に、をクリックします OK ボタン：

（1.）シートが存在する場合は、次のスクリーンショットのようにプロンプ​​トボックスが表示されます。

（2.）シートが存在しない場合は、すぐに作成されます。スクリーンショットを参照してください。