Cuota Préstamo

Esta función nos permitirá la cuota a pagar de un préstamo en función del importe del mismo, el tipo de interés y el plazo en meses de amortización.

Esta función recibirá tres parámetros: Importe, interés y meses.

El código de esta función lo podéis encontrar en Usar funciones EXCEL en nuestras propias funciones (UDF).

Para llamar a esta función bastará con que nos coloquemos en una celda y la llamemos pasando los parámetros específicos: el importe del préstamo, el tipo de interés y el número de meses en el que deseamos amortizar el préstamo.

=CuotaPrestamo(150000,4,75%,360)

El resultado de esta función nos devolverá la cuota a pagar de nuestro préstamo.

Calcular EDAD

Esta función nos permitirá calcular la edad de una persona. La función recibirá dos parámetros, el primero será la fecha de nacimiento y el segundo la fecha en la cuál deseamos calcular la edad.

El código de la función es el siguiente:

Public Function YearsOld(FNac As Date, FActual As Date) As Byte

' Calculamos la diferencia entre el año de nacimiento
' y la fecha en la cuál deseamos calcular la edad
YearsOld = Year(FActual) - Year(FNac)

If Month(FActual) < Month(FNac) Then
YearsOld = YearsOld - 1
ElseIf Month(FActual) = Month(FNac) And Day(FActual)< Day(FNac) Then
YearsOld = YearsOld - 1
End If

End Function

Para usar esta función la llamaremos desde cualquier celda de nuestra hoja indicándole las fechas entre las cuáles deseamos calcular la edad:

= YearsOld(Fecha(1968;08;15); Hoy())

Una vez invocada la función nos aparecerá la media del rango seleccionado.


NOTA:

• Fecha(año;mes;dia) es una función estándar de EXCEL que convierte un año, un mes y un día en una fecha válidad para EXCEL.
• Hoy() es una función estándar de EXCEL que devuelve la fecha actual.

Verificar si un fichero existe

Esta función nos permitirá conocer si un determinado fichero existe en la ubicación especificada. La función recibira cómo parámetro la ruta y el nombre del fichero y devolverá verdadero en caso de que éste exista o falso en caso contrario.

El código de la función es el siguiente:

Private Function FileExists(strFilename As String) As Boolean

' Comprobamos si existe el fichero existe
If Dir(strFilename) = "" Then
FileExists = False
Else
FileExists = True
End If

End Function

Verificar si una hoja EXCEL existe

Esta función nos permitirá conocer si una determinada hoja existe dentro de un libro EXCEL. La función recibirá cómo parámetro el nombre de la hoja a buscar dentro del libro, y devolverá verdadero en caso de que ésta exista o falso en caso contrario.

El código de la función es el siguiente:

Private Function SheetExists(strSheetName As String) As Boolean
On Error Resume Next

Dim objSheet as Object

' Seleccionamos la hoja de cálculo
Set objSheet = ActiveWorkbook.Sheets(strSheetName)

' Comprobamos si existe o no la hoja
If Err = 0 Then
SheetExists = True
Else
SheetExists = False
End If

End Function