Goal Seek Macro avec un Objectif en tant que Formule

Je suis à saisir les pailles ici, de sorte que toute aide serait super (ie. Je n'ai aucune idée de ce que je fais avec VBA).

Je suis en train de résoudre une référence circulaire problème dans Excel par la création d'un objectif de chercher macro - essentiellement

S3 = M + S2,
S3 = L * G.

Je veux goal seek S3 pour l'égalité des L * G en changeant M.

Donc, j'ai mis

L * G dans la cellule H32,
S3 dans H18,
M dans G18,
S2 dans F18

et c'est ce que j'ai recueillies jusqu'à présent.

Sub GoalSeek()   
Dim x As Integer
x = Range("H32").Value    
Range("H18").GoalSeek Goal:=x, ChangingCell:=Range("G18")     
End Sub

Je suis une "Référence n'est pas valide" erreur, des idées?
Merci!

InformationsquelleAutor Natalie | 2013-08-09

5

GoalSeek va lancer une "Référence non Valide" erreur si la GoalSeek cellule contient une valeur plutôt qu'une formule ou si le ChangingCell contient une formule au lieu d'une valeur ou rien.

La GoalSeek cellule doit contenir une formule qui fait référence directement ou indirectement à l'ChangingCell; si la formule ne fait pas référence à la ChangingCell d'une certaine façon, GoalSeek soit peut ne pas converger vers une réponse ou peut produire une réponse absurde.

J'ai testé votre code avec un autre GoalSeek formule que la vôtre (je n'étais pas tout à fait clair si certaines des conditions visées à des cellules ou des valeurs).

Pour le test, j'ai mis:
```
  the GoalSeek cell  H18 = (G18^3)+(3*G18^2)+6
  the Goal cell      H32 =  11
  the ChangingCell   G18 =  0 
```
Le code était:
```
Sub GSeek()
    With Worksheets("Sheet1")
        .Range("H18").GoalSeek _
        Goal:=.Range("H32").Value, _
        ChangingCell:=.Range("G18")
    End With
End Sub
```
Et le code généré le (bon) réponse de 1.1038, la valeur de G18 à laquelle la formule de la H18 produit la valeur de 11, le but que je recherche.
- Merci! Je peux suivre la première partie de cela, mais je pense que la raison pour laquelle mon code ne fonctionne pas peut-être que mon objectif de la cellule contient une formule, et non une valeur??
- Comme Riche, je pense que le problème doit être que la cellule H18 ne contient pas une formule. J'ai ajouté le code que j'ai utilisé pour ma réponse. Ce code fonctionne aussi: Sous GSeek2() Dim x as Integer x = Range("H32").Plage De Valeurs("H18").GoalSeek Objectif:=x, ChangingCell:=Range("G18") End Sub
- Pour continuer, la seule fois que j'ai pu obtenir GoalSeek de jeter une référence non valide erreur a été lorsque l'Objectif de la cellule n' pas contient une formule ou lorsque le ChangingCell ne contient une formule.
- Hein, ne sais pas pourquoi je ne peux pas obtenir que cela fonctionne? J'ai reçu votre exemple de travail (plus ou moins, j'ai obtenu une réponse de 1.007613 dans G18 et 10.06887 dans H18) mais je suis perdu, pourquoi mon code ne fonctionne pas. (Je copie-collé votre code ci-dessus, en changeant seulement le nom de la feuille, sans succès.) H18 a la formule F18 + G18, où F18 contient une formule et G18 (l'évolution de la cellule) contient une valeur. L'objectif de la cellule H32 contient également une formule.
- Wow, je me sens ridicule - j'ai écouté vos conseils, et a continué à essayer d'où la référence non valide a été à venir à partir d' - j'ai mis de l'évolution de la cellule =valeur. Merci pour votre aide!
- Est-il un moyen de rendre les références de cellules dans le code VBA dynamique? Par exemple, la H18 et H32 sont codés en dur ci-dessus. Est-il un moyen de retirer cette référence dynamiquement d'une cellule. Ainsi, au lieu de la formule, je peux le type H18 dans une cellule et cette macro génère dynamiquement le même résultat que ci-dessus.
InformationsquelleAutor chuff
1

Je pense que votre problème est que Range("H18") ne contient pas une formule. Aussi, vous pouvez rendre votre code plus efficace en éliminant x. Au lieu de cela, modifiez votre code pour
```
Range("H18").GoalSeek Goal:=Range("H32").Value, ChangingCell:=Range("G18")
```
- Désolé, mon post original a été source de confusion - H18 (le but de chercher de la cellule) contient "=F18+G18" et l'objectif de la cellule (H32) contient une autre formule. Est-il possible d'utiliser une référence de cellule directement comme objectif s'il contient une formule et non pas une valeur?
InformationsquelleAutor ARich

Vous devez vous connecter pour publier un commentaire.