Αυτό το άρθρο θα δείξει πώς να χρησιμοποιήσετε το VBA για να βρείτε μια τιμή σε μια στήλη.
Μπορούμε να χρησιμοποιήσουμε το εύρος. Εύρεση για να περιμένετε μια στήλη τιμών στο VBA για να βρείτε όλα τα κελιά της περιοχής που ταιριάζουν με τα καθορισμένα κριτήρια.
Επαναφορά σε μια στήλη με το εύρος. Εύρεση και εύρος. Εύρεση επόμενου
Στο παρακάτω παράδειγμα, περιηγούμαστε τα δεδομένα στη στήλη και αναζητούμε τη λέξη "ληξιπρόθεσμα". Όταν βρει τη λέξη, θα επισημάνει το κελί αλλάζοντας το χρώμα του κειμένου του κελιού σε κόκκινο. Στη συνέχεια, θα χρησιμοποιήσουμε τη μέθοδο Range.FindNext για να μετακινηθούμε στο επόμενο κελί και να συνεχίσουμε να αναζητούμε τη λέξη, συνεχίζοντας τον βρόχο μέχρι το τέλος του καθορισμένου εύρους κελιών.
| 1234567891011121314151617 | Υπο FindLoop ()Dim strFirstAddress As StringDim rngFindValue As RangeDim rngΑναζήτηση ως εύροςDim rngΒρείτε ως εύροςΟρισμός rngFind = ActiveSheet.Range ("F1: F17")Ορισμός rngSearch = rngFind.Cells (rngFind.Cells.Count)Ρύθμιση rngFindValue = rngFind.Find ("ληξιπρόθεσμο", rngSearch, xlValues)Αν όχι rngFindValue δεν είναι τίποτα τότεstrFirstAddress = rngFindValue.AddressrngFindValue.Font.Color = vbRedΚάνωΟρισμός rngFindValue = rngFind.FindNext (rngFindValue)rngFindValue.Font.Color = vbRedΒρόχος μέχρι rngFindValue.Address = strFirstAddressΤέλος εανΤέλος υπο |
Όταν εκτελείται ο κώδικας, αποθηκεύει τη διεύθυνση του πρώτου κελιού όπου βρίσκονται τα δεδομένα στη μεταβλητή strFirstAddress και αλλάζει το χρώμα του κειμένου σε κόκκινο. Στη συνέχεια δημιουργείται ένας βρόχος για να βρει το επόμενο κελί που περιέχει τα απαιτούμενα δεδομένα. Όταν βρεθεί η τιμή, το χρώμα του κειμένου αλλάζει σε κόκκινο και στη συνέχεια η διεύθυνση του κελιού όπου βρίσκεται η τιμή συγκρίνεται με τη συμβολοσειρά strFirstAddressΤο Εάν αυτά δεν είναι τα ίδια, ο βρόχος συνεχίζεται, βρίσκοντας κάθε περίπτωση της λέξης "ληξιπρόθεσμο". Μόλις ο βρόχος φτάσει στο τέλος της περιοχής κυψελών (δηλαδή F17), θα ξεκινήσει πίσω στην αρχή του εύρους (F1) και θα συνεχίσει να κάνει βρόχο. Μόλις φτάσει τη διεύθυνση κελιού F3 για δεύτερη φορά, καθώς είναι ίδια με την αποθηκευμένη μεταβλητή strFirstAddress, ο βρόχος θα σταματήσει.
