[Γενικά] Ταξινόμηση

[comsup]

Καλησπέρα σε όλους!
Υπάρχουν πολλά θέματα στην ταξινόμηση αλλά δυστυχώς δεν βρήκα αυτό που ψάχνω.
Έχω σε ένα φύλλο έναν πίνακα με λέξη ή λέξεις και ένα άλλο φύλλο με τον αντίστοιχο πίνακα με αριθμούς.
Θέλω να ταξινομήσω όλα τα στοιχεία του 1ου φύλλου των λέξεων με βάση τους αντίστοιχους αριθμούς σε ένα 3ο φύλλο σε μία μονοκόμματη λίστα.
Ο πίνακας λέξεων μπορεί να έχει κενά κελιά.
Το αρχείο που ανέβασα είναι ενδεικτικό.
Ευχαριστώ για το χρόνο σας

[Tasos]

Καλημέρα!

Δημήτρη πες μας αν οι αριθμοί στο φύλλο "Φύλλο2" είναι μοναδικοί ή όχι.

Φιλικά

Τάσος

[comsup]

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

[gr8styl]

Δημήτρη δες το φύλλο 4 του συνημμένου και πες μας αν έγινε.

[comsup]

Καλησπέρα Τάσο, δουλεύει μια χαρά. Θα το μεταφέρω στο δικό μου και θα ανεβάσω το αποτέλεσμα για να υπάρχει.
Αν συναντήσω δυσκολία θα στείλω μήνυμα.
Ευχαριστώ πολύ! Δεν το λέω τυπικά, πραγματικά είμαι πολύ ευχαριστημένος που μου έδωσες μια τόσο καλή λύση

[comsup]

Φίλε Τάσο πέρασα τη λύση που προτείνεις και όπως σου είπα δουλεύει τέλεια.
Ο λόγος που ανεβάζω το αρχείο είναι για να σε ρωτήσω κάποια πράγματα ακόμα τώρα που είναι πια κοντά στη δημιουργία του το πρόγραμμά μου.
Στο φύλλο "ΑΝΑ" που υπάρχουν οι λέξεις υπάρχου και πολλά κενά κελιά. Με δεδομένο ότι οι στήλες μου είναι 209 (!) και το πλήθος των γραμμών μου μπορεί να είναι κάποιες χιλιάδες θα προκύψει μεγάλο πρόβλημα στη διαχείριση τόσο μεγάλου όγκου πληροφοριών. Από τις 209 στήλες πιστεύω ότι οι αυτές που θα είναι συνήθως γεμάτες (κατά μέσο όρο) θα είναι 80-90. Άρα αξίζει τον κόπο να αποκλειστούν τα κενά επειδή είναι πάρα πολλά. Σκεφτόμουν έναν τρόπο ενδιάμεσο, ένα φύλλο ή πίνακα ο οποίος να τακτοποιεί κάπως μόνο τα γεμάτα κελιά (σαν την ανασυγκρότηση που κάνουμε στο δίσκο) και μετά να γίνεται η ταξινόμηση. Δεν έχω επαρκείς γνώσεις για αυτό.
Στο κελί D2 του φύλλου "ΤΑΞΙΝΟΜΗΣΗ" έχω δώσει το μέγεθος της λίστας σε στήλες, ακολουθώντας τις οδηγίες στο σχόλιο αντικατέστησα στον τύπο το 5 με το D2.
Το πλήθος των γραμμών του πίνακα δεν είναι γνωστό από πριν, εξαρτάται από τις αναφορές στο φύλλο "ΑΝΑ" στη στήλη Α. Πιθανολογώ ότι θα είναι μερικές χιλιάδες.(Οδύσσεια, Ιλιάδα κλπ)
Ευχαριστώ και πάλι.
Δημήτρης

[Tasos]

Καλησπέρα!

Δημήτρη, το ευχαριστώ ανήκει στο Θανάση.

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

Οι ρουτίνες SplitEx() και JoinEx() καταργήθηκαν και στη θέση τους μπήκαν κλασσικές συναρτήσεις.

Επίσης αντί της EvaluateText() χρησιμοποιείται πλέον η GetSumFromGreekChars() η οποία λαμβάνει υπόψη της όλους τους χαρακτήρες της πολυτονικής συμβολοσειράς και λόγω κατασκευής της είναι αρκετά γρηγορότερη.

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


Σου προτείνω αν έχεις τη δυνατότητα να χρησιμοποιήσεις μια από τις νεότερες εκδόσεις Excel.

Οι εκδόσεις Excel από την 2007 και έπειτα, σε αντίθεση με τις παλαιότερες μπορούν να χρησιμοποιούν όλους τους πυρήνες του επεξεργαστή δηλαδή το 100% της διαθέσιμης ισχύος του.

Η Excel 2003 (όπως και οι υπόλοιπες προγενέστερες εκδόσεις) σε έναν διπύρινο επεξεργαστή
θα μπορέσει να χρησιμοποιήσει το μέχρι το 50% της ισχύος του ενώ σε έναν τετραπύρινο επεξεργαστή μόνο το 25%. Για οκταπύρινο επεξεργαστή... δεν το συζητάμε καλύτερα.


Καλή συνέχεια!

Φιλικά

Τάσος

[comsup]

Παιδιά τα ευχαριστώ είναι λίγα. Το πρόγραμμα που θέλω να φτιάξω ήταν μεγάλο μεράκι εδώ και καιρό. Και απ ότι είδατε έχω χρησιμοποιήσει σχεδόν ότι χρήσιμο βρήκα εδώ στην κοινότητα.
Επειδή θα λείπω μέχρι την Κυριακή δεν θα μπορώ να το δοκιμάσω.
Με βάζεις στον πειρασμό να το ανοίξω με το 2007 αλλά δεν ξέρω αν χρειάζεται κάποια αλλαγή.
Χίλια ευχαριστώ

[comsup]

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