Λειτουργία εύρεσης VBA | Πώς να χρησιμοποιήσετε τη λειτουργία εύρεσης VBA; (Παραδείγματα)

Εύρεση VBA Excel

Όταν χρησιμοποιούμε το Find σε ένα κανονικό φύλλο εργασίας, πατάμε τη συντόμευση πληκτρολογίου CTRL + F και πληκτρολογούμε τα δεδομένα που πρέπει να βρούμε και αν δεν επιθυμούμε την τιμή πηγαίνουμε στον επόμενο αγώνα, εάν υπάρχουν πολλές τέτοιες αντιστοιχίες, είναι μια κουραστική εργασία, αλλά όταν χρησιμοποιούμε το FIND στο VBA κάνει τα καθήκοντα για εμάς και μας δίνει την ακριβή αντιστοίχιση και παίρνει τρία επιχειρήματα, το ένα είναι τι να βρούμε, πού να βρούμε και πού να κοιτάξουμε.

Πριν προχωρήσουμε στο VBA και αρχίσουμε να χρησιμοποιούμε τη λειτουργία εύρεσης σε μακροεντολές, πρέπει πρώτα να μάθουμε τι είναι η λειτουργία εύρεσης στο excel. Στο κανονικό excel στην καρτέλα Home κάτω από την ομάδα επεξεργασίας, μπορούμε να βρούμε μια λειτουργία εύρεσης που χρησιμοποιείται για να βρει μια συμβολοσειρά ή μια τιμή σε μια περιοχή κελιών ή σε ολόκληρο το φύλλο εργασίας.

Όταν κάνουμε κλικ σε αυτό, έχουμε δύο επιλογές:

Το ένα είναι εύκολο να βρεθεί,

Μπορούμε να δούμε ότι έχει επίσης έναν τρόπο επιλογών που ανοίγει μια άλλη δυνατότητα.

Κάνει τον αλγόριθμο εύρεσης με τέσσερις περιορισμούς, Βρείτε τι, Εντός, Αναζήτηση και κοιτάξτε μέσα.

Η δεύτερη επιλογή στο excel είναι να βρείτε και να αντικαταστήσετε το οποίο χρησιμοποιείται όταν βρούμε μια συμβολοσειρά αλλά τι να την αντικαταστήσουμε με οποιαδήποτε άλλη τιμή,

Εύρεση συνάρτησης συναρτήσεων

Μάθαμε παραπάνω τι είναι το Find in basic excel. Στο VBA γράφουμε κωδικούς χειροκίνητα, αλλά οι δυνατότητες είναι ίδιες με το κανονικό excel. Πρώτον, ας δούμε τη σύνταξη.

Expression.Find (What, lookin,….)

Εάν η τιμή που αναζητούμε βρίσκεται με τη συνάρτηση excel, επιστρέφει το κελί όπου βρίσκεται η τιμή και αν η τιμή δεν βρεθεί, τότε το αντικείμενο της συνάρτησης τίθεται σε τίποτα.

Οι εκφράσεις σε μακροεντολές είναι εύρη που ορίζονται όπως εύρος 1 ή εύρος 2. Τι είναι μια λέξη-κλειδί για αυτό που θέλουμε να αναζητήσουμε μια συγκεκριμένη τιμή; Το Lookin είναι μια λέξη-κλειδί για αυτό που προσπαθούμε να αναζητήσουμε είναι ένα σχόλιο ή ένας τύπος ή μια συμβολοσειρά. Ομοίως, υπάρχουν και άλλοι περιορισμοί στη λειτουργία Εύρεση που είναι προαιρετικοί. Το μόνο υποχρεωτικό πεδίο που απαιτείται είναι η τιμή που προσπαθούμε να αναζητήσουμε.

Βασικά, το VBA βρίσκει το Excel να έχει ένα απαιτούμενο όρισμα που είναι Ποια τιμή θέλουμε να αναζητήσουμε. Οι υπόλοιποι περιορισμοί είναι προαιρετικοί και υπάρχουν πολλοί περιορισμοί στη λειτουργία εύρεσης. Η λειτουργία εύρεσης είναι παρόμοια με τη λειτουργία εύρεσης στο Excel.

Η παράμετρος για τη λειτουργία εύρεσης είναι το εύρος των κελιών. Όπως σε ποιο εύρος θέλουμε να βρούμε μια τιμή. Μπορεί να είναι μερικές στήλες ή λίγα κελιά ή ένα ολόκληρο φύλλο εργασίας.

Παραδείγματα

Μπορείτε να πραγματοποιήσετε λήψη αυτού του προτύπου VBA FIND Function Excel - Πρότυπο VBA FIND Function Excel

Παράδειγμα # 1

Ας υποθέσουμε ότι τα δεδομένα μας έχουν τις ακόλουθες τιμές

