Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Costo Artículo

Ejemplo de Userform para Calcular el Costo Total de Un Artículo

| 0 comments

DERIPLEY

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

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5