Comparación de VBA Operators: No iguales, Less que o igual a

Ver cómo se aplica cada operador a dos variables facilita la predicción del resultado obtenido.

Código fuente de ejemplo

Comparación igualitaria Operator

If 2 = 1 Then
    MsgBox "True", vbOKOnly, "Equal Operator"
Else
    MsgBox "False", vbOKOnly, "Equal Operator"
End If

AQUÍ,

• “Si 2 = 1 Entonces… De lo contrario… Termina si” utiliza la declaración if para evaluar la condición "2 = 1"
• “MensajeBox... " Es una función incorporada que muestra un cuadro de mensaje.
  • El primer parámetro “Verdadero” o “Falso” es lo que se mostrará en el cuadro de mensaje. En nuestro ejemplo, 2 no es igual a 1, por lo tanto, se mostrará “falso” en el cuadro de mensaje.
  • El segundo parámetro “vbOKOnly” es el botón que se muestra en el cuadro de mensaje.
  • El tercer parámetro “Igual Opera“tor” es el título del cuadro de mensaje.

Al ejecutar el código anterior se obtienen los siguientes resultados

Esa única prueba es la forma más simple. Las macros reales combinan comparaciones y se ramifican entre varios resultados.

Cómo utilizar la comparación Operators en una instrucción If

Un operador de comparación rara vez resulta útil por sí solo. Su resultado (verdadero o falso) se introduce en una estructura de decisión, y la instrucción condicional (if) es la que más se utiliza. El siguiente ejemplo evalúa una puntuación almacenada en la celda A1 y muestra el resultado junto a ella.

Sub GradeScore()
    Dim Score As Long

    Score = Sheet1.Range("A1").Value

    If Score >= 90 Then
        Sheet1.Range("B1").Value = "Distinction"
    ElseIf Score >= 50 Then
        Sheet1.Range("B1").Value = "Pass"
    ElseIf Score < 0 Then
        MsgBox "A score cannot be negative", vbCritical, "Invalid Entry"
    Else
        Sheet1.Range("B1").Value = "Fail"
    End If
End Sub

La macro lee la puntuación una vez y luego la compara con tres condiciones en orden. Cuatro puntos explican por qué se comporta de esa manera.

• El orden importa: VBA se detiene en la primera rama que devuelve True. Colocando Puntuación >= 50 antes Puntuación >= 90 Calificaría cada puntuación alta como un aprobado.
• De lo contrario, es la opción comodín: Cualquier valor que no supere todas las pruebas anteriores pasa a la fase Else, por lo que ninguna entrada queda sin procesar.
• Sin encadenamiento: VBA no puede leer 0 <= Puntuación <= 100. Escribir Si Puntuación >= 0 Y Puntuación <= 100 Entonces mediante el operadores logicos .
• La misma prueba, otras estructuras: La misma condición rige los bucles Do While y Select Case, por lo que los operadores se transfieren a todos los bucles que escribas.

💡 Consejo: Declara la variable con un tipo numérico, como se muestra con Puntuación tenue durante mucho tiempo. Si el valor permanece como un texto de tipo Variant, “9” > “10” Devuelve True porque la comparación se realiza carácter por carácter.

Comparación de texto y fechas en VBA

Numbers Las comparaciones se realizan exactamente como lo indica la aritmética, pero el texto y las fechas siguen sus propias reglas, y ambos sorprenden a los principiantes.

Las cadenas se comparan carácter por carácter utilizando su posición de ordenación, por lo que “Apple” < “Banana” devuelve True. Por defecto, la comparación distingue entre mayúsculas y minúsculas, lo que significa que “guru99” = “Guru99” devuelve Falso. Colocando Opción Comparar texto En la parte superior del módulo, todas las comparaciones de cadenas en ese módulo ignoran las mayúsculas y minúsculas. Para una sola prueba sin modificar el módulo, utilice StrComp con el argumento vbTextCompare.

Las fechas se almacenan como números de serie contados desde el 30 de diciembre de 1899, por lo que se comparan directamente con los mismos seis operadores. Escritura Si Fecha de vencimiento < Fecha entonces Detecta correctamente los elementos vencidos, ya que Date devuelve la fecha actual del sistema como un número de serie. El único inconveniente es una fecha almacenada como texto: “01/02/2026”, leída de un archivo importado, es una cadena de texto, no una fecha, y se compara alfabéticamente. Conviértala con CDate antes de probarla.

Conocer las reglas de cada tipo elimina la mayoría de las sorpresas, pero aun así, algunos errores pueden pillar desprevenidos a los desarrolladores más experimentados.

Errores comunes al comparar valores en VBA

Los cinco problemas que se describen a continuación explican la mayoría de las comparaciones que arrojan un resultado inesperado.

• Asignación confundida con comparación: Fuera de una condición, x = 5 Almacena 5 en x. Dentro de If, ​​los mismos símbolos comprueban la igualdad. VBA no tiene un operador == independiente, así que lea el contexto con atención.
• Pruebas Double valores para igualdad exacta: La precisión almacenada significa que 0.1 + 0.2 = 0.3 devuelve Falso. Compare la diferencia redondeada en su lugar, por ejemplo. Si Abs(a – b) < 0.000001 Entonces.
• Comparar cualquier cosa con Nulo: Nulo no es igual a nada, ni siquiera a otro Nulo. Prueba con IsNull en lugar de = Nulo.
• Comparar un texto con un número: Una celda que contiene el texto "100" no es igual al número 100. Realice la conversión con CLng o CDbl antes de la prueba.
• Leer .Text en lugar de .Value: La propiedad .Text devuelve el texto que se muestra, el cual se trunca según el ancho de la columna y el formato. Siempre compare .Value.

Descargue el archivo Excel anterior. Code

Preguntas Frecuentes