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:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
