Operador VBA

Diferente é um operador em VBA que também pode ser denominado como um operador de negação, é uma função lógica, então a saída retornada por esta função é verdadeira ou falsa, sabemos que o operador igual é “=” isso, mas não igual é “ ”No VBA, portanto, qualquer que seja o valor obtido do operador igual, obteremos o valor oposto exato usando o operador Diferente

Operador “Diferente” em VBA

Normalmente, fazemos um teste lógico “se algo é igual a outra coisa ou não”. Em alguns casos, precisamos fazer o teste de “desigualdade” também. O teste de desigualdade nada mais é do que um teste de igualdade. Geralmente, dizemos se algo é igual a outra coisa ou não, se é igual realiza algum tipo de tarefa, senão tarefa diferente. Da mesma forma, usando o teste de desigualdade também podemos fazer algum tipo de operação. “NÃO É IGUAL” em VBA é representado pela combinação dos símbolos de maior e menor. Se ambos os operadores combinados, então o símbolo não é igual, ou seja, “” .

Como não é igual ao Works no Excel VBA?

O VBA diferente funciona exatamente oposto à lógica do operador igual. Igual ao operador retorna TRUE se o teste fornecido for satisfeito, mas não retornará FALSE. Por exemplo, se você disser 10 = 10, ele retornará TRUE ou FALSE.

Por outro lado, “Diferente” funciona na direção oposta, se o teste lógico fornecido no Excel não for igual, apenas retornará TRUE ou então FALSE.

Por exemplo, se você disser 10 10, ele retornará FALSO porque 10 é igual a 10. Para obter o resultado VERDADEIRO, um valor não deve ser igual ao outro valor.

Exemplos de diferente no Excel VBA

Abaixo estão os exemplos de não igual ao operador no Excel VBA.

Exemplo 1

Agora veremos como usar o sinal VBA Not Equal () de forma prática. Veja o código abaixo.

Código:

 Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub

Aqui estamos testando se o número 100 não é igual ao número 100. Com certeza sabemos que o número 100 é igual a 100, então o resultado será FALSO.

Agora vou mudar a equação.

Código:

 Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub

Agora o teste é se o número 100 não é igual a 99. Portanto, o resultado será VERDADEIRO.

Exemplo # 2

Agora veremos como usar esse operador diferente em exemplos em tempo real. Para a demonstração, criei alguns dados.

Temos dois valores, “Valor 1” e “Valor 2”.

Agora, meu requisito é se o Valor 1 não for igual ao Valor 2, então preciso do resultado como “Diferente” ou então preciso do resultado como “Mesmo”.

Etapa 1: defina uma variável como um inteiro.

Código:

 Sub NotEqual_Example2 () Dim k As Integer End Sub

Etapa 2: Abra FOR NEXT LOOP de 2 a 9.

Código:

 Sub NotEqual_Example2 () Dim k As Integer For k = 2 To 9 Next k End Sub

Etapa 3: dentro do loop, precisamos testar se o valor 1 não é igual ao valor 2. Como precisamos de nossos próprios resultados, precisamos usar a condição IF.

Código:

 Sub NotEqual_Example2 () Dim k As Integer For k = 2 To 9 If Cells (k, 1) Cells (k, 2) Then Cells (k, 3) .Value = "Different" Else Cells (k, 3) .Value = "Mesmo" End If Next k End Sub

A condição If testa se o valor 1 não é igual ao valor 2 ou não. Se não for igual, retornará “Diferente”, se for igual retornará “Mesmo”.

Você pode copiar e colar o código VBA abaixo.

Copie este código para o seu módulo e execute usando a tecla F5 ou manualmente. Isso retornará um resultado como este.

Ocultar e reexibir planilhas com sinal diferente

As várias maneiras de usar o canto diferente são enormes. Podemos usar este sinal para atender às nossas necessidades.

# 1 - Ocultar todas as folhas, exceto uma folha

Já vimos esse tipo de situação muitas vezes. Precisamos ocultar todas as folhas, exceto a folha em particular.

Por exemplo, se você deseja ocultar todas as planilhas, exceto o nome da planilha “Dados do cliente”, você pode usar este código.

Código:

 Sub Hide_All () Dim Ws As Planilha Para Cada Ws Em ActiveWorkbook.Worksheets If Ws.Name "Dados do Cliente" Then Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub

Observação: altere o nome da planilha para o nome da planilha.

Nº 2 - Reexibir todas as planilhas, exceto uma

Da mesma forma, também podemos reexibir todas as páginas, exceto uma página. Use o código abaixo para fazer isso.

Código:

 Sub Unhide_All () Dim Ws As Planilha Para Cada Ws Em ActiveWorkbook.Worksheets If Ws.Name "Dados do Cliente" Then Ws.Visible = xlSheetVisible End If Next Ws End Sub