Um dos recursos mais poderosos do Microsoft Excel é " Atingir Meta " - a capacidade de encontrar um valor para uma célula que produz um determinado resultado em outra célula. Normalmente , você pode encontrar Atingir meta no menu " Dados" ou guia "Ribbon" , mas se você precisa executar Meta muitas vezes, você pode ser capaz de guardar um monte de tempo , automatizando -lo com um Visual Basic for Applications (VBA) macro. Felizmente, Atingir Meta é totalmente integrado VBA, assim que escrever uma macro para usá-lo é fácil. Instruções
1

Abra o documento do Excel no qual você gostaria de executar o seu Meta macro.
2

Encontre as duas células que você gostaria de usar para atingir meta . A primeira deve ser a célula para a qual você tem um objetivo fixo. O segundo deve ser uma célula você permitir Excel para mudar a fim de cumprir essa meta. O primeiro valor da célula deve ser uma fórmula que se baseia na segunda célula - caso contrário , não importa o que muda Excel faz a segunda célula , nenhuma alteração será exibida no primeiro
3 Abra a janela Macro . No Excel 2007 ou mais tarde, pode fazer isso clicando em "Ver " guia da fita, em seguida, clicando em " Macros ". Nas versões anteriores do Excel , clique no menu "Ferramentas" , selecione " Macro " em seguida, escolha " Macros ".
4

Digite um nome para a sua Meta macro na janela macro, e clique em " Criar". Isto irá iniciar o Visual Basic for Applications editor e mostrar-lhe o texto da nova macro , que vai começar como uma sub-rotina vazia assim:

Sub MyMacroName () End Sub
5

Criar um objeto Range representando a célula para a qual você ter um objetivo conhecido ( a primeira célula a partir do Passo 2 ) . Por exemplo, se você gostaria de atingir meta célula A1 , escreva : .

Dim goalCell Como RangegoalCell = ThisWorkbook.Worksheet (1) Range (" A1")
6

Criar um Range objeto que representa a célula que você gostaria Excel para mudar para fazer com que a primeira célula para atingir a meta conhecida . Por exemplo, se você gostaria de Excel para manipular a célula A2 , escreva : .

Dim variableCell Como RangevariableCell = ThisWorkbook.Worksheet (1 ) Range ( "A2" )
7

Chame o método GoalSeek na Faixa da célula objetivo. Como o primeiro argumento, fornecer o valor que você gostaria que ele Atingir Meta para , como o segundo argumento, fornecer Faixa da célula variável. Por exemplo, se você gostaria de atingir meta a 0 , escreva :

goalCell.GoalSeek ( 0, variableCell )