Jak szybko sprawdzić, czy arkusz jest pusty w programie Excel?
Jeśli w ogromnym skoroszycie są jakieś puste arkusze, jak możesz szybko sprawdzić, czy arkusz jest pusty w skoroszycie, a następnie je usunąć? W programie Excel jest wbudowana funkcja określająca, czy arkusz jest pusty, czy nie, ale tutaj przedstawiam kod VBA, aby sprawdzić, czy arkusz jest pusty.
Sprawdź, czy arkusz jest pusty z VBA
Sprawdź, czy arkusz jest pusty z VBA
Aby sprawdzić, czy arkusz jest pusty, możesz użyć poniższego kodu makra, aby szybko określić, czy arkusz jest pusty.
1. Włącz arkusz, który chcesz sprawdzić, czy jest pusty, naciśnij Alt + F11 klucz do otwarcia Microsoft Visual Basic for Applications okno i kliknij wstawka > Moduł stworzyć nowy Moduł.
2. W pustym skrypcie wklej do niego poniższy kod makra. Zobacz zrzut ekranu:
VBA: Sprawdź, czy arkusz jest pusty
Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
Else
MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
End If
End Sub
3. Zapisz kod i naciśnij F5 aby uruchomić kod, a pojawi się okno dialogowe przypominające, że arkusz jest pusty, czy nie.
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!