Σύγκριση περιοχών

[kapetang]

Δημιουργός: Γιώργος Καπετανόπουλος (Kapetang)
Ημερομηνία: 13/8/2016
-------------------------------------------------------------------------------------------

Σύγκριση περιοχών

Αρκετές φορές χρειάζεται να συγκρίνουμε τα στοιχεία μιας περιοχής κελιών με τα στοιχεία μιας άλλης περιοχής (βασική περιοχή) και να βρούμε τα στοιχεία της που υπάρχουν ή δεν υπάρχουν στη άλλη περιοχή (βασική περιοχή).

Μια λύση στο παραπάνω πρόβλημα δίνεται, με κώδικα (VBA), στο συνημμένο αρχείο.

Κάθε περιοχή, ανεξάρτητα από την άλλη, μπορεί να έχει μορφή γραμμής, στήλης ή ορθογωνίου.

Συνεπώς μπορεί να έχουμε, με βάση τη μορφή των περιοχών, 9 συνδυασμούς.

Ο κώδικας αντιμετωπίζει και τις 9 περιπτώσεις.

Επίσης οι περιοχές μπορεί να είναι στο ίδιο ή σε διαφορετικά φύλλα.

Για τον ορισμό κάθε περιοχής ο χρήστης θα πρέπει να δώσει τα κελιά που την ορίζουν στη μορφή C2:L100 (προσοχή οι χαρακτήρες είναι αγγλικοί) και το όνομα του φύλλου που την περιέχει.

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

Τα παραπάνω στοιχεία συμπληρώνονται σε μια φόρμα χρήστη (User Form).

Στη φόρμα θα πρέπει να τσεκάρουμε ή να καθαρίσουμε ένα CheckBox, αν θέλουμε τα στοιχεία που ανήκουν στη βασική περιοχή ή αυτά που δεν ανήκουν.

Η μέθοδος, σε γενικές γραμμές, εκτελεί τα παρακάτω βήματα:

1) Αντιγράφει τα στοιχεία της βασικής περιοχής σε ένα μονοδιάστατο Array Z

2) Ταξινομεί τα στοιχεία του Array Z

3) Εκτελεί δυαδική αναζήτηση στο ταξινομημένο Array, για κάθε στοιχείο της προς σύγκριση περιοχής και δημιουργεί ένα Array X με τα στοιχεία που ικανοποιούν τους όρους αναζήτησης (ανήκουν ή δεν ανήκουν στη βασική περιοχή).

4) Εμφανίζει το αποτέλεσμα.

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

Σημειώνω ότι, στον υπολογιστή μου, για τη σύγκριση των στηλών που υπάρχουν στο φύλλο [Σύγκριση ...], χρειάζεται 0,5 δευτερόλεπτα, ενώ η προηγούμενη πρότασή μου και του Σπύρου, 14 και 74 δευτερόλεπτα αντίστοιχα.

Για τις προηγούμενες προτάσεις κλικ: http://www.ms-office.gr/forum/excel-...si-stilon.html