Cum se creează o foaie dacă nu există în registrul de lucru?
Presupunând că aveți un registru de lucru care conține mai multe foi de lucru, acum trebuie să determinați dacă există un anumit nume de foaie de lucru. Dacă numele foii de lucru nu există, vă rugăm să îl creați. Dacă există, vă rugăm să trimiteți un mesaj prompt pentru a vă spune că foaia există. Cum ați putea rezolva această sarcină în Excel?
Creați o foaie dacă nu există în registrul de lucru cu cod VBA
Creați o foaie dacă nu există în registrul de lucru cu cod VBA
Următorul cod VBA vă poate ajuta să verificați un anumit nume de foaie de lucru dacă există în registrul de lucru, dacă nu, codul poate crea foaia după cum aveți nevoie.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: creați o foaie dacă nu există în registrul de lucru:
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. Și apoi apăsați F5 pentru a rula acest cod, se deschide o casetă de prompt pentru a vă reaminti că introduceți numele foii pe care doriți să o verificați, vedeți captura de ecran:
4. Apoi apasa OK Butonul:
(1.) Dacă foaia există, va apărea o casetă de prompt pentru a vă reaminti după cum se arată în următoarea captură de ecran:
(2.) Dacă foaia nu există, va fi creată imediat, vezi captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!