Et af Microsoft Excel mest kraftfulde funktioner er " Målsøgning " - evnen til at finde en værdi for en celle, der producerer et bestemt resultat i en anden celle. Normalt kan du finde Målsøgning i "Data "-menuen eller " Ribbon " fanen , men hvis du har brug for at køre Målsøgning mange gange , kan du være i stand til at spare en masse tid ved at automatisere det med en Visual Basic for Applications (VBA ) makro. Heldigvis er Målsøgning fuldt integreret i VBA , så skrive en makro til at bruge det er let. Instruktioner
1
Åbn Excel-dokument , som du gerne vil køre din Målsøgning makroen.
2
Find de to celler , du gerne vil bruge til Målsøgning . Den første skal være den celle , som du har et fast mål. Den anden skal være en celle du tillader Excel til at ændre for at opfylde dette mål. Den første celle værdi skal være en formel, der er baseret på den anden celle - ellers ligegyldigt hvilke ændringer Excel gør til den anden celle , bliver ingen ændringer i det første
3 < p . > Åbn Makro -vinduet. I Excel 2007 eller senere , skal du gøre det ved at klikke på "Vis" fanen af båndet , og derefter klikke på " makroer ". I tidligere versioner af Excel , skal du klikke på menuen "Funktioner" , vælg " Macro ", vælg derefter " Makroer ".
4
Indtast et navn til din Målsøgning makro i makro -vinduet, og klik på " Opret ". Dette vil lancere Visual Basic for Applications redaktør og vise dig teksten til den nye Macro , der vil starte ud som en tom subrutine som dette : Hej
Sub MyMacroName ( ) End Sub
5
Opret en Range objekt, der repræsenterer den celle , som du har en kendt mål ( den første celle fra trin 2 ) . For eksempel, hvis du gerne vil Målsøgning celle A1, skriv: .
Dim goalCell Som RangegoalCell = ThisWorkbook.Worksheet (1) Range (" A1" )
6
Opret en Range objekt, der repræsenterer den celle, du gerne vil Excel til at skifte til at forårsage den første celle til at nå de kendte mål. For eksempel, hvis du gerne vil Excel til at manipulere celle A2 skriver : .
Dim variableCell Som RangevariableCell = ThisWorkbook.Worksheet (1) Range (" A2 " )
7 < p > Ring til GoalSeek metoden på målet cellens Range . Som det første argument giver den værdi, du gerne vil have det til at Målsøgning til , som det andet argument , den variable celle Range levere. For eksempel, hvis du gerne vil Målsøgning til 0 skrive : Hej
goalCell.GoalSeek (0, variableCell )
