Ejemplo de uso de IF then else (VBA)

La instrucción If Then Else es una estructura condicional que nos permite ejecutar acciones en función de si se cumple una condición . Generalizando tenemos tenemos: If cumple condición Then ejecutar acción 1 Else ejecutar acción 2.

Dentro de esta estructura puede haber otra estructura condicional y dentro de esta otra, y así sucesivamente. A esto se le conoce como  una Estructura If anidada. A continuación veremos un ejemplo de una estructura If Then Else:

En VBA de MS.Excel escribimos el siguiente procedimiento para determinar que porcentaje de descuento se le realiza a una compra dependiendo del monto de compra; y de esta manera obtener el monto final a pagar. Si el monto de compras es mayor a s/. 10,000.00 entonces se le aplica un descuento de 10%, caso contrario se le aplica un descuento de 5%:

Sub COBRANZA()
MONTO = Worksheets("HOJA1").Range("B1").Value

If MONTO > 10000 Then
DESCUENTO = 0.1 * MONTO
Else
DESCUENTO = 0.05 * MONTO
End If

MONTO_F = MONTO - DESCUENTO
Worksheets("HOJA1").Range("B2").Value = DESCUENTO
Worksheets("HOJA1").Range("B3").Value = MONTO_F

End Sub

Elaborado por: Juan Carlos Castillo