Πώς να χρησιμοποιήσετε Goal Seek σε Visual Basic

Ένα από τα πιο ισχυρά χαρακτηριστικά του Microsoft Excel είναι " Goal Seek " - τη δυνατότητα να βρείτε μια τιμή για ένα κύτταρο που παράγει ένα συγκεκριμένο αποτέλεσμα σε ένα άλλο κύτταρο . Κανονικά , μπορείτε να βρείτε Αναζήτηση στόχου στο μενού "Δεδομένα" ή την καρτέλα " Κορδέλα " , αλλά αν χρειαστεί να εκτελέσετε Goal Seek πολλές φορές, μπορεί να είναι σε θέση να σώσει πολύ χρόνο αυτοματοποιώντας με ένα Visual Basic for εφαρμογές ( VBA) . Ευτυχώς , Goal Seek ενσωματώθηκε πλήρως στη VBA , έτσι γράφοντας μια μακροεντολή για να το χρησιμοποιήσει είναι εύκολο . Οδηγίες
Η

1 Ανοίξτε το έγγραφο του Excel στο οποίο θα θέλατε να τρέξει το στόχο σας Επιδιώξτε macro . 2

Βρείτε τα δύο κελιά που θέλετε να χρησιμοποιήσετε για την αναζήτηση στόχου . Το πρώτο πρέπει να είναι το κελί για το οποίο έχετε ένα σταθερό στόχο . Το δεύτερο πρέπει να είναι ένα κελί που επιτρέπουν Excel να αλλάξει προκειμένου να εκπληρώσει αυτό το στόχο . Η αξία του πρώτου κυττάρου πρέπει να είναι ένας τύπος που βασίζεται στο δεύτερο κύτταρο - αλλιώς , δεν έχει σημασία τι αλλάζει Excel κάνει στο δεύτερο κελί , χωρίς αλλαγές θα εμφανίζονται στην πρώτη
εικόνων 3

Ανοίξτε το παράθυρο μακροεντολής . Στο Excel 2007 ή αργότερα , να το κάνετε αυτό κάνοντας κλικ στο "Προβολή" καρτέλα της κορδέλας , στη συνέχεια, κάνοντας κλικ στην επιλογή " Μακροεντολές ". Σε παλαιότερες εκδόσεις του Excel , κάντε κλικ στο μενού "Εργαλεία" , επιλέξτε " Macro " στη συνέχεια επιλέξτε " Μακροεντολές ".
Η

4 Πληκτρολογήστε ένα όνομα για το στόχο σας Επιδιώξτε μακρο Macro σε παράθυρο , και κάντε κλικ στο "Δημιουργία . " Αυτό θα ξεκινήσει το Visual Basic for Applications editor και να σας δείξω το κείμενο της νέας Macro , η οποία θα ξεκινήσει ως ένα άδειο υπορουτίνα σαν αυτό :

Sub MyMacroName ( ) End Sub
5

Δημιουργήστε ένα αντικείμενο που αντιπροσωπεύει το εύρος κελί για το οποίο έχουν μια γνωστή εστία (το πρώτο κύτταρο από το Στάδιο 2 ) . Για παράδειγμα , αν θέλετε να Goal Seek κελί A1 , γράψτε : .

Δημ. goalCell Όπως RangegoalCell = ThisWorkbook.Worksheet ( 1 ) Range ( "A1" )
Η 6

Δημιουργία ενός αντικειμένου Range αντιπροσωπεύει το κελί που θέλετε να αλλάξετε το Excel για να προκαλέσει το πρώτο κύτταρο για την επίτευξη του στόχου γνωστή . Για παράδειγμα , αν θέλετε το Excel να χειραγωγήσουν το κελί A2 , γράψτε : .

Δημ. variableCell Όπως RangevariableCell = ThisWorkbook.Worksheet ( 1 ) Range ( " A2 " )
Η 7

Καλέστε τη μέθοδο GoalSeek του Range του κυττάρου στόχου του . Δεδομένου ότι το πρώτο επιχείρημα , παρέχει την τιμή που θα θέλατε να Goal Επιδιώξτε να ? Ως το δεύτερο επιχείρημα , παρέχουν Σειρά της μεταβλητής κυττάρου . Για παράδειγμα , αν θέλετε να Goal Seek σε 0 , γράψτε :

goalCell.GoalSeek ( 0 , variableCell )
Η
εικόνων