IsEmpty er en regnearkfunksjon som brukes til å finne ut om en gitt cellereferanse eller et celleområde er tomme eller ikke siden det er en regnearkfunksjon, så for å bruke den i VBA bruker vi Application. Regnearkmetode i VBA for å bruke denne funksjonen, denne funksjonen kommer under de logiske funksjonslistene og returnerer sant hvis referansen er tom.
VBA er tom funksjon
VBA IsEmpty er en logisk funksjon som tester om valgt er tomt eller ikke. Siden det er en logisk funksjon, vil den returnere resultatene i boolske verdier, dvs. enten SANT eller FALSK.
Hvis den valgte cellen er tom, vil den returnere SANT, ellers vil den returnere FALSE.
I denne artikkelen vil vi vise deg hvordan du bruker “ISEMPTY” -funksjonen i VBA for å sjekke cellene ved hjelp av VBA-koder.
Hva gjør ISEMPTY-funksjonen i VBA?
Ofte frustrerer tomme celler oss til å jobbe effektivt i regnearket. Det er ikke vanskeligst å finne de tomme cellene, men hvis tomme celler gjemmer dem midt i dataene, tar det en toll å finne dem.
For å finne de tomme cellene i excel har vi funksjonen kalt “ISBLANK” som regnearkfunksjon, men i VBA kalles den “ISEMPTY”.
Dette fungerer på samme måte som regnearkfunksjonen “ISBLANK”. Ta en titt på formelen nedenfor for “ISEMPTY” -funksjonen.
Som vi kan se i bildet ovenfor, returnerer det resultatet som boolsk, dvs. SANT eller FALSK.
Eksempler på ISEMPTY-funksjon i VBA
Følgende er eksemplene på IsEmpty i VBA.
Eksempel 1
Nå vil vi se det første praktiske eksemplet på "ISEMPTY". For dette, ta en titt på bildet nedenfor av regnearket.
Nå vil vi bruke excel VBA ISEMPTY-funksjonen for å teste alle disse.
Trinn 1: Definer variabelen som boolsk .
Kode:
Sub IsEmpty_Example1 () Dim K Som Boolean End Sub
Trinn 2: For denne variabelen tildeles verdien gjennom VBA ISEMPTY- funksjonen.
Kode:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (End Sub
Trinn 3: Uttrykk er ikke annet enn hva er cellen vi tester. Nå tester vi celle A1-celle .
Kode:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) End Sub
Trinn 4: Vis verdien av denne variabelen i VBA Msgbox .
Kode:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) MsgBox K End Sub
Kjør denne koden for å sjekke resultatet.
Siden det er en verdi i cellen A1, fikk vi resultatet som FALSE.
Nå vil jeg endre cellereferansen fra A1 til A5.
Kode:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A5"). Value) MsgBox K End Sub
Kjør denne koden for å se resultatet.
Vi fikk resultatet som SANT den refererte cellen A5 er faktisk tom celle, så vi fikk resultatet som “SANT”.
Nå skal jeg teste cellen A8.
Kode:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A8"). Value) MsgBox K End Sub
Kjør denne koden for å se resultatet.
Åh!!! Vent litt…
Vi fikk resultatet som FALSE, selv om det ikke er noen verdi i cellen A8.
Nå er spørsmålet om det er et feilresultat fra formelen "ISEMPTY" ?.
Nei … Absolutt nei !!!
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-funksjon, uten å bruke excel VBA ISEMPTY-funksjonen, kan vi faktisk teste cellen.
For eksempel, se koden nedenfor.
Kode:
Sub IsEmpty_Example3 () If Range ("B2"). Value = "" Then Range ("C2"). Value = "No Update" Else Range ("C2"). Value = "Collected Updates" End If End Sub
Linjen med kode Område (“B2 ″). Verdi =” ” betyr om celle B2-cellen er lik tom eller ikke.
Double Quotes (“”) representerer en tom celle eller ikke hvis det tomme resultatet er SANT eller ellers FALSE.
