Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] κώδικας κατασκευής συνδυασμών αριθμών

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #11  
Παλιά 09-08-18, 00:33
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-08-2013
Μηνύματα: 8
Προεπιλογή

Γιώργο μιας και δεν έχω ύπνο, και σκεπτόμενος διάφορα, μου ήρθε μια ακόμα ιδέα για την βελτίωση της ρουτίνας.
Έτσι όπως είναι το Input Box με αναγκάζει να δίνω συνεχόμενους αριθμούς. π.χ. αν γράψω στο Input Box για 'n' τον αριθμό 35 θα έχω συνεχόμενους αριθμούς, από το 1 έως το 35.
Θα ήταν πολύ καλύτερο αν έγραφα σε μια περιοχή του φύλου τους αριθμούς που εγώ έχω επιλέξει, και η ρουτίνα να τους διαβάζει από εκεί.
Με τον τρόπο αυτό μπορώ να έχω εξαίρεση κάποιον αριθμών από τον υπολογισμό των συνδυασμών.
Ευχαριστώ και πάλι για την υπομονή σου να διαβάσεις τα μηνύματα μου. .....Πάω για ύπνο τελικά...
Απάντηση με παράθεση
  #12  
Παλιά 09-08-18, 12:52
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.747
Προεπιλογή

Καλημέρα

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

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

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

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

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

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

Παρά τη βελτίωση όμως, όταν έχουμε πολλούς συνδυασμούς (πχ n=27 m=7), σε σχέση με το ShowCombins.xlsm, είναι υπερβολικά αργό.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ShowCombins.xlsm (25,0 KB, 4 εμφανίσεις)
Τύπος Αρχείου: xlsm ShowCombinsByOne.xlsm (25,5 KB, 2 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη kapetang : 09-08-18 στις 18:42. Αιτία: Προσθήκη
Απάντηση με παράθεση
  #13  
Παλιά 10-08-18, 19:05
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-08-2013
Μηνύματα: 8
Προεπιλογή

Γιώργο καλησπέρα
Για κάποιο λόγο δεν μπορούσα να δω τα δυο τελευταία μηνύματα σου από το Chrome, και έτσι νόμιζα πως δεν έχω άλλα μηνύματα. Τελικά συνδέθηκα με το Microsoft Edge, και όλα Ο.Κ.
Αν και τα δύο συνημμένα δεν έχουν κάποια πρακτική αξία για μένα, γιατί αυτό που χρειάζομαι είναι συνδυασμοί με 'n'=40 έως 45 αριθμούς, και 'm' 10 ή 12 ή 20 ή 25 αριθμούς.
Όμως αυτός ο κώδικας δεν μπορεί να εκτελέσει τόσο μεγάλο πλήθος συνδυασμών.
Όπως και να έχει... σε ευχαριστώ πολύ για την προσπάθεια, και για τον χρόνο που <δεν έχεις>, αλλά διέθεσες για μια λύση του προβλήματος.
Απάντηση με παράθεση
  #14  
Παλιά 10-08-18, 19:50
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.747
Προεπιλογή

Καλησπέρα

Δημήτρη στο 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).

Καλή συνέχεια.
Απάντηση με παράθεση
  #15  
Παλιά 10-08-18, 20:14
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 26-08-2013
Μηνύματα: 8
Προεπιλογή

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

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Δημιουργία όλων των συνδυασμών, μεταθέσεων, διατάξεων και υποσυνόλων. kapetang Access samples - Χρήσιμα αρχεία & παραδείγματα 0 19-08-17 19:41
[Γενικά] Βοήθεια κατασκευής πινάκα. αγγελος23 Excel - Ερωτήσεις / Απαντήσεις 6 24-05-16 15:59
[Συναρτήσεις] Δημιουργία συνδυασμών gr8styl Excel samples - Χρήσιμα αρχεία & παραδείγματα 0 27-04-12 19:29
[Γενικά] Εμφάνιση συνδυασμών PANIK Excel - Ερωτήσεις / Απαντήσεις 4 23-04-12 20:04
Δημιουργία συνδυασμών πλήκτρων στην Access Giorgos Access - Ερωτήσεις / Απαντήσεις 2 30-12-09 15:28


Η ώρα είναι 14:01.