Une des fonctions les plus puissantes de Microsoft Excel est "Goal Seek " - la capacité à trouver une valeur pour une cellule qui produit un certain résultat dans une autre cellule . Normalement , vous pouvez trouver Valeur cible dans le menu "Data " ou l'onglet " ruban" , mais si vous devez exécuter Valeur cible de nombreuses fois, vous pourrez peut-être gagner beaucoup de temps grâce à l'automatisation avec un Visual Basic pour applications ( VBA) . Heureusement, Seek objectif est pleinement intégré dans VBA , alors écrire une macro à utiliser , il est facile . Instructions
1

Ouvrez le document Excel dans lequel vous voulez exécuter votre recherche de valeur cible macro.
2

Trouvez les deux cellules que vous souhaitez utiliser pour Goal Seek . Le premier devrait être la cellule pour laquelle vous avez un objectif fixe. Le second devrait être une cellule Excel vous permettez de changer afin de remplir cet objectif. La valeur de la première cellule doit être une formule qui est fondée sur la deuxième cellule - sinon, peu importe les changements Excel permet à la deuxième cellule , aucun changement ne figurent dans la première
3 < p. > Ouvrez la fenêtre Macro . Dans Excel 2007 ou plus tard, le faire en cliquant sur ​​l'onglet "Affichage" du ruban, puis en cliquant sur "Macros ". Dans les versions précédentes d'Excel, cliquez sur le menu "Outils" , choisissez "Macro " puis choisissez " Macros ".
4

Tapez un nom pour votre recherche de valeur cible macro dans la fenêtre macro , puis cliquez sur "Créer". Cela permet de lancer le Visual Basic pour Applications éditeur et de vous montrer le texte de la nouvelle macro , qui au départ comme un sous-programme vide comme ceci:

Sous MyMacroName ( ) End Sub
5

Créer un objet Range qui représente la cellule pour laquelle vous avoir un objectif connu ( la première cellule de l'étape 2 ) . Par exemple, si vous voulez Goal Seek cellule A1, écriture : .

Dim goalCell Comme RangegoalCell = ThisWorkbook.Worksheet (1) Range (" A1")
6 < p > Créer un objet Range qui représente la cellule que vous souhaitez Excel pour passer à provoquer la première cellule pour atteindre l'objectif connu . Par exemple, si vous voulez Excel pour manipuler la cellule A2 , écrire : .

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

Appelez la méthode GoalSeek sur la gamme de l'objectif cellule. Comme le premier argument, fournir la valeur que vous souhaitez qu'il Valeur cible pour , comme le second argument, fournir la gamme de la variable cellule. Par exemple, si vous voulez Valeur cible à 0, écrire :

goalCell.GoalSeek (0, variableCell )