IsEmpty é uma função de planilha que é usada para descobrir se uma determinada referência de célula ou um intervalo de células estão vazios ou não, já que é uma função de planilha, para usá-la no VBA, usamos Application. Método de planilha em VBA para usar esta função, esta função vem nas listas lógicas de função e retorna verdadeiro se a referência estiver vazia.
Função VBA IsEmpty
VBA IsEmpty é uma função lógica que testa se o selecionado está vazio ou não. Por ser uma função lógica, ela retornará os resultados em valores booleanos, ou seja, TRUE ou FALSE.
Se a célula selecionada estiver vazia retornará TRUE ou então retornará FALSE.
Neste artigo, mostraremos como usar a função “ISEMPTY” no VBA para verificar as células usando códigos VBA.
O que a função ISEMPTY faz no VBA?
Freqüentemente, as células vazias nos frustram para trabalhar de forma eficiente na planilha. Encontrar as células em branco não é o mais difícil, mas se as células vazias as estiverem ocultando no meio dos dados, será difícil encontrá-las.
Para encontrar as células vazias no Excel, temos a função chamada “ISBLANK” como função de planilha, mas em VBA é chamada “ISEMPTY”.
Isso funciona de forma semelhante à função de planilha “ISBLANK”. Agora dê uma olhada na fórmula abaixo da função “ISEMPTY”.
Como podemos ver na imagem acima, ele retorna o resultado como Booleano, ou seja, TRUE ou FALSE.
Exemplos de função ISEMPTY em VBA
A seguir estão os exemplos de IsEmpty em VBA.
Exemplo 1
Agora veremos o primeiro exemplo prático de “ISEMPTY”. Para isso, dê uma olhada na imagem abaixo da planilha.
Agora vamos aplicar a função Excel VBA ISEMPTY para testar tudo isso.
Etapa 1: defina a variável como booleana .
Código:
Sub IsEmpty_Example1 () Dim K As Boolean End Sub
Passo 2: Para esta variável atribua o valor através da função VBA ISEMPTY .
Código:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (End Sub
Etapa 3: a expressão nada mais é do que a célula que estamos testando. Agora estamos testando a célula A1 .
Código:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) End Sub
Etapa 4: Mostre o valor desta variável na caixa de mensagem do VBA .
Código:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) MsgBox K End Sub
Execute este código para verificar o resultado.
Como existe um valor na célula A1, obtemos o resultado como FALSO.
Agora vou mudar a referência da célula de A1 para A5.
Código:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A5"). Value) MsgBox K End Sub
Execute este código para ver o resultado.
Obtivemos o resultado como TRUE, a célula referenciada A5 é na verdade uma célula vazia, então obtivemos o resultado como “TRUE”.
Agora vou testar o celular A8.
Código:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A8"). Value) MsgBox K End Sub
Execute este código para ver o resultado.
Oh !!! Aguente…
Obtivemos o resultado como FALSO, embora não haja nenhum valor na célula A8.
Agora a questão é um resultado de erro da fórmula “ISEMPTY” ?.
Não… Absolutamente não !!!
Quando tentei examinar a célula A8, na verdade, havia um caractere de espaço dentro da célula que não é fácil de ver a olho nu.
Portanto, a conclusão é que mesmo o Espaço é considerado um personagem no Excel e na linguagem VBA.
Exemplo # 2 - Combinação de VBA ISEMPTY com condição IF
Na verdade, o uso real da função “ISEMPTY” é admirável quando a usamos com outras funções lógicas.
Especialmente quando o usamos com a condição IF, podemos derivar muitos resultados úteis a partir dele.
Para esta demonstração, dê uma olhada no exemplo abaixo.
Na coluna Status, se a coluna “PF Status” estiver vazia, precisamos do valor “No Update” e, se houver algum valor, precisamos dos valores “Collected Updates”.
Lembre-se de que não precisamos do resultado padrão TRUE ou FALSE. Precisamos de nossos próprios resultados aqui; para ter nossos próprios resultados, precisamos usar o Excel VBA ISEMPTY com condição 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
Temos uma alternativa à função ISEMPTY, sem aplicar a função Excel VBA ISEMPTY, podemos realmente testar a célula.
Por exemplo, veja o código abaixo.
Código:
Sub IsEmpty_Example3 () If Range ("B2"). Value = "" Then Range ("C2"). Value = "Sem atualização" Else Range ("C2"). Value = "Collected Updates" End If End Sub
A linha do código Range (“B2 ″). Value =” ” significa se a célula da célula B2 é igual a vazia ou não.
Aspas duplas (“”) representam uma célula vazia ou não se o resultado vazio for TRUE ou então FALSE.
