Esta página ensina como criar um calculadora de empréstimo em Excel VBA. A planilha contém os seguintes controles ActiveX: duas barras de rolagem e dois botões de opção.
Nota: as instruções abaixo não ensinam como formatar a planilha. Presumimos que você saiba como alterar os tipos de fonte, inserir linhas e colunas, adicionar bordas, alterar cores de fundo, etc.
Execute as seguintes etapas para criar a calculadora de empréstimo:
1. Adicione os dois controles da barra de rolagem. Clique em Inserir na guia Desenvolvedor e, em seguida, clique em Barra de rolagem na seção Controles ActiveX.
2. Adicione os dois botões de opção. Clique em Inserir na guia Desenvolvedor e, em seguida, clique no Botão de opção na seção Controles ActiveX.
Altere as seguintes propriedades dos controles da barra de rolagem (certifique-se de que o Modo Design esteja selecionado).
3. Clique com o botão direito do mouse no primeiro controle da barra de rolagem e, a seguir, clique em Propriedades. Defina Min como 0, Max como 20, SmallChange como 0 e LargeChange como 2.
4. Clique com o botão direito do mouse no segundo controle da barra de rolagem e, a seguir, clique em Propriedades. Defina Min para 5, Max para 30, SmallChange para 1, LargeChange para 5 e LinkedCell para F8.
Explicação: quando você clica na seta, o valor da barra de rolagem sobe ou desce em SmallChange. Quando você clica entre o controle deslizante e a seta, o valor da barra de rolagem sobe ou desce em LargeChange.
Crie um evento de alteração da planilha. O código adicionado ao Evento de Alteração da Planilha será executado pelo Excel VBA quando você alterar uma célula em uma planilha.
5. Abra o Editor do Visual Basic.
6. Clique duas vezes em Plan1 (Plan1) no Project Explorer.
7. Escolha Planilha na lista suspensa à esquerda e escolha Alterar na lista suspensa direita.
8. O evento de alteração da planilha escuta todas as alterações na Planilha1. Queremos que o Excel VBA execute o sub Calcular se algo mudar na célula D4. Para conseguir isso, adicione a seguinte linha de código ao evento de alteração da planilha (mais sobre o sub Calcular posteriormente).
If Target.Address = "$ D $ 4" Então Application.Run "Calculate"
9. Obtenha a porcentagem certa na célula F6 (altere o formato da célula F6 para porcentagem). Clique com o botão direito do mouse no primeiro controle da barra de rolagem e, a seguir, clique em Exibir código. Adicione as seguintes linhas de código:
Sub ScrollBar1_Change privado ()
Intervalo ("F6"). Valor = ScrollBar1.Value / 100
Application.Run "Calculate"
End Sub
10. Clique com o botão direito do mouse no segundo controle da barra de rolagem e clique em Exibir código. Adicione a seguinte linha de código:
Sub ScrollBar2_Change privado ()
Application.Run "Calculate"
End Sub
11. Clique com o botão direito do mouse no primeiro controle do botão de opção e, a seguir, clique em Exibir código. Adicione a seguinte linha de código:
Sub OptionButton1_Click () privada
Se OptionButton1.Value = True Then Range ("C12"). Value = "Pagamento mensal"
Application.Run "Calculate"
End Sub
12. Clique com o botão direito do mouse no segundo controle do botão de opção e, a seguir, clique em Exibir código. Adicione a seguinte linha de código:
Private Sub OptionButton2_Click ()
Se OptionButton2.Value = True Then Range ("C12"). Value = "Pagamento anual"
Application.Run "Calculate"
End Sub
13. Hora de criar o sub. Você pode ler nosso capítulo Função e Sub para aprender mais sobre sub. Se você estiver com pressa, simplesmente coloque o sub-nome Calculate em um módulo (No Editor do Visual Basic, clique em Inserir, Módulo).
Sub Calcular ()
Dim empréstimo como longo, avalie como duplo, nper como inteiro
empréstimo = intervalo ("D4"). Valor
taxa = intervalo ("F6"). Valor
nper = Faixa ("F8"). Valor
Se Sheet1.OptionButton1.Value = True Then
taxa = taxa / 12
nper = nper * 12
Fim se
Intervalo ("D12"). Valor = -1 * WorksheetFunction.Pmt (taxa, nper, empréstimo)
End Sub
Explicação: o sub obtém os parâmetros corretos para a função de planilha Pmt. A função PMT no Excel calcula os pagamentos de um empréstimo com base em pagamentos constantes e uma taxa de juros constante. Se você fizer pagamentos mensais (Sheet1.OptionButton1.Value = True), o Excel VBA usa taxa / 12 para taxa e nper * 12 para nper (número total de pagamentos). O resultado é um número negativo, porque os pagamentos são considerados um débito. Multiplicar o resultado por -1 dá um resultado positivo.
