Jak usunąć arkusz roboczy na podstawie wartości komórki w programie Excel?
Przypuśćmy, że mam wiele arkuszy w skoroszycie, teraz chcę usunąć arkusze na podstawie wartości komórki. Na przykład, jeśli konkretna komórka A1 zawiera tekst „KTE”, wszystkie arkusze, których komórka A1 zawiera ten tekst, muszą zostać usunięte naraz. Ten artykuł może pomóc w rozwiązaniu tego zadania w programie Excel.
Usuń arkusz roboczy na podstawie wartości komórki z kodem VBA
Usuń arkusz roboczy na podstawie wartości komórki z kodem VBA
Tutaj wprowadzę kod, aby usunąć wszystkie arkusze, których dana komórka ma określoną wartość, 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ń arkusz roboczy na podstawie wartości komórki:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
Note: W powyższym kodzie, A1 to konkretna komórka zawierająca określony tekst, na podstawie którego chcesz usunąć arkusze.
3. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okno zachęty przypominające o wprowadzeniu określonej wartości, na podstawie której chcesz usunąć arkusze, patrz zrzut ekranu:
4. A następnie kliknij OK przycisk, wszystkie arkusze, których komórka A1 ma tekst KTE, zostały usunięte naraz. Zobacz zrzut 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!