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 > Modulie incolla il codice seguente nel file Moduli 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:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!