Como criar uma planilha se não existir na pasta de trabalho?

Supondo que você tenha uma pasta de trabalho que contém várias planilhas, agora você precisa determinar se existe um nome de planilha específico. Se o nome da planilha não existir, crie-o. Se existir, forneça uma mensagem imediata para informar que a planilha existe. Como você resolveria essa tarefa no Excel?

Crie uma planilha se ela não existir na pasta de trabalho com o código VBA

---

Crie uma planilha se ela não existir na pasta de trabalho com o código VBA

O código VBA a seguir pode ajudá-lo a verificar um nome de planilha específico, se existir na pasta de trabalho; caso contrário, o código pode criar a planilha conforme necessário.

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: crie uma planilha se ela não existir na pasta de trabalho:

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. E, em seguida, pressione F5 para executar este código, uma caixa de prompt é exibida para lembrá-lo de inserir o nome da planilha que deseja verificar, consulte a captura de tela:

4. Então clique OK botão:

(1.) Se a planilha existir, uma caixa de prompt aparecerá para lembrá-lo da seguinte imagem mostrada:

(2.) Se a planilha não existir, ela será criada imediatamente, veja a imagem: