En el presente ejemplo de Macros se utiliza un UserForm creado específicamente para estimar el pago total de intereses que se debe pagar por la compra de un artículo a cuotas. Este ejemplo es tan solo una simplificación de dicho cálculo que en la vida real incluye muchos más aspectos a tomar en cuenta.
Para empezar debemos abrir el Excel y seguir los pasos básicos:
- Habilitar la barra de Programador
- Cambiar el nivel de Seguridad
- Grabar el archivo como un libro de Excel habilitado para macros (formato xlsm)
Tomando en cuenta las tasas de interés del mercado local, las tasas que proponemos según número de cuotas son las siguientes:
- Tasa de interés total por 1 Cuota: 0%
- Tasa de interés total de 2 a 6 Cuotas: 50%
- Tasa de interés total de 7 a 12 Cuotas: 100%
- Tasa de interés total de 13 a 18 Cuotas: 200%
- Tasa de interés total de 19 a 24 Cuotas: 500%
- Tasa de interés de total 25 a más Cuotas: 50000%
Para empezar debemos crear el diseño del Userform el cual llamaremos “DERIPLEY” utilizando el cuadro de herramientas. El diseño final incluye 5 cuadros de texto, 1 botón de comando y 5 etiquetas.
Luego creamos el código de CommandButton1_Click
Definimos los inputs:
precioarticulo = Val(TextBox1.Text)
cuotas = Val(TextBox2.Text)
monto = Val(precioarticulo)
Definimos la tasa de interés en base a las cuotas
Select Case cuotas
Case 1: tasa = 0
Case 2 To 6: tasa = 0.5
Case 7 To 12: tasa = 1
Case 13 To 18: tasa = 2
Case 19 To 24: tasa = 5
Case 25 To 100000000: tasa = 500
End Select
Calculamos los intereses totales
intereses = tasa * precioarticulo
Calculamos el pago total
Total = monto + intereses
Definimos los outputs
TextBox3 = monto
TextBox4 = intereses
TextBox5 = Total
Con esto, el código queda como se muestra a continuación:
Por: Antonio Domínguez Prado