Scomposizione cinquina

[papiriof]

vorrei scomporre una cinquina (parliamo di lotto) in numeretti ees. il 27 verrebbe 2 e 7 i numeri composti da una sola cifra si scompongono con uno "0" avanti es : 8 viene 0 e 8 partendo da una cinquina base vorrei trovare tutte le cinquine possibili formate da numeri diversi della cinquina base aventi la stessa quantità di numeretti della base
Allego piccolo file (almeno spero ) dove spiego

http://www.filedropper.com/scompi
http://www.filedropper.com/scompi

[Statix]

Ciao papiriof,
ho provato a realizzare il programma, ma va molto a rilento,
visto che deve fare un confronto delle cinquine che sono circa 43.000.000 con la tua cinquina.

scomporre le 2 cinquine e calcolare quanti numeretti della scomposizione da 0 a 9 sono presenti nella prima cinquina e
e quanti numeretti della seconda cinquina e successivamente verificare in una terza riga se sono uguali le presenze dei numeretti non conta la posizione. infine se ok salvare la cinquina.

c'è da velocizzare con delle matrici se è possibile






su un elaborazione di cinque milioni di cinquine sono state 408 le cinquine salvate,poi ho interotto causa tempo

[papiriof]

Grazie dell'interessamento Statix , ho visto , risulta molto lungo il procedimento ? puoi mettere solo la macro? di cui al tuo esempio?
Io avevo provato con le permutazioni ma permuta una alla volta e si basa sulla visione diretta è un po macchinosa la faccenda
In A1:J1 metto la cinquina già scomposta poi con un pulsante lancio la macro:

Sub permut()
tablo = Range("A1:j1")
Set dico = CreateObject("Scripting.dictionary")
tabfin = tablo
For n = LBound(tablo, 1) To UBound(tablo, 1)
a = dico.RemoveAll
While dico.Count < 10
x = Int((10 * Rnd + 1))
dico(x) = x
Wend
ordre = dico.keys
For m = LBound(tablo, 2) To UBound(tablo, 2)
tabfin(n, ordre(m - 1)) = tablo(n, m)
Next
Next
Range("A1").Resize(UBound(tabfin, 1), UBound(tabfin, 2)) = tabfin
End Sub

poi controllo.....

[Statix]

Ciao papiriof,ti ho allegato il programmino ancora in fase di test


http://www.filedropper.com/test4_9

[papiriof]

Grazie Statix effettivamente è lentissimo, bisognerebbe costringere la macro a lavorare con i soli nueretti e nella stessa quantità della cinquina da esaminare- La mia soluzione (presa da internet adattata alla meglio ) propone una decina di numeretti della stessa quantità della cinquina da esaminare e quindi impone un controllo visuale e poi potrebbe ripetere molte volte la stessa cinquina.
....

[Statix]

Ciao papiriof,
la mia macro cicla tutte le combinazioni in cinquina dei 90 numeri in D2:H2
in J2:S2 scompone in numeretti la cinquina
poi in D4:H4 c'è la cinquina personale e in J4:S4 la scomposizione in numeretti
che serve per il confronto dei numeretti J2:S2 se tutti i 10 numeretti sono presenti, non conta la posizione,
la macro salva la cinquina e così via, almeno da quello che ho capito.
ho messo un esempio di come sono presenti tutti i 10 numeretti.

[papiriof]

Ciao Statix , si ho visto come funziona la tua macro ma una prima osservazione è che se la cinquina comincia con numeri alti le prime cinquine molto tempo prima che vengono selezionate , nel caso contrario se invece la cinquina da esaminare fosse (per assurdo)1,2,2,4,5 i primi riscontri arrivano subito per poi rallllentare ma soprattutto i risultati ,in qualunque ipotesi,contengono numeri presenti nella cinquina da esaminare mentre chiedevo "vorrei trovare tutte le cinquine possibili formate da numeri diversi della cinquina base " cosi le cinquine si ridurrebbero in modo drastico.

[Statix]

nella macro prova a sostituire 10 con 0
altri numeri 1-2-3-4-5-6-7-8-9 ma le cinquine sono sempre troppe

Codice: Seleziona tutto

a = a + 1
If Range("AQ2") = 10 Then
Range("AG2") = R + 1
Range("AG2:AQ2").Copy

[papiriof]

Hai ragione Statix sono ancora troppe, con l' occasione volevo domandare una cosa strana quando ho copiato il tuo file ho fatto delle prove per capire un po come funzionava, ebbene ,pur nella sua relativa diciamo velocità , allorquando l'ho riaperto è diventato molto più lento , puà essere? ho cambiato solo la cinquina

[papiriof]

Hai ragione Statix sono ancora troppe, con l' occasione volevo domandare una cosa strana quando ho copiato il tuo file ho fatto delle prove per capire un po come funzionava, ebbene ,pur nella sua relativa diciamo velocità , allorquando l'ho riaperto è diventato molto più lento , puà essere? ho cambiato solo la cinquina

Scusa Statix non ricordavo che avevo cambiato qui "Range("B2") = "" " avevo messo : "Range("B2") = 17589 " nell' intento di trovarmi avanti con lo spoglio

[Statix]

Ciao a tutti, ciao Anthony47
volevo chiederti se è possibile velocizzare la macro del programma, allegato
http://www.filedropper.com/test4_9

[Anthony47]

A parte che il file non risulta disponibile, aggiungo che non sono in grado di creare nulla senza sapere esattamente che cosa la macro creata dovrebbe fare; figuriamoci "velocizzare"...
Quindi, la prima cosa da chiarire e' che cosa fare e su quale base dati. E mi riservo comunque il diritto di schivare le cose che mi sembrano istruttivamente poco utili...