Eine der leistungsstärksten Funktionen von Microsoft Excel ist " Goal Seek " - die Fähigkeit, einen Wert für eine Zelle, die ein bestimmtes Ergebnis in einer anderen Zelle produziert zu finden. Normalerweise können Sie kein Tor im Menü "Daten" oder " Ribbon "-Reiter zu suchen, aber wenn Sie zu laufen Zielwertsuche oft benötigen, können Sie in der Lage, eine Menge Zeit sparen durch die Automatisierung ist es mit einem Visual Basic für Applikationen (VBA )-Makro . Glücklicherweise ist Zielwertsuche vollständig in VBA integriert, so schreibt ein Makro zu benutzen ist einfach. Anleitung
1

Öffnen Sie die Excel -Dokument , in dem Sie zu laufen Ihre Zielwertsuche Makro würde .
2

Finden Sie die zwei Zellen, die Sie gerne für Tor nutzen suchen würden . Die erste sollte die Zelle , für die Sie eine feste Ziel sein. Die zweite sollte eine Zelle erlauben Sie Excel zu ändern, um dieses Ziel zu erfüllen. Die erste Zelle der Wert muss eine Formel, die auf der zweiten Zelle basiert sein - sonst macht , egal was Excel Änderungen an der zweiten Zelle , werden keine Änderungen in der ersten erscheinen
3 < p . > Öffnen Sie das Makro -Fenster. In Excel 2007 oder höher , dies zu tun , indem Sie auf der Registerkarte "Ansicht" des Bandes , klicken Sie auf " Makros. " In früheren Versionen von Excel , klicken Sie auf das Menü "Extras" , wählen Sie "Macro " wählen Sie dann " Makros ".
4

Geben Sie einen Namen für Ihre Zielwertsuche Makro in Makro -Fenster, und klicken Sie auf " erstellen". Dadurch wird die Visual Basic für Applikationen -Editor starten und zeigen Ihnen, der Text des neuen Makro , die beginnen wird als leere Unterprogramm wie folgt aus:

Sub MyMacroName () End Sub
5

erstellen ein Range-Objekt , die die Zelle, für die Sie eine bekannte Ziel (die erste Zelle aus Schritt 2). Zum Beispiel, wenn Sie möchten, Zielwertsuche Zelle A1 , schreiben Sie: .

Dim goalCell Wie RangegoalCell = ThisWorkbook.Worksheet (1) Range (" A1")
6

erstellen Sie ein Range-Objekt , die die Zelle, die Sie gerne Excel zu ändern, um die erste Zelle , die bekannt Ziel zu erreichen verursachen würde . Zum Beispiel , wenn Sie möchten Excel die Zelle A2 manipulieren , schreiben: .

Dim variableCell Wie RangevariableCell = ThisWorkbook.Worksheet (1) Range ( "A2" )
7

Rufen Sie die GoalSeek Methode auf das Ziel Zelle Reichweite . Als erstes Argument , geben Sie den Wert, den Sie mögen es Tor zu suchen hatte , als zweites Argument , bieten die variable Zelle Reichweite . Zum Beispiel, wenn Sie möchten, Tor zum 0 Seek, schreiben:

goalCell.GoalSeek (0, variableCell )