Las declaraciones If, And y Or son herramientas VBA importantes para controlar el flujo de código. Al combinarlos correctamente, puede crear condiciones complejas que le permitan tomar las decisiones correctas en el programa.
Instrucción If:
La instrucción If te permite evaluar una condición y ejecutar un bloque de código solo si esa condición se cumple. La estructura básica es:
If condición Then
' Código a ejecutar si la condición es verdadera
Else
' Código a ejecutar si la condición es falsa
End If
Operadores And y Or:
Los operadores And y Or te permiten combinar dos o más condiciones en una sola expresión.
- And: Se cumple la condición si todas las condiciones individuales son verdaderas.
If condicion1 And condicion2 Then
' Ambas condiciones deben ser verdaderas
End If
- Or: Se cumple la condición si al menos una de las condiciones individuales es verdadera.
If condicion1 Or condicion2 Then
' Solo una de las condiciones debe ser verdadera
End If
Ejercicios:
1. Calcular la calificación final de un estudiante:
Un estudiante aprueba un curso si obtiene una calificación mayor o igual a 70 en el examen y una calificación mayor o igual a 60 en el trabajo final. Crea un código VBA que calcule la calificación final y determine si el estudiante aprueba o no, utilizando las instrucciones If, And y Or.
' Ingresar las calificaciones del examen y trabajo final
Dim notaExamen As Integer
Dim notaTrabajoFinal As Integer
notaExamen = InputBox("Ingrese la calificación del examen: ")
notaTrabajoFinal = InputBox("Ingrese la calificación del trabajo final: ")
' Calcular la calificación final
Dim calificacionFinal As Integer
calificacionFinal = (notaExamen * 0.6) + (notaTrabajoFinal * 0.4)
' Determinar si el estudiante aprueba
If calificacionFinal >= 70 And notaExamen >= 60 Then
MsgBox "El estudiante aprueba el curso con una calificación final de: " & calificacionFinal
Else
MsgBox "El estudiante no aprueba el curso. Calificación final: " & calificacionFinal
End If
2. Validar la edad para ingresar a un club:
Un club permite la entrada a personas mayores de 18 años o a personas menores de 16 años acompañadas por un adulto. Crea un código VBA que solicite la edad del usuario y determine si puede ingresar al club, utilizando las instrucciones If, And y Or.
' Ingresar la edad del usuario
Dim edadUsuario As Integer
edadUsuario = InputBox("Ingrese su edad: ")
' Determinar si el usuario puede ingresar
If edadUsuario >= 18 Then
MsgBox "Bienvenido al club. ¡Disfrute su estancia!"
ElseIf edadUsuario < 16 And InputBox("¿Viene acompañado por un adulto? (S/N): ").ToUpper <> "S" Then
MsgBox "Lo sentimos, no se permite la entrada a menores de 16 años sin un adulto."
Else
MsgBox "Bienvenido al club. ¡Que pases un rato genial!"
End If
3. Clasificar un triángulo según sus lados:
Un triángulo se clasifica según la longitud de sus lados:
- Equilátero: Los tres lados tienen la misma longitud.
- Isósceles: Dos lados tienen la misma longitud.
- Escaleno: Los tres lados tienen longitudes diferentes.
Crea un código VBA que solicite la longitud de los tres lados de un triángulo y determine su clasificación, utilizando las instrucciones If, And y Or.
' Ingresar la longitud de los lados del triángulo
Dim lado1 As Integer
Dim lado2 As Integer
Dim lado3 As Integer
lado1 = InputBox("Ingrese la longitud del lado 1: ")
lado2 = InputBox("Ingrese la longitud del lado 2: ")
lado3 = InputBox("Ingrese la longitud del lado 3: ")
' Clasificar el triángulo
If lado1 = lado2 And lado2 = lado3 Then
MsgBox "El triángulo es equilátero."
ElseIf lado1 = lado2 Or lado1 = lado3 Or lado2 = lado3 Then
MsgBox "El triángulo es isósceles."
Else
MsgBox "El triángulo es escaleno."
End If
