Kako provjeriti je li ćelija ili raspon od više ćelija prazan s Excel VBA?

Danas ćemo naučiti kako jednostavno provjeriti je li jedna ili više ćelija prazna pomoću Visual Basica za aplikacije. Sadržaj je relevantan za Excel 2019 / 365, 2016 i starije verzije Microsoft Officea.

Pripremni rad

Prije nego što počnete s kodiranjem s VBA u Excelu, morat ćete osigurati da je kartica za razvoj omogućena. Ako to nije slučaj, pogledajte ovaj kratki vodič .

Provjera je li raspon ćelija programa Excel prazan pomoću VBA

• U Excelu otvorite svoje Visual Basic okruženje pritiskom na Alt+F11
• Umetnite sljedeći kod kao proceduru u svoj radni list ili alternativno u namjenski VBA modul.

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

• Idite na proračunsku tablicu i odaberite proizvoljan raspon ćelija.
• Vratite se u uređivač Visual Basica i provjerite je li preglednik Immediate (CTRL+G) vidljiv – budući da će metoda Debug.Print u kodu ispisati svoj rezultat u taj prozor.
• Pritisnite F5 da pokrenete svoj kod.
• Pogledajte rezultate u neposrednom prozoru.

• Sve prazne ćelije bit će identificirane.

Moguća proširenja koda: Očito možete proširiti ovaj kod prema potrebi u slučaju da želite preskočiti prazne vrijednosti ili jednostavno ne učiniti ništa u slučaju da ćelije nisu pune. Slično, možete provjeriti je li sam Range prazan, odnosno – nema crnih ćelija.

Provjera nepraznih polja

Na isti način možete koristiti svojstvo IsEmpty za provjeru polja koja nisu prazna.

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