ИсЕмпти је функција радног листа која се користи да би се утврдило да ли је дата референца на ћелију или опсег ћелија празна или не, с обзиром да је функција радног листа, па за њену употребу у ВБА користимо апликацију. Метода радног листа у ВБА да би користила ову функцију, она долази под логичке листе функција и враћа труе ако је референца празна.
Испразна функција ВБА
ВБА ИсЕмпти је логичка функција која испитује да ли је изабрано празно или не. Будући да је то логичка функција, вратит ће резултате у логичким вриједностима, тј. ТРУЕ или ФАЛСЕ.
Ако је изабрана ћелија празна, вратиће ТРУЕ или ће вратити ФАЛСЕ.
У овом чланку ћемо вам показати како да користите функцију „ИСЕМПТИ“ у ВБА за проверу ћелија помоћу ВБА кодова.
Шта функција ИСЕМПТИ ради у ВБА?
Често нас празне ћелије фрустрирају због ефикасног рада на радном листу. Проналажење празних ћелија није најтеже, али ако их празне ћелије крију усред података, потребно је наплатити данак.
Да бисмо пронашли празне ћелије у екцелу, имамо функцију која се назива „ИСБЛАНК“ као функцију радног листа, али у ВБА се зове „ИСЕМПТИ“.
Ово ради слично функцији радног листа „ИСБЛАНК“. Сада погледајте доњу формулу функције „ИСЕМПТИ“.
Као што видимо на горњој слици, резултат се враћа као логичка вредност, тј. ТРУЕ или ФАЛСЕ.
Примери ИСЕМПТИ функције у ВБА
Следе примери ИсЕмпти у ВБА.
Пример # 1
Сада ћемо видети први практични пример „ИСЕМПТИ“. За ово погледајте доњу слику радног листа.
Сада ћемо применити екцел ВБА ИСЕМПТИ функцију да тестирамо све ово.
Корак 1: Дефинишите променљиву као логичку вредност .
Шифра:
Суб ИсЕмпти_Екампле1 () Дим К Као логички крај Суб
Корак 2: За ову променљиву доделите вредност помоћу функције ВБА ИСЕМПТИ .
Шифра:
Суб ИсЕмпти_Екампле1 () Дим К Ас Боолеан К = ИсЕмпти (Енд Суб
Корак 3: Изражавање није ништа друго до шта је ћелија коју тестирамо. Сада тестирамо ћелију А1 ћелије .
Шифра:
Суб ИсЕмпти_Екампле1 () Дим К Ас Боолеан К = ИсЕмпти (Ранге ("А1"). Валуе) Енд Суб
Корак 4: Прикажите вредност ове променљиве у ВБА Мсгбок .
Шифра:
Суб ИсЕмпти_Екампле1 () Дим К Ас Боолеан К = ИсЕмпти (Ранге ("А1"). Валуе) МсгБок К Енд Суб
Покрените овај код да бисте проверили резултат.
Пошто у ћелији А1 постоји вредност, резултат смо добили као ФАЛСЕ.
Сада ћу променити референцу на ћелију са А1 на А5.
Шифра:
Суб ИсЕмпти_Екампле1 () Дим К Ас Боолеан К = ИсЕмпти (Ранге ("А5"). Валуе) МсгБок К Енд Суб
Покрените овај код да бисте видели резултат.
Резултат смо добили као ТАЧНО, референцирана ћелија А5 је заправо празна ћелија, па смо резултат добили као „ТРУЕ“.
Сада ћу тестирати ћелију А8.
Шифра:
Суб ИсЕмпти_Екампле1 () Дим К Ас Боолеан К = ИсЕмпти (Ранге ("А8"). Валуе) МсгБок К Енд Суб
Покрените овај код да бисте видели резултат.
Ох !!! Држи се…
Резултат смо добили ФАЛСЕ иако у ћелији А8 нема вредности.
Сад се поставља питање да ли је грешка резултат формуле „ИСЕМПТИ“ ?.
Не … Апсолутно не !!!
Када сам покушао да прегледам ћелију А8, у ћелији се заправо налази размак који није лако видети голим очима.
Дакле, закључак је чак да се Спаце сматра ликом у екцелу и ВБА језику.
Пример # 2 - Комбинација ВБА ИСЕМПТИ са ИФ стањем
Заправо, стварно коришћење функције „ИСЕМПТИ“ је дивљење када је користимо са другим логичким функцијама.
Нарочито када га користимо са ИФ условом, из њега можемо извући многе корисне резултате.
За ову демонстрацију погледајте доњи пример.
Ако је колона „ПФ Статус“ празна, у колони Статус потребна нам је вредност „Нема ажурирања“, а ако постоји било која вредност, требају нам вредности као „Сакупљене исправке“.
Запамтите да нам овде није потребан подразумевани резултат ТРУЕ или ФАЛСЕ. Овде су нам потребни сопствени резултати, да бисмо имали сопствене резултате морамо користити Екцел ВБА ИСЕМПТИ са ИФ условом.
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
Имамо алтернативу ИСЕМПТИ функцији, без примене екцел ВБА ИСЕМПТИ функције можемо стварно тестирати ћелију.
За пример погледајте доњи код.
Шифра:
Суб ИсЕмпти_Екампле3 () Ако опсег ("Б2"). Валуе = "" Затим опсег ("Ц2"). Валуе = "Нема ажурирања" Остали опсег ("Ц2"). Валуе = "Прикупљена ажурирања" Крај ако заврши Суб
Редак опсега кода („Б2 ″). Вредност =“ „ значи да ли је ћелија Б2 ћелија једнака празној или не.
Двоструке наводнике („”) представљају празну ћелију или не, ако је празан резултат ТРУЕ или иначе ФАЛСЕ.
