Αυτό το σεμινάριο θα σας δείξει πώς να χρησιμοποιήσετε το Goal Seek στο VBA
Το Goal Seek είναι ένα από τα εργαλεία ανάλυσης What -if που διατίθεται στο Excel και σας επιτρέπει να εφαρμόσετε διαφορετικές τιμές σε τύπους και να συγκρίνετε τα αποτελέσματα.
Goal Seek Syntax
Η συνάρτηση GoalSeek έχει 2 ορίσματα - τον στόχο (το κελί που θέλετε να αλλάξετε) και το ChangingCell (το κελί που πρέπει να τροποποιηθεί). Η συνάρτηση επιστρέφει Σωστό ή Λάθος - Σωστό αν βρεθεί ο Στόχος και Λάθος αν ο Στόχος δεν βρεθεί.
Χρήση του Goal Seek στο VBA
Εξετάστε το παρακάτω φύλλο εργασίας παρακάτω.
Για να αλλάξουμε την αποπληρωμή που απαιτείται κάθε μήνα αλλάζοντας τη διάρκεια σε μήνες, μπορούμε να γράψουμε την ακόλουθη διαδικασία.
| 1234 | Sub IncreaseTerm ()«κάντε το Β6 100 αλλάζοντας το Β5Εύρος ("B6"). GoalSeek Goal: = 100, ChangingCell: = Range ("B5")Τέλος υπο |
Σημειώστε ότι πρέπει να υπάρχει ένας τύπος στο κελί Β6 και μια τιμή στο κελί Β5.
Χρήση στόχου αναζήτησης με μια δήλωση If
Μπορείτε επίσης να χρησιμοποιήσετε το GoalSeek με μια δήλωση If για να κατευθύνετε τη ροή του κώδικα σας.
| 12345678 | Sub IncreaseTerm ()«κάντε B6 100 αλλάζοντας B5 - και επιστρέψτε ένα μήνυμα στον χρήστηIf Range ("B6"). GoalSeek (Goal: = 100, ChangingCell: = Range ("B5")) = True ΤότεMsgBox "Ο νέος όρος βρέθηκε με επιτυχία"ΑλλούMsgBox ("Δεν βρέθηκε νέος όρος")Τέλος εανΤέλος υπο |
