VBA IsEmpty - Hoe de VBA IsEmpty-functie te gebruiken? (Voorbeelden)

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. Aangezien 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 de moeilijkste, maar als lege cellen ze in het midden van de gegevens verbergen, kost het zijn 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.

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!!! Vasthouden…

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 halen.

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.

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

We hebben een alternatief voor de ISEMPTY-functie, zonder de Excel VBA ISEMPTY-functie toe te passen, kunnen we de cel daadwerkelijk testen.

Kijk voor een voorbeeld naar de onderstaande 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

De regel met code Bereik ("B2 ″). Waarde =" " betekent of cel B2 gelijk is aan leeg of niet.

Dubbele aanhalingstekens ("") staat voor een lege cel of niet als het lege resultaat WAAR is of anders FALSE.