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 é “=” isto, mas diferente é “ ”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 outras coisas 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” no VBA é representado pela combinação dos símbolos maior e menor. Se esses dois operadores combinados, ele se torna o símbolo diferente, 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, não retornará FALSE. Por exemplo, se você disser 10 = 10, ele retornará TRUE ou FALSE.
Por outro lado, “Not Equal” funciona na direção oposta. Se o teste lógico fornecido no Excel não for igual, apenas ele retornará TRUE ou então FALSE.
Por exemplo, se você disser 10 10, ele retornará FALSO porque 10 é igual a 10. Para obter um resultado VERDADEIRO, um valor não deve ser igual ao outro valor.
Exemplos de diferente no Excel VBA
Abaixo estão os exemplos de diferente do 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 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 a 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
Suponha que a condição teste se o valor 1 não é igual ao valor 2 ou não. Se não for igual, ele retornará "Diferente". Se for igual, ele 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 específica.
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 Worksheet Para Cada Ws In ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub
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
Você pode baixar este modelo VBA diferente do Excel aqui - Modelo VBA diferente do operador.
