Ejercicios con la Función If y Else de VBA

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

Condicionales If, Else, Select Case

• Uso de IF, AND, OR y Else
• Usando el Select Case