Hogyan lehet törölni egy adott lapot, ha létezik a munkafüzetben?
Hogyan lehet törölni egy adott munkalapot, ha az létezik egy munkafüzetben? Normális esetben meg kell találnia és ellenőriznie kell, ha létezik, majd manuálisan törölnie kell. Itt beszélek a megadott munkalap közvetlen törlésének egyszerű módjáról, ha az létezik az Excel fájlban.
Töröljön egy adott munkalapot, ha létezik egy VBA kóddal ellátott munkafüzetben
Töröljön egy adott munkalapot, ha létezik egy VBA kóddal ellátott munkafüzetben
A következő VBA-kód segíthet a megadott munkalap törlésében, ha létezik a munkafüzetben, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Töröljön egy adott munkalapot, ha létezik a munkafüzetben
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, megjelenik egy felszólító doboz, amely emlékezteti Önt, hogy írja be a lap nevét, amelyet ellenőrizni szeretne, ha létezik, lásd a képernyőképet:
4. Kattintson a gombra OK gomb:
(1.) Ha a lap létezik, akkor azonnal törli, lásd a képernyőképet:
(2.) Ha a lap nem létezik, megjelenik egy felszólító mező, amely emlékezteti Önt a következő képernyőkép szerint:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!