Questo tutorial ti mostrerà come usare Goal Seek in VBA
Goal Seek è uno degli strumenti di analisi What-if disponibili in Excel che consente di applicare valori diversi alle formule e confrontare i risultati.
Sintassi di ricerca obiettivo
La funzione GoalSeek ha 2 argomenti: l'obiettivo (la cella che si desidera modificare) e ChangingCell (la cella che deve essere modificata). La funzione restituisce True o False - True se l'obiettivo viene trovato e False se l'obiettivo non viene trovato.
Utilizzo della ricerca obiettivo in VBA
Considera il seguente foglio di lavoro di seguito.
Per modificare il rimborso richiesto ogni mese modificando il termine in mesi, possiamo scrivere la seguente procedura.
| 1234 | Sub Aumento Termine()'fai B6 100 cambiando B5'Intervallo("B6"). GoalSeek Goal:=100, ChangeCell:=Range("B5")Fine sottotitolo |
Nota che ci deve essere una formula nella cella B6 e un valore nella cella B5.
Utilizzo della ricerca obiettivo con un'istruzione If
Puoi anche usare GoalSeek con un'istruzione If per dirigere il flusso del tuo codice.
| 12345678 | Sub Aumento Termine()'crea B6 100 cambiando B5 - e restituisci un messaggio all'utenteIf Range("B6").GoalSeek(Goal:=100, ChangingCell:=Range("B5")) = True ThenMsgBox "Nuovo termine trovato con successo"AltroMsgBox ("Nuovo termine non trovato")Finisci seFine sottotitolo |
