Una delle funzioni più potenti di Microsoft Excel è " Ricerca obiettivo " - la capacità di trovare un valore per una cellula che produce un certo risultato in un'altra cella . Normalmente , è possibile trovare Ricerca obiettivo nel menu " Dati" o scheda " Ribbon" , ma se è necessario eseguire Ricerca obiettivo tante volte , si può essere in grado di risparmiare un sacco di tempo automatizzando con un Visual Basic per Applications Edition (VBA) . Per fortuna , Ricerca obiettivo è completamente integrato nel VBA , in modo da scrivere una macro per usarlo è facile. Istruzioni
1

Aprire il documento Excel nel quale vuoi eseguire la Ricerca obiettivo macro .
2

Trova le due celle che si desidera utilizzare per la Ricerca obiettivo . Il primo dovrebbe essere la cella per la quale si dispone di un obiettivo fisso . Il secondo dovrebbe essere una cella di Excel si consente di cambiare al fine di soddisfare tale obiettivo. Valore della prima cella deve essere una formula che si basa sulla seconda cella - in caso contrario , non importa quali cambiamenti Excel rende alla seconda cella , senza modifiche appariranno nella prima
3 < p . > Aprire la finestra Macro . In Excel 2007 o versioni successive , fare questo , fare clic sulla scheda "Visualizza" del nastro , quindi facendo clic su "Macro ". Nelle versioni precedenti di Excel , fare clic sul menu " Strumenti " , selezionare " Macro " quindi scegliere " macro ".
4

Digitare un nome per la Ricerca obiettivo macro nella finestra della macro e fare clic su "Crea ". verrà avviato il Visual Basic Editor Applicazioni e mostrarvi il testo del nuovo Macro , che sarà inizialmente come una subroutine vuota come questa:

MyMacroName Sub ( ) End Sub
5

Creare un oggetto Range che rappresenta la cella per la quale si avere un obiettivo noto ( la prima cella dal punto 2 ) . Per esempio, se vuoi Ricerca obiettivo cella A1 , scrivere a: .

Dim goalCell Come RangegoalCell = ThisWorkbook.Worksheet ( 1) Range (" A1 " ) economici 6 < p > Creare un oggetto Range che rappresenta la cella vuoi Excel per cambiare per causare la prima cella per raggiungere la meta conosciuta . Per esempio, se vuoi Excel per manipolare cella A2 , scrivere : .

Dim variableCell Come RangevariableCell = ThisWorkbook.Worksheet ( 1) Range (" A2 " ) economici 7 < p > Chiamare il metodo GoalSeek sul Campo della cella obiettivo. Come primo argomento , fornire il valore che si desidera vi Ricerca obiettivo per , come secondo argomento , fornire gamma della cella variabile . Per esempio, se vuoi Ricerca obiettivo a 0 , scrivere :

goalCell.GoalSeek ( 0 , variableCell ) economici