IsEmpty er en regnearksfunktion, der bruges til at finde ud af, om en given cellehenvisning eller et celleområde er tomme eller ej, da det er en regnearksfunktion, så for at bruge den i VBA bruger vi Application. Arbejdsarkmetode i VBA for at bruge denne funktion, denne funktion kommer under de logiske funktionslister og returnerer sand, hvis referencen er tom.
VBA er tom funktion
VBA IsEmpty er en logisk funktion, der tester, om den valgte er tom eller ej. Da det er en logisk funktion, vil den returnere resultaterne i boolske værdier, dvs. enten SAND eller FALSK.
Hvis den valgte celle er tom, returnerer den SAND, ellers returnerer den FALSK.
I denne artikel viser vi dig, hvordan du bruger “ISEMPTY” -funktionen i VBA til at kontrollere cellerne ved hjælp af VBA-koder.
Hvad gør ISEMPTY-funktion i VBA?
Ofte frustrerer tomme celler os om at arbejde effektivt i regnearket. At finde de tomme celler er ikke det sværeste, men hvis tomme celler gemmer dem midt i dataene, tager det en afgift at finde dem.
For at finde de tomme celler i excel har vi funktionen kaldet “ISBLANK” som regnearkfunktion, men i VBA kaldes den “ISEMPTY”.
Dette fungerer på samme måde som regnearkfunktionen “ISBLANK”. Se nu på nedenstående formel for "ISEMPTY" -funktionen.
Som vi kan se i ovenstående billede returnerer det resultatet som boolsk, dvs. SAND eller FALSK.
Eksempler på ISEMPTY-funktion i VBA
Følgende er eksemplerne på IsEmpty i VBA.
Eksempel nr. 1
Nu vil vi se det første praktiske eksempel på "ISEMPTY". Se på nedenstående billede af regnearket for dette.
Nu vil vi anvende excel VBA ISEMPTY-funktion til at teste alle disse.
Trin 1: Definer variablen som boolsk .
Kode:
Sub IsEmpty_Example1 () Dim K Som Boolean End Sub
Trin 2: For denne variabel tildeles værdien gennem VBA ISEMPTY- funktionen.
Kode:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (End Sub
Trin 3: Udtryk er ikke andet end hvad er den celle, vi tester. Nu tester vi celle A1-celle .
Kode:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) End Sub
Trin 4: Vis værdien af denne variabel i VBA Msgbox .
Kode:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) MsgBox K End Sub
Kør denne kode for at kontrollere resultatet.
Da der er en værdi i cellen A1, fik vi resultatet som FALSK.
Nu vil jeg ændre cellehenvisningen fra A1 til A5.
Kode:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A5"). Value) MsgBox K End Sub
Kør denne kode for at se resultatet.
Vi fik resultatet som SAND, den refererede celle A5 er faktisk tom celle, så vi fik resultatet som “SAND”.
Nu vil jeg teste cellen A8.
Kode:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A8"). Value) MsgBox K End Sub
Kør denne kode for at se resultatet.
Åh !!! Hold fast…
Vi fik resultatet som FALSK, selvom der ikke er nogen værdi i cellen A8.
Nu er spørgsmålet, om det er et fejlresultat fra formlen “ISEMPTY” ?.
Nej … Absolut Nej !!!
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
Vi har et alternativ til ISEMPTY-funktion uden at anvende excel VBA ISEMPTY-funktionen kan vi faktisk teste cellen.
Se et eksempel på nedenstående kode.
Kode:
Sub IsEmpty_Example3 () Hvis rækkevidde ("B2"). Værdi = "" Så rækkevidde ("C2"). Værdi = "Ingen opdatering" Ellers rækkevidde ("C2"). Værdi = "Samlede opdateringer" Afslut, hvis slutundervisning
Linjen med kode Område (“B2 ″). Værdi =” ” betyder, om celle B2-celle er lig med tom eller ej.
Dobbeltcitater (“”) repræsenterer en tom celle eller ej, hvis det tomme resultat er SAND eller ellers FALSK.
