Como usar a função SLN em VBA?

A função SLN no Excel é usada para calcular a depreciação linear de um ativo para um único período. Se você deseja utilizar esta função em VBA, precisa chamá-la de forma um pouco diferente, já que diretamente no VBA não existe uma função SLN embutida. No entanto, você pode utilizar a função de planilha do Excel dentro do VBA através do objeto `WorksheetFunction`.

Aqui está como você pode fazê-lo:

Sub CalcularSLN()
    Dim custoInicial As Double
    Dim valorResidual As Double
    Dim vidaUtil As Double
    Dim depreciacao As Double

    ' Defina os valores para o custo, valor residual e vida útil
    custoInicial = 10000
    valorResidual = 1000
    vidaUtil = 5

    ' Calcualar a depreciação usando a função SLN do Excel
    depreciacao = Application.WorksheetFunction.Sln(custoInicial, valorResidual, vidaUtil)

    ' Mostrar o resultado em uma mensagem
    MsgBox "A depreciação anual é: " & depreciacao
End Sub

Nesta macro, `custoInicial` refere-se ao custo inicial do ativo, `valorResidual` é o valor final após a depreciação, e `vidaUtil` é o número de períodos sobre os quais o ativo será depreciado. A função `Application.WorksheetFunction.Sln` é então usada para calcular a depreciação linear com base nesses três valores.

Siga esses passos para usar a macro:

Abra o Excel e pressione `ALT + F11` para abrir o Editor do VBA.
Insira um novo módulo indo para `Inserir > Módulo`.
Copie e cole o código acima no módulo.
Feche o Editor do VBA e retorne ao Excel.
Pressione `ALT + F8`, selecione `CalcularSLN` e clique em “Executar” para executar a macro.

Isso fará com que apareça uma mensagem com o valor da depreciação anual calculado. Você pode modificar os valores de `custoInicial`, `valorResidual` e `vidaUtil` conforme necessário.

facebooklinkedin