[VBA] κώδικας κατασκευής συνδυασμών αριθμών

[Δημήτριος57]

Γιώργο μιας και δεν έχω ύπνο, και σκεπτόμενος διάφορα, μου ήρθε μια ακόμα ιδέα για την βελτίωση της ρουτίνας.
Έτσι όπως είναι το Input Box με αναγκάζει να δίνω συνεχόμενους αριθμούς. π.χ. αν γράψω στο Input Box για 'n' τον αριθμό 35 θα έχω συνεχόμενους αριθμούς, από το 1 έως το 35.
Θα ήταν πολύ καλύτερο αν έγραφα σε μια περιοχή του φύλου τους αριθμούς που εγώ έχω επιλέξει, και η ρουτίνα να τους διαβάζει από εκεί.
Με τον τρόπο αυτό μπορώ να έχω εξαίρεση κάποιον αριθμών από τον υπολογισμό των συνδυασμών.
Ευχαριστώ και πάλι για την υπομονή σου να διαβάσεις τα μηνύματα μου. .....Πάω για ύπνο τελικά...

[kapetang]

Καλημέρα

Δημήτρη, δες τα συνημμένα.

Και στα δύο οι επιλογές για τη δημιουργία των συνδυασμών γίνεται από ένα σύνολο αριθμών.

Στο 1ο οι συνδυασμοί καταχωρούνται στο φύλλο όλοι μαζί.

Στο 2ο ένας ένας.

Για τα υπόλοιπα δεν υπάρχει ο απαραίτητος χρόνος…

Προσθήκη
Έγινε αντικατάσταση του αρχείου ShowCombinsByOne.xlsm, λόγω βελτίωσης της ταχύτητας του κώδικα.

Παρά τη βελτίωση όμως, όταν έχουμε πολλούς συνδυασμούς (πχ n=27 m=7), σε σχέση με το ShowCombins.xlsm, είναι υπερβολικά αργό.

[Δημήτριος57]

Γιώργο καλησπέρα
Για κάποιο λόγο δεν μπορούσα να δω τα δυο τελευταία μηνύματα σου από το Chrome, και έτσι νόμιζα πως δεν έχω άλλα μηνύματα. Τελικά συνδέθηκα με το Microsoft Edge, και όλα Ο.Κ.
Αν και τα δύο συνημμένα δεν έχουν κάποια πρακτική αξία για μένα, γιατί αυτό που χρειάζομαι είναι συνδυασμοί με 'n'=40 έως 45 αριθμούς, και 'm' 10 ή 12 ή 20 ή 25 αριθμούς.
Όμως αυτός ο κώδικας δεν μπορεί να εκτελέσει τόσο μεγάλο πλήθος συνδυασμών.
Όπως και να έχει... σε ευχαριστώ πολύ για την προσπάθεια, και για τον χρόνο που <δεν έχεις>, αλλά διέθεσες για μια λύση του προβλήματος.

[kapetang]

Καλησπέρα

Δημήτρη στο post #5 γράφεις:

"2) Oi 'n' αριθμοί θα είναι έως 30 το πολύ. Οι 'm' αριθμοί θα είναι από 5 έως 6"

και στο τελευταίο post:

"..... αυτό που χρειάζομαι είναι συνδυασμοί με 'n'=40 έως 45 αριθμούς, και 'm' 10 ή 12 ή 20 ή 25 αριθμούς."

Για n=40 και m=20 το πλήθος των συνδυασμών είναι 137.846.528.820 και ο χρόνος υπολογισμού μάλλον υπερβαίνει το έτος!

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

Πάντως ο κώδικας (δεν ξέρω που τον βρήκες) παρουσιάζει ενδιαφέρον (χρησιμοποιεί αναδρομικό προγραμματισμό) και θα μπορούσε να χρησιμοποιεί για πλήθος συνδυασμών μέχρι 1.048.570 (πλήθος γραμμών Excel).

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

[Δημήτριος57]

Φίλε Γιώργο....Κάποιες φορές νομίζουμε ότι ξέρουμε τι θέλουμε...τέλος πάντων, νομίζω ότι το θέμα combination έχει ενδιαφέρον από προγραμματιστικής άποψης, και για το λόγο αυτό (πληροφοριακά και μόνο) θα αναφέρω τον κώδικα της Myrna Larson αν έχεις ακουστά, πού κάνει τα πάντα, αλλά αδυνατώ να τον κατανοήσω.
Καλή συνέχεια και σε εσένα.