Ako skontrolovať, či je bunka alebo rozsah viacerých buniek prázdna pomocou Excel VBA?

Dnes sa naučíme, ako jednoducho skontrolovať, či je jedna alebo viacero buniek prázdnych pomocou jazyka Visual Basic for Applications. Obsah je relevantný pre Excel 2019/365, 2016 a staršie verzie balíka Microsoft Office.

Prípravné práce

Pred začatím kódovania pomocou jazyka VBA v Exceli sa musíte uistiť, že je povolená karta Vývoj. Ak to tak nie je, pozrite si tento krátky návod .

Kontrola, či je rozsah buniek Excelu prázdny pomocou VBA

• V Exceli otvorte prostredie Visual Basic stlačením Alt+F11
• Vložte nasledujúci kód ako postup do pracovného hárka alebo alternatívne do vyhradeného modulu 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

• Prejdite do tabuľky a vyberte ľubovoľný rozsah buniek.
• Vráťte sa do editora Visual Basic a uistite sa, že je viditeľný okamžitý prehliadač (CTRL+G) – pretože metóda Debug.Print v kóde vypíše svoj výsledok do tohto okna.
• Kód spustíte stlačením F5.
• Pozrite sa na výsledky v bezprostrednom okne.

• Identifikujú sa všetky prázdne bunky.

Možné rozšírenia kódu: Tento kód môžete samozrejme rozšíriť podľa potreby v prípade, že chcete preskočiť prázdne hodnoty alebo jednoducho nerobiť nič v prípade, že bunky nie sú plné. Podobne môžete skontrolovať, či je samotný rozsah prázdny, tj – neobsahuje žiadne čierne bunky.

Kontrola neprázdnych polí

Rovnakým spôsobom môžete použiť vlastnosť IsEmpty na kontrolu polí, ktoré nie sú prázdne.

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