Jak usunąć określony arkusz, jeśli istnieje w skoroszycie?
Jak możesz usunąć określony arkusz roboczy, jeśli istnieje w skoroszycie? Zwykle musisz go znaleźć i sprawdzić, jeśli istnieje, a następnie usunąć go ręcznie. Tutaj omówię łatwy sposób bezpośredniego usunięcia określonego arkusza roboczego, jeśli istnieje w pliku Excel.
Usuń określony arkusz roboczy, jeśli istnieje w skoroszycie z kodem VBA
Usuń określony arkusz roboczy, jeśli istnieje w skoroszycie z kodem VBA
Poniższy kod VBA może pomóc w usunięciu określonego arkusza roboczego, jeśli istnieje w skoroszycie, wykonaj następujące czynności:
1. Przytrzymaj przycisk ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Usuń określony arkusz roboczy, jeśli istnieje w skoroszycie
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. Następnie naciśnij F5 Aby uruchomić ten kod, zostanie wyświetlone okno zachęty przypominające o wpisaniu nazwy arkusza, który chcesz sprawdzić, czy istnieje, zobacz zrzut ekranu:
4. A następnie kliknij OK przycisk:
(1.) Jeśli arkusz istnieje, zostanie natychmiast usunięty, patrz zrzut ekranu:
(2.) Jeśli arkusz nie istnieje, pojawi się okienko z przypomnieniem, jak pokazano na poniższym zrzucie ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!