Saltar al contenido

Y, O, NO, SI NO en Excel VBA

Operadores lógicos de VBA: Y, O, NO

Operadores lógicos de Excel VBA

Supongamos que desea procesar un pedido de un cliente. Con ese fin, primero debe verificar si el producto pedido está allí o no. Si es así, también desea comprobar si la cantidad disponible es suficiente. Los operadores lógicos son útiles en tales casos. Los operadores lógicos se utilizan para evaluar más de una condición.

Los principales operadores lógicos de Excel VBA AND, OR, NO se enumeran en la siguiente tabla:

S / N.OperadorSuelteEjemploProducción
1YY: se utiliza para combinar más de una condición. Si todas las condiciones son verdaderas, Y se evalúa como verdadera. Si alguna parte de la condición es falsa Y la considera falsaSi es verdadero = verdadero Y falso = verdadero PEROfalso
2OO: Esto se usa para combinar más de una condición. Si alguna de las condiciones es verdadera, OR true devuelve. Si todos son falsos, devuelva O falsoSi verdadero = verdadero O verdadero = falso PEROcierto
3NONO: Esta funciona como una función inversa. Si la condición es verdadera, devuelve falso, y si una condición es falsa, devuelve verdadero.Si NO (verdadero) Entoncesfalso

Código fuente de muestra de operadores lógicos de VBA

Para simplificar, compararemos números codificados de forma rígida.

Agregue botones ActiveX a la hoja desde la «opción Insertar».

Establezca las propiedades como se muestra en la imagen a continuación

Operadores lógicos de VBA

La siguiente tabla muestra las propiedades que necesita cambiar y los valores que también necesita actualizar.

S / N.DisciplinaPropiedadValor
1CommandButton1NombrebtnAND
SubtitularOperador Y (0 = 0)
2CommandButton2NombrebtnOR
SubtitularO Operador (1 = 1) O (5 = 0)
3CommandButton3NombrebtnNOT
SubtitularNO Operador (0 =)

Agregue el siguiente código a btnAND_Click


Private Sub btnAND_Click()
    If (1 = 1) And (0 = 0) Then
            MsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"
        Else
            MsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"
    End If
End Sub

Operador VBA If AND

Agregue el siguiente código a btnOR_Click


Private Sub btnOR_Click()
    If (1 = 1) Or (5 = 0) Then
            MsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"
        Else
            MsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"
    End If
End Sub

Operador VBA If OR

Agregue el siguiente código a btnNOT_Click


Private Sub btnNOT_Click()
    If Not (0 = 0) Then
            MsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"
        Else
            MsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"
    End If
End Sub

VBA si NO es un operador

Descargue Excel que contiene el código anterior

Entradas relacionadas

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *