Come creare un foglio se non esiste nella cartella di lavoro?

Supponendo che tu abbia una cartella di lavoro che contiene più fogli di lavoro, ora, devi determinare se esiste un nome di foglio di lavoro specifico. Se il nome del foglio di lavoro non esiste, crearlo. Se esiste, invia un messaggio per informarti che il foglio esiste. Come hai potuto risolvere questa attività in Excel?

Crea un foglio se non esiste nella cartella di lavoro con codice VBA

---

Crea un foglio se non esiste nella cartella di lavoro con codice VBA

Il seguente codice VBA può aiutarti a controllare un nome di foglio di lavoro specifico se esiste nella cartella di lavoro, in caso contrario, il codice potrebbe creare il foglio di cui hai bisogno.

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nel file Modulo Finestra.

Codice VBA: crea un foglio se non esiste nella cartella di lavoro:

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 poi premere F5 chiave per eseguire questo codice, viene visualizzata una finestra di messaggio per ricordarti di inserire il nome del foglio che desideri controllare, vedi screenshot:

4. Quindi fare clic OK pulsante:

(1.) Se il foglio esiste, verrà visualizzata una finestra di messaggio per ricordarti come mostrato nella seguente schermata:

(2.) Se il foglio non esiste, verrà creato immediatamente, vedi screenshot: