CONVERSIÓN DE TASAS DE INTERÉS EFECTIVAS

Insertamos un módulo en el VBAProject (PERSONAL.XLSB)

Si deseamos que la UDF este disponible para emplearse en cualquier Libro.

Insertamos un módulo en el VBAProject del Libro en Uso

Si deseamos que la UDF este disponible únicamente para emplearse en un libro en especifico. Para identificarlo este lleva el mismo nombre del archivo y una vez que se escriba el código, el archivo debe guardarse como Libro de Excel habilitado para macros.

Copiamos el siguiente código:

Function TasaE·DeA(Tasa As Double, De As Double, A As Double) As Double

TasaE·DeA = (1 + Tasa) ^ (De / A) - 1

End Function

Private Sub TE()

Dim NF As String, DF As String, Ctgr As String, DA() As String

ReDim DA(1 To 3)

NF = "TasaE·DeA"

DF = "Convierte un tasa de interés efectiva"

Ctgr = "MiCategoria"

DA(2) = "12 = Mensual; 6 = Bimestral; 4 = Trimestral; 3 = Cuatrimestral; 2 = Semestral; 1 = Anual"

DA(3) = "12 = Mensual; 6 = Bimestral; 4 = Trimestral; 3 = Cuatrimestral; 2 = Semestral; 1 = Anual"

Application.MacroOptions _

            Macro:=NF, _

            Description:=DF, _

            Category:=Ctgr, _

            ArgumentDescriptions:=DA

End Sub

Pegamos y Guardamos el código:

Buscamos la función como: "TasaE·DeA"