Calculadora de préstamos en Excel VBA

Buenas, me llamo Miguel y hoy os traigo un nuevo post.

Esta página le enseña cómo crear un sencillo calculadora de préstamo dentro Excel VBA. La hoja de trabajo contiene los siguientes controles ActiveX: dos barras de desplazamiento y dos botones de opción.

Calculadora de préstamos en Excel VBA

Nota: Las siguientes instrucciones no le enseñan cómo formatear la hoja de trabajo. Suponga que sabe cómo cambiar fuentes, insertar filas y columnas, agregar bordes, cambiar colores de fondo y más.

Siga estos pasos para crear la calculadora de préstamos:

1. Agregue los dos controles de la barra de desplazamiento. Haga clic en Insertar en la pestaña Desarrollador y luego haga clic en Barra de desplazamiento en la sección Controles ActiveX.

Crear barras de desplazamiento

2. Agregue los dos botones de radio. Haga clic en Insertar en la pestaña Desarrollador y luego haga clic en el botón Opción en la sección Controles ActiveX.

Crear botones de radio

Cambie las siguientes propiedades de los controles de la barra de desplazamiento (asegúrese de que el Modo de diseño esté seleccionado).

3. Haga clic con el botón derecho en el primer control de la barra de desplazamiento y luego haga clic en Propiedades. Establezca Min en 0, Max en 20, SmallChange en 0 y LargeChange en 2.

4. Haga clic con el botón derecho en el segundo control de la barra de desplazamiento y luego haga clic en Propiedades. Establezca Min en 5, Max en 30, SmallChange en 1, LargeChange en 5 y LinkedCell en F8.

Explicación: Cuando hace clic en la flecha, el valor de la barra de desplazamiento sube o baja en SmallChange. Cuando hace clic entre el control deslizante y la flecha, el valor de la barra de desplazamiento sube o baja en LargeChange.

Cree un evento de cambio de hoja de trabajo. Excel VBA ejecutará el código agregado al evento de cambio de la hoja de trabajo cuando cambie una celda en una hoja de trabajo.

5. Abra el Editor de Visual Basic.

6. Haga doble clic en Sheet1 en el Explorador de hojas.

7. Elija Hoja de trabajo en la lista desplegable de la izquierda y elija Cambiar en la lista desplegable de la derecha.

Evento de cambio de hoja de trabajo en Excel VBA

8. El evento de cambio de la hoja de trabajo escucha todos los cambios en Sheet1. Solo queremos que Excel VBA ejecute el cálculo secundario si algo cambia en la celda D4. Para lograr esto, agregue la siguiente línea de código al evento de cambio de la hoja de trabajo (más información en el sub Calcular a continuación).

Target.Address = "$ D $ 4" Entonces Solicitud. Ejecute "Calcular"

9. Obtiene el porcentaje correcto en la celda F6 (cambia el formato de la celda F6 a porcentaje). Haga clic con el botón derecho en el primer control de la barra de desplazamiento y luego haga clic en Ver código. Agregue las siguientes líneas de código:

Privado Sub ScrollBar1_Change ()

Rango ("F6"). Valor = Barra de desplazamiento1.Valor / 100
Solicitud. Ejecute "Calcular"

Aleta Sub

10. Haga clic con el botón derecho en el segundo control de la barra de desplazamiento y luego haga clic en Ver código. Agregue la siguiente línea de código:

Privado Sub ScrollBar2_Change ()

Solicitud. Ejecute "Calcular"

Aleta Sub

11. Haga clic con el botón derecho en el primer control de botón de opción y luego haga clic en Ver código. Agregue la siguiente línea de código:

Privado Sub OptionButton1_Click ()

OptionButton1.Value = Cierto Entonces Intervalo ("C12"). Valor = "Pago mensual"
Solicitud. Ejecute "Calcular"

Aleta Sub

12. Haga clic con el botón derecho en el control en el segundo botón de radio y luego haga clic en Ver código. Agregue la siguiente línea de código:

Privado Sub OptionButton2_Click ()

OptionButton2.Value = Cierto Entonces Intervalo ("C12"). Valor = "Pago anual"
Solicitud. Ejecute "Calcular"

Aleta Sub

13. Es hora de crear el sub. Puede consultar nuestro Subcapítulo Función y para obtener más información sobre los subs. Si tiene prisa, simplemente coloque el sub llamado Calcular en un módulo (en el Editor de Visual Basic, haga clic en Insertar, módulo).

Sub Calcular ()

Oscuro préstamo Cómo Largo, Velocidad Cómo Doble, nper Cómo Entero

préstamo = Rango ("D4"). Valor
tasa = Rango ("F6"). Valor
nper = Rango ("F8"). Valor

Folla1.OptionButton1.Value = Cierto Entonces

tasa = tasa / 12
nper = nper * 12
Aleta

Rango ("D12"). Valor = -1 * WorksheetFunction.Pmt (tasa, nper, préstamo)

Aleta Sub

Explicación: El sub obtiene los parámetros correctos para la función de la hoja de trabajo Pmt. La función PMT en Excel calcula los pagos de un préstamo en base a pagos constantes y una tasa de interés constante. Si realiza pagos mensuales (Sheet1.OptionButton1.Value = True), Excel VBA usa la tasa / 12 para la tasa y nper * 12 para nper (número total de pagos). El resultado es un número negativo, porque los pagos se consideran débito. Multiplicar el resultado por -1 da un resultado positivo.

Resultado de la calculadora de préstamos

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info