¿Cómo usar la función SYD en VBA?

La función SYD (Sum of Years’ Digits) en VBA se utiliza para calcular la depreciación de un activo utilizando el método de los dígitos de los años. Esta función está disponible en Excel y se puede utilizar en VBA a través de la función `WorksheetFunction`. Aquí tienes un ejemplo de cómo usar la función SYD en VBA:

Sintaxis de la función SYD

SYD(coste_inicial, valor_final, vida_util, periodo)

coste_inicial: El costo inicial del activo.
valor_final: El valor al final de la depreciación (valor de salvamento).
vida_util: La vida útil del activo.
periodo: El período para el cual deseas calcular la depreciación.

Ejemplo en VBA

A continuación se muestra un ejemplo de cómo usar la función SYD en un procedimiento de VBA:

Sub CalcularDepreciacionSYD()
    Dim coste_inicial As Double
    Dim valor_final As Double
    Dim vida_util As Integer
    Dim periodo As Integer
    Dim depreciacion As Double

    ' Configurar valores para el ejemplo
    coste_inicial = 10000 ' Coste inicial del activo
    valor_final = 1000    ' Valor de salvamento
    vida_util = 5         ' Vida útil del activo en años
    periodo = 1           ' Período a calcular la depreciación

    ' Calcular la depreciación usando SYD
    depreciacion = WorksheetFunction.SYD(coste_inicial, valor_final, vida_util, periodo)

    ' Mostrar el resultado en un cuadro de mensaje
    MsgBox "La depreciación para el período " & periodo & " es: " & depreciacion
End Sub

Instrucciones para el uso del código:

Abre Excel y presiona `ALT + F11` para abrir el Editor de VBA.
Ve a `Insertar > Módulo` para crear un nuevo módulo.
Copia y pega el código proporcionado en el módulo.
Cierra el Editor de VBA y vuelve a Excel.
Presiona `ALT + F8`, selecciona `CalcularDepreciacionSYD`, y haz clic en Ejecutar para ver el resultado.

Este ejemplo calcula la depreciación para el primer año de un activo que tiene un costo inicial de $10,000, un valor de salvamento de $1,000 y una vida útil de 5 años. Puedes cambiar estos valores para adaptarlos a tus necesidades específicas.

facebooklinkedin