Como usar a função SYD em VBA?

A função SYD (Sum-of-Years’ Digits) no VBA (Visual Basic for Applications) é utilizada para calcular a depreciação de um ativo usando o método da soma dos dígitos dos anos. Este método de depreciação considera que o ativo perde mais valor nos primeiros anos de uso.

Aqui está um exemplo de como você pode usar a função SYD em VBA:


Sub CalcularDepreciacaoSYD()
    Dim CustoInicial As Double
    Dim ValorResidual As Double
    Dim VidaUtil As Integer
    Dim Ano As Integer
    Dim Depreciacao As Double
    
    ' Definindo valores para o exemplo
    CustoInicial = 10000  ' Custo inicial do ativo
    ValorResidual = 1000  ' Valor residual do ativo ao final da vida útil
    VidaUtil = 5          ' Vida útil do ativo em anos
    Ano = 1               ' Ano para o qual calcular a depreciação

    ' Calculando a depreciação usando a função SYD
    Depreciacao = SYD(CustoInicial, ValorResidual, VidaUtil, Ano)

    ' Exibindo o resultado
    MsgBox "A depreciação no ano " & Ano & " é: " & Format(Depreciacao, "Currency")
End Sub

Abrir o editor do VBA:

Abra o Excel.
Pressione `ALT + F11` para abrir o Editor do VBA.
No Editor do VBA, insira um novo módulo: clique com o botão direito em `VBAProject`, depois em `Inserir > Módulo`.

Adicionar o código VBA:

Cole o seguinte código no módulo recém-criado:

Executar o código:

Feche o Editor do VBA e volte para o Excel.
Pressione `ALT + F8` para abrir a janela “Macro”, selecione `CalcularDepreciacaoSYD` e clique em “Executar”.

Explicação dos parâmetros:

CustoInicial: O custo original do ativo.
ValorResidual: O valor do ativo ao fim de sua vida útil.
VidaUtil: O número total de anos que o ativo será depreciado.
Ano: O ano específico para o qual você deseja calcular a depreciação.

Este código mostra como utilizar a função `SYD` no VBA para calcular a depreciação anual de um ativo. Você pode modificar os valores dos parâmetros para ajustá-los às suas próprias necessidades.

facebooklinkedin