IsEmpty on laskentataulukkofunktio, jota käytetään selvittämään, onko annettu soluviittaus tai solualue tyhjä vai ei, koska se on laskentataulukkofunktio, joten sen käyttämiseksi VBA: ssa käytämme Sovellusta. VBA: n laskentataulukomenetelmä tämän funktion käyttämiseksi, tämä funktio kuuluu funktion loogisten luetteloiden alle ja palauttaa arvon true, jos viite on tyhjä.
VBA on tyhjä -toiminto
VBA IsEmpty on looginen toiminto, joka testaa onko valittu tyhjä vai ei. Koska se on looginen toiminto, se palauttaa tulokset Boolen arvoina, ts. Joko TOSI tai EPÄTOSI.
Jos valittu solu on tyhjä, se palauttaa TOSI tai muuten FALSE.
Tässä artikkelissa näytämme, kuinka VBA: n ISEMPTY-funktiota käytetään solujen tarkistamiseen VBA-koodeilla.
Mitä ISEMPTY-toiminto tekee VBA: ssa?
Usein tyhjät solut turhauttavat meitä työskentelemään tehokkaasti laskentataulukossa. Tyhjien solujen löytäminen ei ole vaikeinta, mutta jos tyhjät solut piilottavat ne tietojen keskelle, niiden löytäminen vie veron.
Tyhjien solujen löytämiseksi excelistä meillä on funktio nimeltä "TYHJÄ" taulukkofunktiona, mutta VBA: ssa sitä kutsutaan "ISEMPTY".
Tämä toimii samalla tavalla kuin laskentataulukko-toiminto ”ISBLANK”. Katsokaa nyt alla olevaa "ISEMPTY" -funktion kaavaa.
Kuten voimme nähdä yllä olevasta kuvasta, se palauttaa tuloksen loogisena eli TOSI tai EPÄTOSI.
Esimerkkejä VBA: n ISEMPTY-toiminnosta
Seuraavassa on esimerkkejä IsEmptystä VBA: ssa.
Esimerkki 1
Nyt näemme ensimmäisen käytännön esimerkin ”ISEMPTY”. Katso tästä laskentataulukon alla oleva kuva.
Nyt testataan kaikki nämä Excel VBA ISEMPTY -toiminnolla.
Vaihe 1: Määritä muuttuja loogiseksi .
Koodi:
Sub IsEmpty_Example1 () Dim K Boolean End Sub
Vaihe 2: Määritä tälle muuttujalle arvo VBA ISEMPTY -toiminnon kautta.
Koodi:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (End Sub
Vaihe 3: Lauseke ei ole muuta kuin mikä on testattava solu. Nyt testaamme solun A1 solua .
Koodi:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Arvo) End Sub
Vaihe 4: Näytä tämän muuttujan arvo VBA Msgboxissa .
Koodi:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) MsgBox K End Sub
Suorita tämä koodi tuloksen tarkistamiseksi.
Koska solussa A1 on arvo, saimme tuloksen epätosi.
Nyt vaihdan soluviitteen A1: stä A5: ksi.
Koodi:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A5"). Value) MsgBox K End Sub
Suorita tämä koodi nähdäksesi tuloksen.
Saimme tuloksen TOSINA, viitattu solu A5 on itse asiassa tyhjä solu, joten saimme tuloksen nimellä TOSI.
Testaan nyt solun A8.
Koodi:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A8"). Value) MsgBox K End Sub
Suorita tämä koodi nähdäksesi tuloksen.
Vai niin!!! Pidä kiinni…
Saimme tuloksen epätosi, vaikka solussa A8 ei ole arvoa.
Kysymys on, onko se kaavan “ISEMPTY” virhe?
Ei … Ehdottomasti ei!
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
Meillä on vaihtoehto ISEMPTY-toiminnolle, soveltamatta Excelin VBA ISEMPTY -funktiota voimme todella testata solun.
Katso esimerkiksi alla oleva koodi.
Koodi:
Sub IsEmpty_Example3 () Jos alue ("B2"). Arvo = "" Sitten alue ("C2"). Arvo = "Ei päivitystä" muu alue ("C2"). Arvo = "Kerätyt päivitykset" Lopeta jos loppu ali
Koodirivin alue ("B2"). Arvo = " tarkoittaa, onko solun B2 solu tyhjä vai ei.
Kaksoislainausmerkit (“”) edustavat tyhjää solua vai eivät, jos tyhjä tulos on TOSI tai muuten EPÄTOSI.
