Not Equal es un operador en VBA que también se puede denominar como operador de negación, es una función lógica, por lo que la salida devuelta por esta función es verdadera o falsa, sabemos que el operador igual es "=" esto pero no igual es " ”En VBA, así que sea cual sea el valor que obtengamos del operador igual, obtendremos el valor exactamente opuesto utilizando el operador No igual.
Operador "no igual" en VBA
Por lo general, hacemos una prueba lógica "si algo es igual a otras cosas o no". En algunos casos, también necesitamos hacer la prueba de "desigualdad" . La prueba de desigualdad no es más que una prueba igual. Generalmente decimos si algo es igual a otra cosa o no, si es igual, realiza algún tipo de tarea si no diferente. Del mismo modo, utilizando el test de Desigualdad también podemos hacer algún tipo de operación. “NOT EQUAL” en VBA se representa mediante la combinación de símbolos mayor que y menor que. Si ambos operadores se combinan, entonces el símbolo no es igual, es decir, "."
¿Qué tan diferente funciona en Excel VBA?
VBA Not equal funciona exactamente opuesto a la lógica de igual a operador. Igual que el operador devuelve VERDADERO si la prueba proporcionada se satisface no, devolverá FALSO. Por ejemplo, si dice 10 = 10, devolverá VERDADERO o FALSO.
Por otro lado, "No es igual" funciona en la dirección opuesta. Si la prueba lógica proporcionada en Excel no es igual, solo devolverá VERDADERO o FALSO.
Por ejemplo, si dice 10 10, devolverá FALSO porque 10 es igual a 10. Para obtener un resultado VERDADERO, un valor no debe ser igual al otro valor.
Ejemplos de no igual a en Excel VBA
A continuación se muestran los ejemplos de no igual al operador en Excel VBA.
Ejemplo 1
Ahora veremos cómo usar el signo VBA Not Equal () de manera práctica. Mira el código a continuación.
Código:
Sub NotEqual_Example1 () Dim k As String k = 100100 MsgBox k End Sub
Aquí estamos probando si el número 100 no es igual al número 100. Por supuesto, sabemos que el número 100 es igual a 100, por lo que el resultado será FALSO.
Ahora cambiaré la ecuación.
Código:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Ahora la prueba es si el número 100 no es igual a 99. Entonces el resultado será VERDADERO.
Ejemplo # 2
Ahora veremos cómo usar este operador no igual en ejemplos en tiempo real. Para la demostración, he creado algunos datos.
Tenemos dos valores, "Valor 1" y "Valor 2".
Ahora mi requisito es que si el Valor 1 no es igual al Valor 2, entonces necesito el resultado como "Diferente" o, de lo contrario, necesito el resultado como "Igual".
Paso 1: Defina una variable como un entero.
Código:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Paso 2: Abra FOR NEXT LOOP de 2 a 9.
Código:
Sub NotEqual_Example2 () Dim k como entero para k = 2 a 9 Siguiente k End Sub
Paso 3: Dentro del ciclo, necesitamos probar si el valor 1 no es igual al valor 2. Como necesitamos nuestros propios resultados, necesitamos usar la condición 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 = "Mismo" Fin si siguiente k Fin Sub
Suponga que la condición comprueba si el valor 1 no es igual al valor 2 o no. Si no es igual, devolverá "Diferente". Si es igual, devolverá "Igual".
Puede copiar y pegar el siguiente código VBA.
Copie este código en su módulo y ejecútelo usando la tecla F5 o manualmente. Esto devolverá un resultado como este.
Ocultar y mostrar hojas sin signo igual
Las diversas formas de utilizar el canto no igual son enormes. Podemos utilizar este signo para satisfacer nuestras necesidades.
# 1 - Ocultar todas las hojas excepto una hoja
Hemos visto este tipo de situaciones muchas veces. Necesitábamos ocultar todas las hojas excepto la hoja en particular.
Por ejemplo, si desea ocultar todas las hojas excepto el nombre de la hoja "Datos del cliente", puede utilizar este código.
Código:
Sub Hide_All () Dim Ws como hoja de trabajo para cada W en ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub
# 2 - Mostrar todas las hojas excepto una hoja
Del mismo modo, también podemos mostrar todas las hojas excepto una hoja. Utilice el siguiente código para hacer esto.
Código:
Sub Unhide_All () Dim Ws como hoja de trabajo para cada W en ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Visible = xlSheetVisible End If Next Ws End Sub
Puede descargar esta plantilla de VBA no igual a Excel aquí: plantilla de operador VBA no igual.
