IsEmpty е функция на работен лист, която се използва, за да се установи дали дадена препратка към клетка или диапазон от клетки са празни или не, тъй като това е функция на работен лист, така че за да я използваме във VBA, използваме Application Метод на работен лист във VBA, за да използва тази функция, тази функция попада под логическите списъци на функцията и връща true, ако препратката е празна.
Функция VBA IsEmpty
VBA IsEmpty е логическа функция, която тества дали избраното е празно или не. Тъй като това е логическа функция, тя ще върне резултатите в булеви стойности, т.е. TRUE или FALSE.
Ако избраната клетка е празна, тя ще върне TRUE или ще върне FALSE.
В тази статия ще ви покажем как да използвате функцията “ISEMPTY” във VBA, за да проверите клетките, използвайки VBA кодове.
Какво прави функцията ISEMPTY във VBA?
Често празните клетки ни пречат да работим ефективно в работния лист. Намирането на празните клетки не е най-трудното, но ако празните клетки ги крият в средата на данните, отнема такса, за да ги намерите.
За да намерим празните клетки в Excel имаме функцията, наречена “ISBLANK” като функция на работния лист, но във VBA тя се нарича “ISEMPTY”.
Това работи подобно на функцията на работния лист „ISBLANK“. Сега разгледайте формулата по-долу на функцията “ISEMPTY”.
Както можем да видим в горното изображение, той връща резултата като булева стойност, т.е. TRUE или FALSE.
Примери за функция ISEMPTY във VBA
По-долу са примерите за IsEmpty във VBA.
Пример # 1
Сега ще видим първия практически пример за “ISEMPTY”. За това разгледайте изображението по-долу на работния лист.
Сега ще приложим функцията excel VBA ISEMPTY, за да тестваме всичко това.
Стъпка 1: Дефинирайте променливата като булева .
Код:
Sub IsEmpty_Example1 () Dim K As Boolean End Sub
Стъпка 2: За тази променлива задайте стойността чрез функцията VBA ISEMPTY .
Код:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (End Sub
Стъпка 3: Изразът не е нищо друго, освен каква е клетката, която тестваме. Сега тестваме клетка А1 клетка .
Код:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) End Sub
Стъпка 4: Покажете стойността на тази променлива в VBA Msgbox .
Код:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) MsgBox K End Sub
Изпълнете този код, за да проверите резултата.
Тъй като в клетка A1 има стойност, ние получихме резултата като FALSE.
Сега ще сменя референцията на клетката от A1 на A5.
Код:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A5"). Value) MsgBox K End Sub
Изпълнете този код, за да видите резултата.
Получихме резултата като TRUE референтната клетка A5 всъщност е празна клетка, така че получихме резултата като „TRUE“.
Сега ще тествам клетката A8.
Код:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A8"). Value) MsgBox K End Sub
Изпълнете този код, за да видите резултата.
О !!! Дръж се …
Получихме резултата като FALSE, въпреки че в клетката A8 няма стойност.
Сега въпросът е дали резултатът е грешка от формулата “ISEMPTY” ?.
Не … Абсолютно не !!!
Когато се опитах да изследвам клетката A8, всъщност в нея има интервал, който не е лесно да се види с голи очи.
Така че заключението е дори, че Space се счита за герой в Excel и език VBA.
Пример # 2 - Комбинация от VBA ISEMPTY с IF условие
Всъщност реалното използване на функцията “ISEMPTY” е възхитително, когато я използваме с други логически функции.
Особено когато го използваме при условие IF, можем да извлечем много полезни резултати от него.
За тази демонстрация разгледайте примера по-долу.
В графата Статус, ако графата „PF Status“ е празна, се нуждаем от стойността като „No Update“, а ако има някаква стойност, се нуждаем от стойностите като „Collected Updates“.
Не забравяйте, че тук не се нуждаем от резултата по подразбиране TRUE или FALSE. Тук се нуждаем от собствени резултати, за да имаме собствени резултати, трябва да използваме Excel VBA ISEMPTY с условие IF.
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
Имаме алтернатива на функцията ISEMPTY, без да прилагаме функцията excel VBA ISEMPTY, всъщност можем да тестваме клетката.
За пример вижте кода по-долу.
Код:
Sub IsEmpty_Example3 () If Range ("B2"). Value = "" Тогава Range ("C2"). Value = "No Update" Else Range ("C2"). Value = "Collected Updates" End If End Sub
Редът на кодовия диапазон („B2 ″). Стойност =” „ означава дали клетката B2 клетка е равна на празна или не.
Двойни кавички (“”) представлява празна клетка или не, ако празният резултат е TRUE или FALSE.
