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

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.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project