Practica 30 Macros.xls
2
PRACTICA 30: MACROS Crea una macro que calcule la mensualidad de un préstamo, preguntando el capital princip nominal anual y el número de años. Utiliza un botón para lanzar la macro. El resultado de la práctica es: Sub prestamo() Static Principal 'Variable estática. No cambia Static Tasa Static Terminos Dim Pago As Double Principal = Application.InputBox(Prompt:="Principal (100000 por ejemplo)", _ Default:=Principal) Tasa = Application.InputBox(Prompt:="Tipo de interés nominal anual (4,75 por ejemplo Default:=Tasa) Terminos = Application.InputBox(Prompt:="Número de años (30 por ejemplo)", _ Default:=Terminos) 'Vea como se usa la función de Excel Pmt (Pago) sin necesidad de calcularla en una c Pago = Application.WorksheetFunction.Pmt(Tasa / 1200, Terminos * 12, Principal) MsgBox Prompt:="La Mensualidad es " & Format(-Pago, "Currency"), Title:="Calculadora End Sub
-
Upload
maximo-romero-aguilar -
Category
Documents
-
view
217 -
download
4
Transcript of Practica 30 Macros.xls
Hoja1PRACTICA 30: MACROSCrea una macro que calcule la mensualidad de un prstamo, preguntando el capital principal, el tipo de intersnominal anual y el nmero de aos.Utiliza un botn para lanzar la macro.El resultado de la prctica es:Sub prestamo()Static Principal 'Variable esttica. No cambiaStatic TasaStatic TerminosDim Pago As DoublePrincipal = Application.InputBox(Prompt:="Principal (100000 por ejemplo)", _Default:=Principal)Tasa = Application.InputBox(Prompt:="Tipo de inters nominal anual (4,75 por ejemplo)", _Default:=Tasa)Terminos = Application.InputBox(Prompt:="Nmero de aos (30 por ejemplo)", _Default:=Terminos)'Vea como se usa la funcin de Excel Pmt (Pago) sin necesidad de calcularla en una celdaPago = Application.WorksheetFunction.Pmt(Tasa / 1200, Terminos * 12, Principal)MsgBox Prompt:="La Mensualidad es " & Format(-Pago, "Currency"), Title:="Calculadora de Prstamos"End Sub
Lanzar MACRO
