Een van de meest krachtige functies van Microsoft Excel is " Doel zoeken " - de mogelijkheid om een waarde voor een cel die een bepaald resultaat in een andere cel produceert vinden . Normaal gesproken kunt u vinden Doelzoeken in het menu "Data " of tabblad " Ribbon " , maar als je moet lopen Doel zoeken vele malen , kunt u in staat om veel tijd te besparen door het automatiseren van het met een Visual Basic for Applications ( VBA ) macro . Gelukkig is Goal Seek volledig geïntegreerd in VBA , dus het schrijven van een macro te gebruiken is het gemakkelijk . Instructies 1 Open het Excel- document waarin u wilt draaien uw Doelzoeken macro . Kopen van 2 Vind de twee cellen die u wilt gebruiken voor Doelzoeken . De eerste moet de cel waarvoor u een vast doel zijn . De tweede moet een cel die u toelaten Excel te veranderen om dat doel te bereiken zijn. Waarde van de eerste cel moet een formule die gebaseerd is op de tweede cel zijn - anders is , ongeacht wat wijzigt Excel maakt naar de tweede cel , worden geen wijzigingen verschijnen in de eerste 3 Open het Macro venster . In Excel 2007 of later , doen dit door te klikken op het tabblad 'Weergave' van het lint , klik vervolgens op " Macro's . " In eerdere versies van Excel , klikt u op het menu "Extra " , kies " Macro , " kies dan " macro's . " 4 Typ een naam voor uw Doelzoeken macro in macro venster , en klik op "Create . " Dit zal de Visual Basic for Applications -editor te starten en je laten zien de tekst van de nieuwe Macro , die zal beginnen als een lege subroutine als dit : Sub MyMacroName ( ) End Sub 5 Maak een Range -object vertegenwoordigt de cel waarvoor u een bekend doel ( de eerste cel van stap 2 ) . Bijvoorbeeld, als u wilt Doelzoeken cel A1 , schrijft : . Dim goalCell Zoals RangegoalCell = ThisWorkbook.Worksheet ( 1 ) Range ( " A1 " ) 6 Maak een Range -object vertegenwoordigt de cel die u wilt Excel over te schakelen naar de eerste cel van de bekende doel te bereiken veroorzaken . Bijvoorbeeld, als u wilt Excel naar cel A2 te manipuleren , schrijft : . Dim variableCell Zoals RangevariableCell = ThisWorkbook.Worksheet ( 1 ) Range ( " A2 " ) 7 Roep het GoalSeek methode op Bereik het doel cel . Als eerste argument , geven de waarde die u wilt dat het Doelzoeken aan , als tweede argument , bieden Bereik de variabele cel . Bijvoorbeeld, als u wilt Doel zoeken naar 0 , schrijven : goalCell.GoalSeek ( 0 , variableCell ) op Twitter
|