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
Bonus: Ak chcete zvýrazniť aj prázdne bunky, použite nasledujúci kód.
Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") pre každú mojuCell in myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Existuje celkový počet " & i & " prázdne bunky z " & c& "."