La función SLN en Excel se utiliza para calcular la depreciación lineal de un activo durante un período específico. En VBA (Visual Basic for Applications), puedes utilizar esta función para realizar el mismo cálculo de depreciación lineal. La sintaxis de la función SLN en VBA es similar a la empleada en las fórmulas de Excel.
Aquí te muestro cómo puedes usar la función SLN en VBA:
Sub CalcularDepreciacionLineal()
Dim CostoInicial As Double
Dim ValorResidual As Double
Dim VidaUtil As Double
Dim Depreciacion As Double
' Asignar valores
CostoInicial = 50000 ' Por ejemplo, costo inicial del activo
ValorResidual = 5000 ' Valor al final de la vida útil
VidaUtil = 10 ' Vida útil en años
' Calcular la depreciación utilizando la función SLN
Depreciacion = SLN(CostoInicial, ValorResidual, VidaUtil)
' Mostrar el resultado
MsgBox "La depreciación anual es: " & Depreciacion
End Sub
- Abrir el Editor de VBA: Primero, asegúrate de abrir el Editor de VBA en Excel. Puedes hacer esto presionando `ALT + F11`.
- Insertar un Módulo: Si aún no tienes un módulo donde escribir el código, inserta uno nuevo haciendo clic en `Insertar` → `Módulo`.
- Escribir el Código: Ahora puedes escribir una macro que utilice la función SLN para calcular la depreciación lineal. Aquí tienes un ejemplo:
- Ejecutar la Macro: Puedes ejecutar esta macro desde el Editor de VBA presionando `F5` o cerrando el editor y ejecutándola desde Excel a través de `Desarrollador` → `Macros`.
Este script calcula la depreciación anual de un activo con un costo inicial de 50,000, un valor residual de 5,000, y una vida útil de 10 años. Ajusta estos valores según tus necesidades.
La función `SLN` en VBA funciona igual que en Excel: toma el costo inicial, el valor residual y la vida útil para devolver la depreciación anual utilizando el método lineal.