Las declaraciones If, Else y ElseIf en VBA son herramientas básicas para la toma de decisiones en los programas. Le permiten evaluar condiciones y ejecutar diferentes bloques de código en función de los resultados de esas evaluaciones.
Instrucción If:
La declaración if le permite evaluar una condición y ejecutar un bloque de código solo si se cumple esa condición. La estructura básica es la siguiente:
If condicion Then
' Código a ejecutar si la condición es verdadera
Else
' Código a ejecutar si la condición es falsa
End If
Instrucción ElseIf:
La declaración ElseIf le permite agregar condiciones adicionales a una declaración If. Es como si en otro si. La estructura básica es la siguiente:
If condicion1 Then
' Código a ejecutar si la condicion1 es verdadera
ElseIf condicion2 Then
' Código a ejecutar si la condicion2 es verdadera
Else
' Código a ejecutar si ninguna de las condiciones es verdadera
End If
Ejemplo 1: Calcular la comisión de un vendedor:
Los vendedores recibirán una comisión del 10% si sus ventas son menores o iguales a $1000. Para ventas superiores a $1000, la comisión es del 15% sobre los primeros $1000 y del 20% sobre ventas superiores a $1000. Utilice las declaraciones If, ElseIf y Else para crear un código VBA que calcule las comisiones por ventas. lenguaje de programación
' Ingresar la cantidad de ventas
Dim ventas As Double
ventas = InputBox("Ingrese la cantidad de ventas: ")
' Calcular la comisión
Dim comision As Double
If ventas <= 1000 Then
comision = ventas * 0.1
Else
comision = 1000 * 0.15 ' Comisión sobre los primeros $1000
' Calcular comisión sobre el excedente
Dim excedente As Double
excedente = ventas - 1000
comision = comision + (excedente * 0.2)
End If
' Mostrar la comisión
MsgBox "La comisión del vendedor es de: $" & comision
Ejemplo 2: Asignar becas según el promedio de un estudiante:
Una universidad otorga becas según el promedio de calificaciones de sus estudiantes:
- Promedio mayor o igual a 90: Beca del 100%.
- Promedio entre 80 y 89: Beca del 50%.
- Promedio entre 70 y 79: Beca del 25%.
- Promedio menor a 70: No hay beca.
solicite el promedio de un estudiante y determine el tipo de beca que le corresponde, utilizando las instrucciones If, ElseIf y Else.
' Ingresar el promedio del estudiante
Dim promedio As Double
promedio = InputBox("Ingrese el promedio del estudiante: ")
' Determinar el tipo de beca
If promedio >= 90 Then
MsgBox "El estudiante recibe una beca del 100%."
ElseIf promedio >= 80 Then
MsgBox "El estudiante recibe una beca del 50%."
ElseIf promedio >= 70 Then
MsgBox "El estudiante recibe una beca del 25%."
Else
MsgBox "El estudiante no recibe beca."
End If
