Excel / VBA - A Εύρεση αναζήτησης με πολλαπλές επιστροφές

Μια απλή αναζήτηση επιστρέφει που θα επιστρέψει την πρώτη συντεταγμένη.

Σε ορισμένες περιπτώσεις είναι απαραίτητο να γνωρίζουμε όλες τις λεπτομέρειες των περιστατικών που βρέθηκαν.
Αυτό επιτυγχάνεται με την παρακάτω λειτουργία.

Σε μια δημόσια ενότητα

 'Retourne toutes les adresses trouvées dans la recherche' WkbN = nom classeur, με την προϋπόθεση ότι δεν μπορεί να χρησιμοποιηθεί ως βάση για την εκπόνηση μιας πρότασης για την εκπόνηση του σχεδίου. 'Απαράδεκτο το επιχείρημα. Λειτουργία RechFind (ByVal Cle ως συμβολοσειρά, ByVal WkbN ως συμβολοσειρά, ByVal WksN ως συμβολοσειρά, ByVal Plage ως συμβολοσειρά, ByRef TBadress () ως παραλλαγή) Όσο μακρύ Dim Cherche, Ix όσο Long, PrAddress με βιβλία εργασίας (WkbN). (Ix) TBadress (Ix) = Cherche.Address Σετ Cherche = .FindNext (Cherche) Ix = Ix (Ix) = Ix = + 1 Βρόχος αν και δεν είναι Cherche Δεν υπάρχει τίποτα και Cherche.Address PrAddress Τέλος Αν τελειώσει με 'nombre d'occurence (s) προβλήματα, Retour 0 και aucune occurence RechFind = Ix Set Cherche = Τίποτα' Libére la mémoire occupée par l ' objet. Λειτουργία τερματισμού

Προσθέστε σε ένα βιβλίο εργασίας Xla.

Χρησιμοποιώντας μια μακροεντολή

 (2), RB (), TB ()) Εάν R> 0 Στη συνέχεια Για i = 0 Προς τα R - 1 'ou ubound (TB)' παραδείγματα Φύλλα («Feuil1») Κύτταρα (i + 4, 5) = Εύρος (TB (i)).

Χρησιμοποιώντας ένα κουμπί κλήσης

 (E2: E2), ThisWorkbook.Name, ActiveSheet.Name, Range ("B1"), RB () : B500 ") Διεύθυνση, TB ()) Εάν R> 0 Στη συνέχεια Για i = 0 Σε R - 1 'ou ubound (TB)' Φύλλα παραδείγματος (" Feuil1 " TB (i)) Σειρά Επόμενο i Τέλος Αν End Sub