Jak sprawdzić, czy komórka lub zakres wielu komórek jest pusty w Excel VBA?

Dzisiaj dowiemy się, jak łatwo sprawdzić, czy jedna lub wiele komórek jest pusta za pomocą Visual Basic for Applications. Treść dotyczy programu Excel 2019/365, 2016 i wcześniejszych wersji pakietu Microsoft Office.

Prace przygotowawcze

Przed rozpoczęciem kodowania za pomocą VBA w programie Excel musisz upewnić się, że karta deweloperska jest włączona. Jeśli tak nie jest, zajrzyj do tego krótkiego samouczka .

Sprawdzanie, czy zakres komórek Excela jest pusty za pomocą VBA

W programie Excel otwórz środowisko Visual Basic, naciskając Alt + F11
Wstaw następujący kod jako procedurę w arkuszu lub alternatywnie w dedykowanym module VBA.

Sub Check_Cell_is_empty_alt()

Dim rng As Range
Set rng = Selection

For Each Cell In rng

    If IsEmpty(Cell.Value) = True Then
        
    Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell


End Sub

Przejdź do arkusza kalkulacyjnego i wybierz dowolny zakres komórek.
Wróć do edytora Visual Basic i upewnij się, że przeglądarka natychmiastowa (CTRL+G) jest widoczna — ponieważ metoda Debug.Print w kodzie wygeneruje wynik do tego okna.
Naciśnij F5, aby uruchomić swój kod.
Spójrz na wyniki w bezpośrednim oknie.

Wszystkie puste komórki zostaną zidentyfikowane.

Możliwe rozszerzenia kodu: Możesz oczywiście rozszerzyć ten kod w razie potrzeby, jeśli chcesz pominąć puste wartości lub po prostu nic nie robić, jeśli komórki nie są pełne. Podobnie możesz sprawdzić, czy sam zakres jest pusty, tzn. nie zawiera czarnych komórek.

Sprawdzanie niepustych pól

W ten sam sposób można użyć właściwości IsEmpty, aby sprawdzić pola, które nie są puste.

 If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Not Empty")
    Else
        Debug.Print ("Empty")
    End If

Bonus: Use the following code if you want to highlight empty cells as well.

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Each myCell In myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "There are total " & i & " empty cell(s) out of " & c & "."

Imbir 2.7.53.0

Ginger to darmowy moduł do sprawdzania pisowni i gramatyki.

Bloki

Blocks to intelektualna gra przeznaczona dla uczniów klas trzecich szkół podstawowych, służąca ćwiczeniu umiejętności wykrywania i wzroku. Nauczyciele objęli ją programem wspierania nauczania informatyki.

Prezi 6.26

Prezi to darmowa aplikacja, która umożliwia tworzenie cyfrowych prezentacji, zarówno online, jak i offline.

Mathway

Mathway to bardzo przydatna aplikacja, która pomoże Ci rozwiązać wszystkie problemy matematyczne, które wymagają bardziej złożonego narzędzia niż kalkulator wbudowany w Twoje urządzenie.

Prezenter Adobe

Adobe Presenter to oprogramowanie do e-learningu wydane przez firmę Adobe Systems, dostępne na platformie Microsoft Windows jako wtyczka Microsoft PowerPoint.

Tukan 2.3.0

Toucan to edukacyjna platforma technologiczna. Pozwala nauczyć się nowego języka podczas przeglądania popularnych, codziennych stron internetowych.

ENetViet 24.2

eNetViet to aplikacja, która pomaga rodzicom połączyć się ze szkołą, w której uczą się ich dzieci, aby mogli lepiej zrozumieć aktualną sytuację edukacyjną swojego dziecka.

Duolingo

Duolingo - Ucz się języków za darmo, czyli po prostu Duolingo, to program edukacyjny, który pozwala uczyć się i ćwiczyć wiele różnych języków.

Szybkie pisanie

RapidTyping to wygodne i łatwe w użyciu narzędzie do nauki obsługi klawiatury, które pomoże Ci poprawić szybkość pisania i zmniejszyć liczbę błędów ortograficznych. Dzięki lekcjom zorganizowanym na wielu różnych poziomach RapidTyping nauczy Cię, jak pisać na klawiaturze lub doskonalić istniejące umiejętności.

Typ matematyczny 7.4.10.53

MathType to interaktywne oprogramowanie do równań opracowane przez projektanta Design Science (Dessci), które umożliwia tworzenie i dodawanie adnotacji do notacji matematycznej na potrzeby przetwarzania tekstu, prezentacji, e-learningu itp. Ten edytor jest również używany do tworzenia dokumentów TeX, LaTeX i MathML.