[VBA] Σύγκριση Στηλών

[Spirosgr]

Δημιουργός: Spirosgr
Έτος: 2016
Κώδικας: ΝΑΙ
Βαθμός Δυσκολίας: 6/10

Πολλές φορές, θα χρειαστεί να συγκρίνουμε, κάποιες στήλες σε ένα έργο μας
και να «πάρουμε» τις τιμές που δεν συμπίπτουν, σε κάποια άλλη στήλη.

Στο βιβλίο που ακολουθεί, (.xlsm) υπάρχει μια λύση στο πρόβλημα αυτό, με κώδικα.

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

Σημείωση:
Για να είναι γρήγορος ο κώδικας, στην εκκίνηση, σταματά τους υπολογισμούς
και τους επαναφέρει στο τέλος.
Αν κατά τη διάρκεια των δοκιμών σας, κάνετε κάποιο λάθος και «χτυπήσει» ο κώδικας,
να ελέγξετε και να επαναφέρετε τους υπολογισμούς στο αυτόματο, από:

Κορδέλα >> Τύποι >> Επιλογές υπολογισμού ή
Κορδέλα >> Formulas >> Calculation Options ανάλογα με την γλώσσα του Office.

Καλή επιτυχία!

[kapetang]

Καλημέρα

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

Στην στήλη Α υπάρχουν περίπου 20.000 ονόματα τυχαία ταξινομημένα και στη στήλη Β 30.000, επίσης τυχαία ταξινομημένα.

Στον υπολογιστή μου η σύγκριση των δεδομένων χρειάστηκε 74 και 14 δευτερόλεπτα, αντίστοιχα.

Αν το ψάξει κάποιος περισσότερο ίσως δημιουργήσει και ακόμα ταχύτερο κώδικα.

Φιλικά/Γιώργος