Jak zkontrolovat, zda je buňka nebo rozsah více buněk prázdná pomocí Excel VBA?

Dnes se naučíme, jak snadno zkontrolovat, zda je jedna nebo více buněk prázdných pomocí jazyka Visual Basic for Applications. Obsah je relevantní pro Excel 2019 / 365, 2016 a starší verze Microsoft Office.

Přípravné práce

Než začnete kódovat pomocí VBA v Excelu, musíte se ujistit, že je povolena vaše karta Vývoj. Pokud tomu tak není, podívejte se prosím do tohoto krátkého návodu .

Kontrola, zda je rozsah buněk aplikace Excel prázdný pomocí VBA

  • V Excelu otevřete prostředí Visual Basic stisknutím Alt+F11
  • Vložte následující kód jako postup do svého listu nebo alternativně do vyhrazené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


  • Přejděte do tabulky a vyberte libovolný rozsah buněk.
  • Vraťte se do editoru Visual Basic a ujistěte se, že je viditelný Immediate viewer (CTRL+G) – protože metoda Debug.Print v kódu vypíše svůj výsledek do tohoto okna.
  • Stisknutím F5 spustíte kód.
  • Podívejte se na výsledky v bezprostředním okně.

Jak zkontrolovat, zda je buňka nebo rozsah více buněk prázdná pomocí Excel VBA?

  • Budou identifikovány všechny prázdné buňky.

Možná rozšíření kódu: Tento kód můžete samozřejmě rozšířit podle potřeby v případě, že chcete přeskočit prázdné hodnoty nebo prostě nedělat nic v případě, že buňky nejsou plné. Podobně můžete zkontrolovat, zda je samotný rozsah prázdný, tj. – neobsahuje žádné černé buňky.

Kontrola neprázdných polí

Stejným způsobem můžete použít vlastnost IsEmpty ke kontrole polí, která nejsou prázdná.

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

Bonus: Pokud chcete zvýraznit i prázdné buňky, použijte následující kód.

Dim i As Long Dim c As long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") Pro každou 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 _ "Existuje celkem " & i & " prázdné buňky z " & c & "."."

Zanechat komentář

Šablona výroční zprávy neziskové organizace v PowerPointu: Možnosti stažení zdarma a kontrolní seznam snímků

Šablona výroční zprávy neziskové organizace v PowerPointu: Možnosti stažení zdarma a kontrolní seznam snímků

Vytvořte si přehlednou výroční zprávu neziskové organizace v PowerPointu s bezplatnou šablonou, praktickou strukturou snímků, metrikami dopadu, finančními údaji a tipy na prezentaci připravenou pro dárce.

Minimalistická PowerPointová šablona investorské prezentace pro technologické startupy: Co zahrnout a co vynechat

Minimalistická PowerPointová šablona investorské prezentace pro technologické startupy: Co zahrnout a co vynechat

Vytvořte si v PowerPointu prezentaci pro investory z čistého technologického startupu s praktickou strukturou snímků, sdělením zaměřeným na důkazy, přístupným designem a menším počtem rušivých elementů.

Šablona jednoduché matice delegování úkolů pro Word: Praktická verze pro manažery malých týmů

Šablona jednoduché matice delegování úkolů pro Word: Praktická verze pro manažery malých týmů

Pomocí této jednoduché šablony matice delegování úkolů ve Wordu můžete přiřadit vlastníky, limity rozhodování, termíny a kontrolní body, aniž byste příliš komplikovali malý tým.

Šablona jednoduchého záznamu o docházce do denní péče: Tisknutelné přihlášení a odhlášení pro domácí péči o děti

Šablona jednoduchého záznamu o docházce do denní péče: Tisknutelné přihlášení a odhlášení pro domácí péči o děti

Použijte tento jednoduchý tisknutelný docházkový list pro domácí péči o děti, se jmény dětí, časy příchodu/odchodu, podpisy a tipy pro dodržování předpisů.

Šablona marketingové strategie na jednu stránku k vytištění pro místní firmy

Šablona marketingové strategie na jednu stránku k vytištění pro místní firmy

Použijte tuto šablonu marketingové strategie na jednu stránku, kterou si můžete vytisknout, k definování místního publika, nabídky, kanálů, rozpočtu, týdenních akcí a měřitelných cílů.

Jak zabránit automatické změně čísel na data v Excelu

Jak zabránit automatické změně čísel na data v Excelu

Zabraňte Excelu v převodu hodnot jako 1/2, 11-53 nebo JAN1 na data. Naučte se spolehlivá řešení pro psaní, vkládání, import CSV a již převedené buňky.

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Build a polished real estate listing PowerPoint for free with a practical slide plan, photo, branding, accessibility, compliance, and export tips.

Jak opravit chybu Outlooku: nelze odesílat e-maily, ale příjem funguje

Jak opravit chybu Outlooku: nelze odesílat e-maily, ale příjem funguje

Opravte Outlook, když můžete přijímat e-maily, ale nemůžete je odesílat. Zkontrolujte složku K odeslání, offline režim, přihlášení, nastavení SMTP, profily a změny v Microsoft 365.

Jednoduchá šablonová tabulka Excelu pro sledování dvouměsíční výplaty pro malé týmy: Praktická příručka nastavení

Jednoduchá šablonová tabulka Excelu pro sledování dvouměsíční výplaty pro malé týmy: Praktická příručka nastavení

Vytvořte jednoduchou šablonu pro sledování dvouměsíční výplaty v Excelu pro malý tým, včetně hodin, výplat, odpočtů, kontrolních příznaků, souhrnů a pokynů pro vedení záznamů.

Šablona kontrolního seznamu pro plánování událostí a rozpočtu k vytištění ve Wordu: Co zahrnout a kdy místo toho použít Excel

Šablona kontrolního seznamu pro plánování událostí a rozpočtu k vytištění ve Wordu: Co zahrnout a kdy místo toho použít Excel

Vytvořte nebo si upravte šablonu kontrolního seznamu a rozpočtu pro plánování akcí k tisku v aplikaci Microsoft Word s praktickými částmi, kompromisy a tipy pro porovnání Wordu a Excelu.