„IsEmpty“ yra darbalapio funkcija, naudojama norint išsiaiškinti, ar tam tikra langelio nuoroda, ar langelių diapazonas yra tuščias, nes tai yra darbalapio funkcija, todėl norint ją naudoti VBA, naudojame „Application“. Darbo lapo metodas VBA naudoti šią funkciją, ši funkcija patenka į loginius funkcijos sąrašus ir grąžina true, jei nuoroda tuščia.
VBA IsEpty funkcija
„VBA IsEmpty“ yra loginė funkcija, tikrinanti, ar pasirinkta tuščia, ar ne. Kadangi tai logiška funkcija, rezultatai bus grąžinti į logines reikšmes, ty TRUE arba FALSE.
Jei pasirinktas langelis tuščias, jis pateiks TRUE arba kitaip jis bus NETIESA.
Šiame straipsnyje mes parodysime, kaip naudoti „ISEMPTY“ funkciją VBA, norint patikrinti langelius naudojant VBA kodus.
Ką VEME veikia „ISEMPTY“ funkcija?
Dažnai tuščios langelės trukdo efektyviai dirbti darbalapyje. Rasti tuščias langelius nėra sunkiausia, bet jei tuščios langelės slepia juos duomenų viduryje, juos surasti reikia daug.
Norėdami rasti „Excel“ tuščius langelius, mes turime funkciją, vadinamą „ISBLANK“, kaip darbalapio funkciją, tačiau VBA ji vadinama „ISEMPTY“.
Tai veikia panašiai kaip darbalapio funkcija „ISBLANK“. Dabar pažvelkite į žemiau pateiktą funkcijos „ISEMPTY“ formulę.
Kaip matome aukščiau esančiame paveikslėlyje, rezultatas pateikiamas kaip Bulio logika, ty TIESA arba NETIESA.
ISEMPTY funkcijos VBA pavyzdžiai
Toliau pateikiami „IsEmpty“ pavyzdžiai VBA.
1 pavyzdys
Dabar pamatysime pirmąjį „ISEMPTY“ praktinį pavyzdį. Tam pažvelkite į žemiau esantį darbalapio vaizdą.
Dabar visa tai išbandysime „Excel VBA ISEMPTY“ funkcija.
1 žingsnis: Apibrėžkite kintamąjį kaip loginę reikšmę .
Kodas:
Sub IsEmpty_Pavyzdys1 () Dim K Kaip Bulio logo pabaigos antrinis
2 žingsnis: Šiam kintamajam priskirkite vertę per funkciją VBA ISEMPTY .
Kodas:
Sub IsEmpty_Example1 () Dim K kaip Boolean K = IsEmpty (End Sub
3 žingsnis: Išraiška yra ne kas kita, o tai, kokia yra ląstelė, kurią bandome. Dabar mes bandome langelį A1 .
Kodas:
Sub IsEmpty_Example1 () Dim K Kaip Boolean K = IsEmpty (Range ("A1"). Reikšmė) End Sub
4 žingsnis: parodykite šio kintamojo vertę „VBA Msgbox“ .
Kodas:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Reikšmė) MsgBox K End Sub
Paleiskite šį kodą, kad patikrintumėte rezultatą.
Kadangi langelyje A1 yra reikšmė, rezultatas gautas kaip NETIESA.
Dabar pakeisiu langelio nuorodą iš A1 į A5.
Kodas:
Sub IsEmpty_Example1 () Dim K Kaip Boolean K = IsEmpty (Range ("A5"). Reikšmė) MsgBox K End Sub
Paleiskite šį kodą, kad pamatytumėte rezultatą.
Rezultatą gavome kaip TRUE, nurodytas langelis A5 iš tikrųjų yra tuščias langelis, todėl rezultatą gavome kaip „TRUE“.
Dabar išbandysiu langelį A8.
Kodas:
Sub IsEmpty_Example1 () Dim K Kaip Boolean K = IsEmpty (Range ("A8"). Reikšmė) MsgBox K End Sub
Paleiskite šį kodą, kad pamatytumėte rezultatą.
Oi!!! Palauk…
Rezultatą gavome kaip NETIKRĄ, nors langelyje A8 vertės nėra.
Dabar kyla klausimas, ar tai klaida dėl formulės „ISEMPTY“ ?.
Ne … Visiškai ne !!!
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
Mes turime alternatyvą funkcijai ISEMPTY, netaikydami „Excel VBA ISEMPTY“ funkcijos, iš tikrųjų galime patikrinti langelį.
Pavyzdžiui, pažvelkite į žemiau pateiktą kodą.
Kodas:
Sub IsEmpty_Example3 () Jei diapazonas ("B2"). Reikšmė = "" Tada diapazonas ("C2"). Reikšmė = "Nėra atnaujinimo" kito diapazono ("C2"). Reikšmė = "Surinkti naujiniai" Pabaiga, jei baigiasi antrinis
Kodo diapazono eilutė („B2 ″). Reikšmė =“ reiškia, ar langelio B2 langelis yra lygus tuščiam, ar ne.
Dvigubos kabutės („“) reiškia tuščią langelį arba ne, jei tuščias rezultatas yra TIKRA arba netiesa.
