IsEmpty je funkce listu, která se používá ke zjištění, zda je daný odkaz na buňku nebo rozsah buněk prázdný, nebo ne, protože se jedná o funkci listu, takže pro použití ve VBA používáme aplikaci. Metoda listu ve VBA pro použití této funkce, tato funkce spadá pod logické seznamy funkcí a vrací true, pokud je odkaz prázdný.
Funkce VBA IsEmpty
VBA IsEmpty je logická funkce, která testuje, zda je vybraný prázdný nebo ne. Jelikož se jedná o logickou funkci, vrátí výsledky v booleovských hodnotách, tj. Buď PRAVDA nebo NEPRAVDA.
Pokud je vybraná buňka prázdná, vrátí PRAVDA, jinak vrátí FALSE.
V tomto článku vám ukážeme, jak používat funkci „ISEMPTY“ ve VBA ke kontrole buněk pomocí kódů VBA.
Co dělá funkce ISEMPTY ve VBA?
Prázdné buňky nás často frustrují k efektivní práci v listu. Nalezení prázdných buněk není nejtěžší, ale pokud je prázdné buňky skrývají uprostřed dat, je nutné je najít.
Chcete-li najít prázdné buňky v aplikaci Excel, máme funkci nazvanou „ISBLANK“ jako funkci listu, ale ve VBA se nazývá „ISEMPTY“.
Funguje to podobně jako funkce listu „ISBLANK“. Nyní se podívejte na níže uvedený vzorec funkce „ISEMPTY“.
Jak vidíme na obrázku výše, vrátí výsledek jako Boolean, tj. PRAVDA nebo NEPRAVDA.
Příklady funkce ISEMPTY ve VBA
Následuje příklad IsEmpty ve VBA.
Příklad č. 1
Nyní uvidíme první praktický příklad „ISEMPTY“. Podívejte se na níže uvedený obrázek listu.
Nyní použijeme funkci Excel VBA ISEMPTY k otestování všech těchto.
Krok 1: Definujte proměnnou jako Boolean .
Kód:
Sub IsEmpty_Example1 () Dim K jako Boolean End Sub
Krok 2: U této proměnné přiřaďte hodnotu pomocí funkce VBA ISEMPTY .
Kód:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (End Sub
Krok 3: Výraz není nic jiného než to, co je buňka, kterou testujeme. Nyní testujeme buňku A1 buňku .
Kód:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) End Sub
Krok 4: Zobrazit hodnotu této proměnné v VBA Msgbox .
Kód:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) MsgBox K End Sub
Spusťte tento kód a zkontrolujte výsledek.
Protože v buňce A1 je hodnota, dostali jsme výsledek jako FALSE.
Nyní změním odkaz na buňku z A1 na A5.
Kód:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A5"). Value) MsgBox K End Sub
Spuštěním tohoto kódu zobrazíte výsledek.
Výsledek jsme dostali jako PRAVDA, odkazovaná buňka A5 je ve skutečnosti prázdná buňka, takže jsme dostali výsledek jako „PRAVDA“.
Nyní otestuji buňku A8.
Kód:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A8"). Value) MsgBox K End Sub
Spuštěním tohoto kódu zobrazíte výsledek.
Ach!!! Vydrž…
Výsledek jsme dostali jako FALSE, i když v buňce A8 není žádná hodnota.
Otázkou nyní je, že jde o chybový výsledek vzorce „ISEMPTY“ ?.
Ne … absolutně ne !!!
When I tried examining the cell A8 actually there is a space character inside the cell which is not easy to see with bare eyes.
So the conclusion is even Space is considered as a character in excel and VBA language.
Example #2 - Combination of VBA ISEMPTY with IF Condition
Actually, the real usage of the function “ISEMPTY” is admirable when we use it with other logical functions.
Especially when we use it with IF condition we can derive many useful results from it.
For this demonstration take a look at the below example.
In the Status column, if the “PF Status” column is empty, we need the value as “No Update,” and if there is any value, we need the values as “Collected Updates.”
Remember here we don’t need the default result of TRUE or FALSE. We need our own results here, to have our own results we need to use Excel VBA ISEMPTY with IF condition.
Step 1: Open IF condition.
Code:
Sub IsEmpty_Example2() If End Sub
Step 2: Inside the IF condition open ISEMPTY function.
Code:
Sub IsEmpty_Example2() If IsEmpty( End Sub
Step 3: The first logical test is cell B2 value is empty or not.
Code:
Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then End Sub
Step 4: If the logical test in excel vba is TRUE i.e., if the cell is empty, we need the result as “No Update” in cell C2.
Code:
Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then Range("C2").Value = "No Update" End Sub
Step 5: If the logical test is FALSE, we need the result in cell C2 as “Collected Updates.”
Code:
Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then Range("C2").Value = "No Update" Else Range("C2").Value = "Collects Updates" End If End Sub
Ok, we are done.
Run the code to get the result.
We got the result as “Collected Updates” because we have the non-empty cell in B2.
Now similarly apply the code for other cells to test.
Code:
Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then Range("C2").Value = "No Update" Else Range("C2").Value = "Collects Updates" End If If IsEmpty(Range("B3").Value) Then Range("C3").Value = "No Update" Else Range("C3").Value = "Collected Updates" End If If IsEmpty(Range("B4").Value) Then Range("C4").Value = "No Update" Else Range("C4").Value = "Collected Updates" End If End Sub
Run this code to have the results.
In cell C3 we got the result as “No Update” because there is no value in cell B3 i.e. Empty Cell. Since the logical formula returned TRUE we got the respective result.
Example #3 - Alternative to VBA ISEMPTY Function
Máme alternativu k funkci ISEMPTY, aniž bychom použili funkci Excel VBA ISEMPTY, můžeme buňku skutečně otestovat.
Příklad najdete v níže uvedeném kódu.
Kód:
Sub IsEmpty_Example3 () If Range ("B2"). Value = "" Then Range ("C2"). Value = "No Update" Else Range ("C2"). Value = "Collected Updates" End If End Sub
Řádek kódu Range („B2“). Hodnota = ”” znamená, zda je buňka B2 buňka prázdná nebo ne.
Dvojité uvozovky („“) představují prázdnou buňku nebo ne, pokud je prázdný výsledek PRAVDA nebo NEPRAVDA.
