Cum să ștergeți o foaie specifică dacă există în registrul de lucru?
Cum ați putea șterge o anumită foaie de lucru dacă există într-un registru de lucru? În mod normal, trebuie să îl găsiți și să-l verificați dacă există, apoi să-l ștergeți manual. Aici, voi vorbi despre o modalitate ușoară de a șterge direct foaia de lucru specificată dacă există în fișierul Excel.
Ștergeți o foaie de lucru specifică dacă există într-un registru de lucru cu cod VBA
Ștergeți o foaie de lucru specifică dacă există într-un registru de lucru cu cod VBA
Următorul cod VBA vă poate ajuta să ștergeți foaia de lucru specificată dacă există în registrul de lucru, vă rugăm să faceți acest lucru:
1. Țineți apăsată tasta 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: Ștergeți o foaie de lucru specifică dacă există în registrul de lucru
Sub Test()
'Updateby Extendoffice
Dim xWs As Worksheet
Dim sheetName As String
sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet1", , , , , 2)
Application.DisplayAlerts = False
Err.Clear
On Error Resume Next
Set xWs = Sheets(sheetName)
If Err <> 0 Then
MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
Exit Sub
Else
xWs.Delete
MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
End If
Application.DisplayAlerts = True
End Sub
3. Apoi apăsați F5 tasta pentru a rula acest cod, este afișată o casetă de prompt pentru a vă reaminti să tastați numele foii pe care doriți să o verificați dacă există, vedeți captura de ecran:
4. Apoi faceți clic pe OK Butonul:
(1.) Dacă foaia există, va fi ștearsă imediat, vezi captura de ecran:
(2.) Dacă foaia nu există, va apărea o casetă de prompt pentru a vă reaminti după cum se arată în următoarea captură 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!