Θα προσπαθήσουμε να βρούμε το "Aran" στα ίδια δεδομένα.

  • Για να γράψετε έναν κώδικα VBA είναι απαραίτητο να έχετε ενεργοποιήσει την καρτέλα προγραμματιστή στο excel για να μπορέσετε να γράψετε Κωδικούς VBA.

  • Αρχίζουμε να γράφουμε τον κωδικό μας γράφοντας τον ακόλουθο κώδικα όπως φαίνεται παρακάτω,
Υπο δείγμα ()

Dim FindS ως συμβολοσειρά

Dim Rng ως εύρος

FindS = InputBox ("Εισαγάγετε την τιμή που θέλετε να αναζητήσετε")

Με φύλλα ("Sheet1"). Εύρος ("A: A")

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

  • Τώρα θα καθορίσουμε τη λειτουργία εύρεσης στη μονάδα.

  • Η συνάρτηση βρίσκει την τιμή που έχει εισαγάγει ο χρήστης στο δεδομένο εύρος.
  • Τώρα κλείνουμε τη συνάρτηση με τα ακόλουθα ορίσματα.

  • Τώρα αν εκτελέσουμε τον κωδικό μας πρώτα ζητά μια ερώτηση από τον χρήστη για μια τιμή.

  • Μόλις ολοκληρωθεί ο κωδικός, επιστρέφει το κελί στο σημείο όπου βρέθηκαν τα δεδομένα.

Παράδειγμα # 2

Στο παραπάνω παράδειγμα, υπήρχαν τέσσερα μοναδικά ονόματα, αλλά τι θα συνέβαινε αν υπήρχαν περισσότερα από ένα ονόματα στα δεδομένα, όπως εξετάστε τα παρακάτω δεδομένα,

Μπορούμε να δούμε ότι το όνομα Aran επαναλαμβάνεται δύο φορές στα παραπάνω δεδομένα. Εάν το excel πρέπει να βρει το όνομα Aran, θα το βρει στο κελί A2 και θα σταματήσει, αλλά υπάρχει μια άλλη τιμή παρόμοια με εκείνη του A2 στο κελί A6. Πώς να αποκτήσετε αυτήν την τιμή; Εδώ έρχεται η σύνταξη του Find (What, After) σε βοήθεια.

Μετά καθορίζει το κελί μετά από ποια αναφορά θέλουμε να αναζητήσουμε τα δεδομένα.

Ας γράψουμε τον κωδικό για τα παραπάνω δεδομένα.

  • Να θυμάστε πάντα να ενεργοποιήσετε την καρτέλα προγραμματιστή από τις επιλογές και στη συνέχεια από την προσαρμογή κορδέλας στο excel για να μπορείτε να γράφετε τον κώδικα στο VBA.
  • Στο VBA λαμβάνουμε Microsoft excel αντικείμενα που είναι μια ενότητα όπου γράφουμε τους κωδικούς.

  • Προηγουμένως εργαζόμασταν στο φύλλο 1 τώρα εργαζόμαστε στο φύλλο 2, οπότε επιλέξτε το φύλλο 2 για μια άλλη ενότητα και εμφανίζεται μια κενή σελίδα.

  • Τώρα ξεκινήστε να γράφετε τον κωδικό ορίζοντας πρώτα τη συνάρτηση ως SUB Sample2 () και πατήστε enter.

  • Τώρα έχουμε καθορίσει τη λειτουργία μας, θα αρχίσουμε να μπαίνουμε στο κύριο μέρος που καθορίζει τις μεταβλητές μας.

  • Ορίστε τι πρέπει να έχει η μεταβλητή Find,

  • Επιλέξτε τα φύλλα στα οποία εργαζόμαστε και είναι το φύλλο 2 σε αυτό το παράδειγμα,

  • Τώρα θα βρούμε το κείμενο ό, τι ο χρήστης εισάγει μετά από το κελί A2, οπότε ορίζουμε τη λειτουργία εύρεσης όπως παρακάτω

  • Τώρα κλείνουμε τον κωδικό τερματίζοντας τους όρους και εάν.

Αυτό που κάνει ο παραπάνω κώδικας είναι η αναζήτηση της συμβολοσειράς μετά το κελί A2 και η επιστροφή του κελιού όπου βρίσκεται.

Πράγματα που πρέπει να θυμάστε

  1. Πρώτα πράγματα πρώτα πρέπει να ενεργοποιήσουμε την καρτέλα προγραμματιστή για να χρησιμοποιήσουμε το VBA.
  2. Ποια είναι η συγκεκριμένη τιμή που πρέπει να βρούμε;
  3. Εάν η τιμή δεν βρεθεί, το αντικείμενο της συνάρτησης τίθεται σε τίποτα.

$config[zx-auto] not found$config[zx-overlay] not found