La función `SLN` en VBA, que proviene del inglés «Straight Line Depreciation» (Depreciación en Línea Recta), permite calcular la depreciación de un activo para un período utilizando el método de línea recta. Este método asume que el valor del activo disminuirá de manera uniforme durante su vida útil.

La sintaxis de la función `SLN` en VBA es la siguiente:

SLN(Cost As Double, Salvage As Double, Life As Double) As Double

Donde:

• `Cost` es el costo inicial del activo.
• `Salvage` es el valor residual del activo al final de su vida útil.
• `Life` es la vida útil del activo (en períodos, usualmente años).

La función `SLN` devuelve la depreciación para un solo período.

Aquí tienes un ejemplo de cómo utilizar la función `SLN` en VBA:

Sub CalculateDepreciation()
    Dim initialCost As Double
    Dim residualValue As Double
    Dim assetLife As Double
    Dim depreciation As Double
    
    ' Valores de ejemplo
    initialCost = 10000 ' Costo inicial del activo
    residualValue = 1000 ' Valor residual después de la vida útil
    assetLife = 5 ' Vida útil del activo en años
    
    ' Calculamos la depreciación usando la función SLN de VBA
    depreciation = SLN(initialCost, residualValue, assetLife)
    
    ' Mostramos el resultado en un mensaje
    MsgBox "La depreciación anual es: " & depreciation
End Sub

Este script de VBA creará un procedimiento Sub que calcula y muestra un mensaje con la depreciación anual de un activo utilizando el método de línea recta. Los valores inicialmente establecidos en `initialCost`, `residualValue`, y `assetLife` son solo ejemplos y deberían ser reemplazados por los valores reales del activo que vas a depreciar.

Para usar este código en Excel VBA, sigue estos pasos:

• Abre Excel y luego el editor de VBA presionando ALT + F11.
• Inserta un nuevo módulo desde el menú «Insertar > Módulo».
• Copia y pega el código de ejemplo en el nuevo módulo.
• Cierra el editor de VBA y ejecuta el macro desde Excel, por ejemplo, asignándolo a un botón o ejecutándolo directamente desde la vista de macros.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto