Este tutorial mostrará como usar o Goal Seek no VBA
Goal Seek é uma das ferramentas de análise What -if disponível no Excel que permite aplicar diferentes valores às fórmulas e comparar os resultados.
Sintaxe de busca de meta
A função GoalSeek tem 2 argumentos - o objetivo (a célula que você deseja alterar) e ChangingCell (a célula que precisa ser corrigida). A função retorna Verdadeiro ou Falso - Verdadeiro se a meta for encontrada e Falso se a meta não for encontrada.
Usando o Goal Seek no VBA
Considere a seguinte planilha abaixo.
Para alterar o reembolso necessário a cada mês, alterando o prazo em meses, podemos escrever o seguinte procedimento.
| 1234 | Sub IncreaseTerm ()'faça B6 100 mudando B5Intervalo ("B6"). Objetivo GoalSeek: = 100, ChangingCell: = Intervalo ("B5")End Sub |
Observe que deve haver uma fórmula na célula B6 e um valor na célula B5.
Usando Goal Seek com uma declaração If
Você também pode usar GoalSeek com uma instrução If para direcionar o fluxo do seu código.
| 12345678 | Sub IncreaseTerm ()'faça B6 100 alterando B5 - e retorne uma mensagem ao usuárioIf Range ("B6"). GoalSeek (Goal: = 100, ChangingCell: = Range ("B5")) = True ThenMsgBox "Novo termo encontrado com sucesso"OutroMsgBox ("Novo termo não encontrado")Fim seEnd Sub |
