Są chwile, kiedy musimy utworzyć lub dodać arkusz, a później stwierdziliśmy, że ten arkusz nie jest używany, dlatego musimy szybko usunąć arkusz ze skoroszytu. Ten artykuł koncentruje się na oszczędzaniu czasu i zapewnianiu kodu do usuwania arkuszy bez wyświetlania monitu za pomocą makra / kodu vba. Może to być jeden arkusz lub kilka. Program Excel wyświetla wyskakujące powiadomienie, aby potwierdzić usunięcie arkusza. Jeśli jest to jeden arkusz, można nim zarządzać. Ale jeśli musisz usunąć kilka arkuszy, otrzymasz jedno wyskakujące okienko na arkusz.
Często tworzysz wiele arkuszy za pomocą VBA. Ale w końcu tak naprawdę ich nie potrzebujesz. Chciałbyś je usunąć po zakończeniu pracy. Dzięki temu Twój plik będzie lżejszy, szybszy i rozsądniejszy.
Kod VBA do usunięcia arkusza jest prosty
Arkusze("NazwaArkusza").Usuń
Załóżmy, że masz ten kod, aby dodać arkusz, a następnie usunąć go po zakończeniu pracy.
Sub AddAndDeleteSheet() Sheets.Add 'Dodaje nowy arkusz do aktywnego skoroszytu '---- '---- '---- 'niektóre prace wykonane na arkuszu ActiveSheet.Delete 'usuwa aktywny Activesheet End Sub
Kiedy wykonasz ten kod, Sheets.Add będzie działać bez żadnego monitu, ale kiedy pojawi się kompilator Aktywny arkusz.Usuń wyświetli komunikat podobny do tego.
Ponieważ usuwasz arkusze za pomocą VBA, wiesz, co robisz. Chcesz powiedzieć programowi Excel, aby nie wyświetlał tego ostrzeżenia i usuwał ten cholerny arkusz.
W tym celu wyłączymy przycisk alertu wyświetlania aplikacji Excel.
Poniższy kod ominie ten komunikat ostrzegawczy, a arkusz zostanie usunięty bez uprzedzenia.
Sub AddAndDeleteSheet() Application.DisplayAlerts = False 'wyłączanie przycisku alertu Sheets.Add '---- '---- '---- 'wykonano trochę pracy na arkuszu ActiveSheet.Delete Application.DisplayAlerts = True 'włączenie przycisk alertu End Sub
Tutaj usuwamy Activesheet za pomocą VBA. Możesz usunąć dowolny arkusz za pomocą VBA. Po prostu napisz Arkusze("Nazwa arkusza").delete. Iść dalej…
DisplayAlerts jest właściwością obiektu Application w języku VBA. Tutaj wyłączamy go na początku naszego kodu i włączamy na końcu kodu. Powyższy kod potwierdzi usunięcie bez uprzedzenia.
Notatka:Powyższy kod zignoruje wszystkie ostrzeżenia zgłoszone przez program Excel. Jeśli chcesz zezwolić tylko na usuwanie arkuszy, użyj tej linii.
Application.DisplayAlerts = False 'wyłączanie przycisku alertu ActiveSheet.Delete Application.DisplayAlerts = True 'włączanie przycisku alertu
Spowoduje to zignorowanie tylko ostrzeżenia o usunięciu arkusza.
Pro Porada: Te wiersze kodu zwiększają wydajność kodu VBA.Zawsze używaj ich na początku swojego makra i włączaj je ponownie tam, gdzie oczekuje się, że Twój kod zakończy procedurę.Ostrzeżenie: Jeśli nie jest włączone przed wyjściem z podprogramu, możesz w ogóle nie widzieć żadnego ostrzeżenia. Nawet jeśli Twój kod nie działa. Może to powodować wiele problemów.
Jeśli masz wiele arkuszy do usunięcia i używasz pętli, wypróbuj ten kod -
Option Explicit Sub macro2() Dim i As Long Application.DisplayAlerts = False For i = 1 to Worksheets.Count If Worksheets(i).Name Like "Test*" Then Worksheets(i).Delete Next i Application.DisplayAlerts = True End Pod
Otóż to. Zrobione. To takie proste, jak włączanie i wyłączanie wentylatora. Prawda?
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na witryna e-mailPobieranie pliku
Usuń arkusze bez monitów o potwierdzenie za pomocą VBA w programie Microsoft Excel
Podziel arkusz Excela na wiele plików na podstawie kolumny za pomocą VBA
Zmień domyślną drukarkę za pomocą VBA w programie Microsoft Excel 2016
Wyłącz komunikaty ostrzegawcze za pomocą VBA w programie Microsoft Excel 2016
Wyświetl komunikat na pasku stanu Excel VBA
Wstaw obrazy za pomocą VBA w programie Microsoft Excel 2016
Jak zapętlić arkusze w programie Excel za pomocą VBA
Popularne artykuły:
50 skrótów Excela, które zwiększą Twoją produktywność
Jak korzystać z funkcji WYSZUKAJ.PIONOWO w programie Excel
Jak korzystać z funkcji LICZ.JEŻELI w programie Excel
Jak korzystać z funkcji SUMA.JEŻELI w programie Excel
