Ανανέωση ιστοσελίδας

[gpentez]

Γεια και πάλι.
Μήπως ξέρει κάνεις πως μπορώ να κάνω το εξής (είμαι αρχάριος ) και να δώσει κάποιες συμβουλές; Θέλω από ένα σύνολο τιμών να δημιουργώ υποσύνολα πχ από 10 κληρώσεις ΛΟΤΤΟ να χρησιμοποιήσω μακροεντολή η συνάρτηση που να δημιουργεί το σύνολο όλων των τιμών από τις κληρώσεις και μετά να δημιουργεί τα υποσύνολα του και να υπάρχουν κάποιοι κανόνες πχ. το υποσύνολο να έχει 1 τουλάχιστον αριθμό από κάθε κλήρωση κτλ.

Ευχαριστώ!

[gr8styl]

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

Φιλικά
Θανάσης

[gpentez]

γεια θαναση δεν ηξερα οτι εχει τοση σημασια να γραφει ονομα το προφιλ μου σ ευχαριστω . θα σου πω ενα παραδειγμα απο το λοττο γιατι ειναι ποιο κατανοητο .λοιπον ας φανταστουμεοτι εχουμε 3 κληρωσεις χαρην ευκολιας. στην πρωτη εχουμε τους 12 3 στη δευτερη 145 στη 3 456 . θελω να δημιουργησω μια συναρτηση η μακροεντολη ωστε αυτοματα να επιλεγονται πχ 3 αριθμοι ωστε σε καθε κληρωση να υπαρχει κ ενας απο τους αριθμους που επιλεχθηκαν στο παραδειγμα μας το προγραμμαθα εδειχνε πχ 145 οποιος μπορει ναγραψει την εντολη (γιατι αν γνωριζεις δεν θελει πολυ ωρα)η απλα να συμβουλεψει θα βοηθουσε πολυ

[gr8styl]

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

Θανάσης
ΥΓ. Ναι είναι σημαντικό να ξέρουμε τουλάχιστον το μικρό όνομα του φίλου ή της φίλης που ανταλλάσουμε μυνήματα. Άνθρωποι είμαστε και όχι μηχανές.

[kapetang]

Καλησπέρα

Γιώργο, δες και μία άλλη προσέγγιση με VBA.

Στο σχετικό παράδειγμα υπάρχουν 10 σύνολα (στήλες) με αριθμητικά δεδομένα.

Το ζητούμενο είναι να σχηματίσουμε μία δεκάδα στοιχείων παίρνοντας από κάθε σύνολο ένα μόνο στοιχείο.

Το πλήθος των δεκάδων που μπορούν να σχηματιστούν, αν υποθέσουμε ότι όλα τα σύνολα έχουν 10 στοιχεία, είναι τεράστιο: 10^10 = 10.000.000.000.

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

Αυτό γίνεται με τον παρακάτω κώδικα:

Public Sub CreateRadomSet()
    Dim rng As Range, LastRow As Long, LastColumn As Long
    Dim J As Long, curRow As Long
    LastColumn = Cells(3, Columns.Count).End(xlToLeft).Column
    Application.ScreenUpdating = False
    For J = 1 To LastColumn
        LastRow = Cells(Rows.Count, J).End(xlUp).Row
        Randomize
        curRow = 4 + Int((LastRow - 4) * Rnd())
        Cells(2, J).Value = Cells(curRow, J).Value
    Next
    Application.ScreenUpdating = True
End Sub

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

[chris1978]

Καλημέρα

Φίλε Γιώργο εγώ με μια απλή συνάρτηση υπολόγισα τη συχνότητα εμφάνισης των αριθμών ολών
των κληρώσεων του 2011.
Υπάρχει ενα δώρεαν πρόγραμμα του Τάσου Μαγκούτα που εμβαθύνει στατιστικά στο αντικείμενο,
θα το βρεις εδω : http://www.komvos.gr/mania/lotto/lottopr.html.