VBA is leeg

IsEmpty is een werkbladfunctie die wordt gebruikt om erachter te komen of een bepaalde celverwijzing of een celbereik leeg is of niet, aangezien het een werkbladfunctie is, dus om het in VBA te gebruiken, gebruiken we Application. Werkbladmethode in VBA om deze functie te gebruiken, deze functie komt onder de logische functielijsten en retourneert true als de verwijzing leeg is.

VBA IsEmpty-functie

VBA IsEmpty is een logische functie die test of de geselecteerde leeg is of niet. Omdat het een logische functie is, worden de resultaten in Booleaanse waarden geretourneerd, dwz WAAR of ONWAAR.

Als de geselecteerde cel leeg is, wordt TRUE geretourneerd, anders wordt FALSE geretourneerd.

In dit artikel laten we u zien hoe u de functie "ISEMPTY" in VBA kunt gebruiken om de cellen te controleren met VBA-codes.

Wat doet de ISEMPTY-functie in VBA?

Vaak frustreren lege cellen ons om efficiënt in het werkblad te werken. Het vinden van de lege cellen is niet het moeilijkste, maar als lege cellen ze in het midden van de gegevens verbergen, kost het een tol om ze te vinden.

Om de lege cellen in Excel te vinden hebben we de functie genaamd "ISBLANK" als werkbladfunctie, maar in VBA heet het "ISEMPTY".

Dit werkt op dezelfde manier als de werkbladfunctie "ISBLANK". Bekijk nu de onderstaande formule van de "ISEMPTY" -functie.

Zoals we in de bovenstaande afbeelding kunnen zien, retourneert het het resultaat als Boolean, dwz WAAR of ONWAAR.

Voorbeelden van ISEMPTY-functie in VBA

Hieronder volgen de voorbeelden van IsEmpty in VBA.

U kunt deze VBA IsEmpty Excel-sjabloon hier downloaden - VBA IsEmpty Excel-sjabloon

Voorbeeld 1

Nu zullen we het eerste praktische voorbeeld van "ISEMPTY" zien. Bekijk hiervoor de onderstaande afbeelding van het werkblad.

Nu zullen we de Excel VBA ISEMPTY-functie toepassen om al deze te testen.

Stap 1: definieer de variabele als Boolean .

Code:

 Sub IsEmpty_Example1 () Dim K als Boolean End Sub 

Stap 2: Wijs voor deze variabele de waarde toe via de VBA  ISEMPTY- functie.

Code:

 Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (End Sub 

Stap 3: Expressie is niets anders dan wat de cel is die we testen. Nu testen we cel A1-cel .

Code:

 Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) End Sub 

Stap 4: Toon de waarde van deze variabele in de VBA Msgbox .

Code:

 Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Waarde) MsgBox K End Sub 

Voer deze code uit om het resultaat te controleren.

Omdat er een waarde in de cel A1 staat, hebben we het resultaat als FALSE.

Nu zal ik de celverwijzing wijzigen van A1 naar A5.

Code:

 Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A5"). Value) MsgBox K End Sub 

Voer deze code uit om het resultaat te zien.

We hebben het resultaat als WAAR, de cel A5 waarnaar wordt verwezen, is eigenlijk een lege cel, dus we kregen het resultaat als "WAAR".

Nu zal ik de cel A8 testen .

Code:

 Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A8"). Value) MsgBox K End Sub 

Voer deze code uit om het resultaat te zien.

Oh!!! Hou vol…

We hebben het resultaat als FALSE, ook al is er geen waarde in de cel A8.

Nu is de vraag of het een fout is als resultaat van de formule "ISEMPTY" ?.

Nee ... Absoluut Nee !!!

Toen ik de cel A8 probeerde te onderzoeken, zit er eigenlijk een spatie in de cel die niet gemakkelijk te zien is met blote ogen.

Dus de conclusie is dat zelfs Space wordt beschouwd als een personage in Excel en VBA-taal.

Voorbeeld # 2 - Combinatie van VBA ISEMPTY met IF-voorwaarde

Eigenlijk is het echte gebruik van de functie "ISEMPTY" bewonderenswaardig als we het gebruiken met andere logische functies.

Vooral als we het gebruiken met de IF-conditie, kunnen we er veel bruikbare resultaten uit afleiden.

Bekijk voor deze demonstratie het onderstaande voorbeeld.

Als de kolom "PF-status" leeg is in de kolom Status, hebben we de waarde "Geen update" nodig en als er een waarde is, hebben we de waarden nodig als "Verzamelde updates".

Onthoud dat we het standaardresultaat TRUE of FALSE niet nodig hebben. We hebben hier onze eigen resultaten nodig, om onze eigen resultaten te hebben, moeten we Excel VBA ISEMPTY met IF-voorwaarde gebruiken.

Stap 1: Open ALS- voorwaarde.

Code:

 Sub IsEmpty_Example2 () Als End Sub 

Stap 2: Binnen de ALS-voorwaarde open de ISEMPTY-functie .

Code:

 Sub IsEmpty_Example2 () If IsEmpty (End Sub 

Stap 3: De eerste logische test is dat de waarde van cel B2 leeg is of niet.

Code:

 Sub IsEmpty_Example2 () If IsEmpty (Range ("B2"). Value) Then End Sub 

Stap 4: Als de logische test in Excel vba WAAR is, dwz als de cel leeg is, hebben we het resultaat nodig als " Geen update " in cel C2.

Code:

 Sub IsEmpty_Example2 () If IsEmpty (Range ("B2"). Value) Then Range ("C2"). Value = "Geen update" End Sub 

Stap 5: Als de logische test FALSE is, hebben we het resultaat in cel C2 nodig als " 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

We have an alternative to ISEMPTY function, without applying the excel VBA ISEMPTY function we can actually test the cell.

For an example look at the below code.

Code:

 Sub IsEmpty_Example3() If Range("B2").Value = "" Then Range("C2").Value = "No Update" Else Range("C2").Value = "Collected Updates" End If End Sub 

The line of code Range(“B2″).Value = ” ” means whether the cell B2 cell is equal to empty or not.

Double Quotes (“ ”) represents an empty cell or not if the empty result is TRUE or else FALSE.