Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Scomposizione cinquina

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Scomposizione cinquina

Postdi papiriof » 28/02/19 19:11

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 :oops: ) dove spiego

http://www.filedropper.com/scompi
http://www.filedropper.com/scompi
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 284
Iscritto il: 16/02/10 13:23

Sponsor
 

Re: Scomposizione cinquina

Postdi Statix » 01/03/19 21:51

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

Immagine

Immagine


su un elaborazione di cinque milioni di cinquine sono state 408 le cinquine salvate,poi ho interotto causa tempo
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1270
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Scomposizione cinquina

Postdi papiriof » 02/03/19 09:00

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.....
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 284
Iscritto il: 16/02/10 13:23

Re: Scomposizione cinquina

Postdi Statix » 03/03/19 01:12

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


http://www.filedropper.com/test4_9
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1270
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Scomposizione cinquina

Postdi papiriof » 03/03/19 09:43

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.
....
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 284
Iscritto il: 16/02/10 13:23

Re: Scomposizione cinquina

Postdi Statix » 03/03/19 14:52

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.

Immagine


Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1270
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Scomposizione cinquina

Postdi papiriof » 03/03/19 17:48

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.
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 284
Iscritto il: 16/02/10 13:23

Re: Scomposizione cinquina

Postdi Statix » 03/03/19 18:10

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
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1270
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Scomposizione cinquina

Postdi papiriof » 03/03/19 20:02

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 :?:
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 284
Iscritto il: 16/02/10 13:23

Re: Scomposizione cinquina

Postdi papiriof » 04/03/19 08:05

papiriof ha scritto: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 :oops: :oops:
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 284
Iscritto il: 16/02/10 13:23

Re: Scomposizione cinquina

Postdi Statix » 11/03/19 22:40

Ciao a tutti, ciao Anthony47
volevo chiederti se è possibile velocizzare la macro del programma, allegato
http://www.filedropper.com/test4_9
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1270
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Scomposizione cinquina

Postdi Anthony47 » 12/03/19 00:02

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...
Avatar utente
Anthony47
Moderatore
 
Post: 17664
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Scomposizione cinquina":


Chi c’è in linea

Visitano il forum: raimea e 32 ospiti