Λειτουργία Excel VBA LOOKUP
Το Lookup είναι η συνάρτηση που μας βοηθά να πάρουμε τα δεδομένα από τον κύριο πίνακα με βάση μια μόνο τιμή αναζήτησης. Η συνάρτηση VBA LOOKUP δεν απαιτεί δομή δεδομένων όπως αυτή, για τη συνάρτηση LOOKUP δεν έχει σημασία αν η στήλη αποτελεσμάτων βρίσκεται στα δεξιά ή αριστερά της τιμής αναζήτησης, ωστόσο, μπορεί να πάρει τα δεδομένα άνετα.
Αυτό λειτουργεί παρόμοια με τη λειτουργία VLOOKUP, αλλά το πιο σημαντικό, αυτό είναι ευέλικτο σε μια δομή δεδομένων. Όταν λέμε ευέλικτη στη δομή δεδομένων, αυτό σημαίνει ότι το VLOOKUP χρειάζεται όλες τις τιμές στα δεξιά μιας τιμής αναζήτησης στον κύριο πίνακα και ό, τι απομένει στην τιμή αναζήτησης δεν μπορεί να το βρει.
Σύνταξη
Εάν έχετε ήδη αναζητήσει τον τύπο LOOKUP στον επεξεργαστή VBA, είμαι βέβαιος ότι έχετε τρελαθεί επειδή υπάρχει ένας τύπος που ονομάζεται LOOKUP στο VBA.
Ο λόγος για τον οποίο δεν είναι διαθέσιμο από προεπιλογή, επειδή το LOOKUP δεν είναι μια συνάρτηση VBA, αλλά είναι μια συνάρτηση φύλλου εργασίας. Επομένως, για να χρησιμοποιήσουμε τη συνάρτηση LOOKUP, πρέπει πρώτα να χρησιμοποιήσουμε τη συνάρτηση φύλλου εργασίας στην τάξη VBA.
- Το Arg 1 σημαίνει τιμή αναζήτησης
- Το Arg 2 είναι το διάνυσμα αναζήτησης, δηλαδή το εύρος της στήλης τιμών αναζήτησης
- Το Arg 3 είναι το διάνυσμα αποτελεσμάτων μας.
Πώς να χρησιμοποιήσετε τη λειτουργία αναζήτησης VBA; (Παραδείγματα)
Παράδειγμα # 1
Έχουμε τα ακόλουθα δεδομένα από τα οποία θέλουμε να λάβουμε τη Μέση τιμή ενός συγκεκριμένου ονόματος προϊόντος χρησιμοποιώντας τη λειτουργία αναζήτησης στο VBA Excel.
Για να λάβετε τη μέση τιμή των αξεσουάρ για κινητά, χρησιμοποιήστε τον ακόλουθο κωδικό.
Βήμα 1: Ξεκινήστε την υποδιαδικασία στο VBA.
Κώδικας:
Υπο Lookup_Example1 () End Sub
Βήμα 2: Χρειάζομαι το αποτέλεσμα στο κελί F3. Ο κωδικός μου λοιπόν είναι Range ("F3"). Value =.
Κώδικας:
Υπο Lookup_Example1 () Range ("F3"). Value End Sub
Βήμα 3: Όπως είπα, δεν μπορούσαμε αμέσως να αποκτήσουμε πρόσβαση στη λειτουργία LOOKUP. Αρχικά, χρησιμοποιήστε την κλάση Λειτουργία φύλλου εργασίας.
Βήμα 4: Τη στιγμή που εφαρμόζουμε την κλάση Λειτουργία φύλλου εργασίας, μπορούμε να δούμε όλους τους διαθέσιμους τύπους με αυτήν την τάξη στο VBA, οπότε επιλέξτε LOOKUP από αυτήν τη λίστα.
Βήμα 5: Με λειτουργίες φύλλου εργασίας στο VBA, δεν βλέπουμε σαφή επιχειρήματα του τύπου. Εδώ το Arg 1 σημαίνει τιμή αναζήτησης. Η τιμή αναζήτησης βρίσκεται στο κελί E3, οπότε γράψτε τον κωδικό ως Range ("E3").
Κώδικας:
Υπο Lookup_Example1 () Range ("F3"). Value = WorksheetFunction.Lookup (Range ("E3"). Value End Sub
Βήμα 6: Το Arg 2 είναι το διάνυσμα αναζήτησης, δηλαδή το εύρος της στήλης της τιμής αναζήτησης. Σε αυτό το παράδειγμα, το εύρος διανυσμάτων αναζήτησης είναι από B3 έως B10.
Κώδικας:
Υπο Lookup_Example1 () Range ("F3"). Value = WorksheetFunction.Lookup (Range ("E3"). Value, Range ("B3: B10"), End Sub
Βήμα 7: Το Arg 3 είναι το διάνυσμα αποτελεσμάτων μας. Χρειαζόμαστε το αποτέλεσμα από τη στήλη Μέση τιμή, οπότε το διάνυσμα αποτελεσμάτων είναι από το εύρος C3 έως C10.
Κώδικας:
Υπο Lookup_Example1 () Range ("F3"). Value = WorksheetFunction.Lookup (Range ("E3"). Value, Range ("B3: B10"), Range ("C3: C10")) End Sub
Εντάξει, τελειώσαμε με την κωδικοποίηση VBA.
Ας τρέξουμε τον κώδικα και θα πρέπει να έχουμε το αποτέλεσμα στο κελί F3.
Έτσι, μπορούμε να χρησιμοποιήσουμε τη συνάρτηση LOOKUP κάτω από την κλάση λειτουργίας φύλλου εργασίας για να πάρουμε τα δεδομένα της παρεχόμενης τιμής αναζήτησης.
Παράδειγμα # 2
Χρησιμοποιήστε μεταβλητές για συνάρτηση LOOKUP
Χρησιμοποιώντας επίσης μεταβλητές μπορούμε να καταλήξουμε σε αποτελέσματα. Παρακάτω είναι το παράδειγμα κώδικα της συνάρτησης αναζήτησης με μεταβλητές.
Κώδικας:
Υπο Lookup_Example2 () Dim ResultCell As Range Dim LookupValueCell As Range Dim LookVector As Range Dim ResultVector As Range Set ResultCell = Range ("F3") Set LookupValueCell = Range ("E3") Set LookupVector = Range ("B3: B10") Set ResultVector = Range ("C3: C10") ResultCell = WorksheetFunction.Lookup (LookupValueCell, LookupVector, ResultVector) End Sub
Ακόμα κι αν φαίνεται μακρά, θα δώσει καλή έκθεση σε μεταβλητές στο VBA. Αντί να παρέχουμε όλες τις τιμές στον τύπο απευθείας, δηλώσαμε μεταβλητές και τους αντιστοιχίσουμε σύνολο εύρους και τιμών.
Η δήλωση μεταβλητών και ο καθορισμός της αναφοράς σε αυτές τις μεταβλητές είναι πάντα μια καλή πρακτική σε οποιαδήποτε γλώσσα κωδικοποίησης.
Πράγματα που πρέπει να θυμάστε
- Το LOOKUP είναι μια εναλλακτική λειτουργία για το VLOOKUP.
- Το LOOKUP δεν απαιτεί απαραίτητα τη στήλη αποτελεσμάτων να βρίσκεται στα δεξιά της τιμής αναζήτησης.
- Το μήκος εύρους τόσο του διανύσματος αναζήτησης όσο και του διανύσματος αποτελέσματος πρέπει να είναι το ίδιο.
- Το πιο σημαντικό, πρέπει να παρέχουμε έναν αριθμό ευρετηρίου στηλών, ο οποίος είναι απαραίτητος για τη συνάρτηση VLOOKUP.
