Comment utiliser Goal Seek en Visual Basic

Ouvrez le document Excel dans lequel vous souhaitez lancer votre recherche de valeur cible macro.

Trouver les deux cellules que vous souhaitez utiliser pour l'objectif de recherche. Le premier devrait être la cellule pour laquelle vous avez un objectif fixe. Le second doit ê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 repose sur la deuxième cellule - autrement, peu importe ce qui change Excel permet à la seconde cellule, aucun changement apparaîtra dans le premier.

Ouvrez la fenêtre Macro. Dans Excel 2007 ou plus tard, le faire en cliquant sur le "Vue" onglet du ruban, puis en cliquant sur "Macros." Dans les versions antérieures d'Excel, cliquez sur le "Outils" menu, choisissez "Macro," puis choisissez "Macros."

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

Sous MyMacroName ()
End Sub

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

Dim goalCell Comme Range
goalCell = ThisWorkbook.Worksheet (1) .Range ("A1")

Créer un objet Range représente la cellule que vous souhaitez Excel pour passer à provoquer la première cellule pour atteindre l'objectif connu. Par exemple, si vous souhaitez Excel pour manipuler la cellule A2, écrire:

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

Appelez la méthode GoalSeek sur Range de la cellule de but. Comme le premier argument, fournir la valeur que vous souhaitez qu'il Goal Seek To- comme second argument, fournir une gamme de la cellule variable. Par exemple, si vous souhaitez Objectif Chercher à 0, écrire:

goalCell.GoalSeek (0, variableCell)