nuovo: Contare numeri consecutivi WinforLife

[Flash30005]

Ho scaricato il file, convertito in office 2003 ma non ho ricalcolato perché avrei perso i dati da te analizzati.

Analizzando la prima colonna dell'archivio e i dati ottenuti come numeri uguali abbiamo questo



immagine intera

Ora dovresti dirmi cosa non ti torna.

Fai sapere
Ciao

[zoltri83]

beh dal momento che la macro è la stessa di quella usata dal ragazzo nel file "NUMERI UGUALI- ModBarra" non capisco perché a me dia questi risultati :

1 100 2025 14280 43797 63072 43050 13920 1980 100

mentre a lui dia questi:
6 25 36 25 7
..certo non mi aspetto che dia gli stessi identici risultati perché l'archivio è differente ma almeno simili..o che non siano a 5 cifre!..anche perché in questo modo il pc si impalla!

[Flash30005]

Forse non ti è chiaro cosa siano i numeri uguali di una estrazione rispetto a tutte le estrazioni inserite nel foglio archivio.

Il programma realizzatoo per Miko (di cui fai riferimento) serviva appunto a fare questo tipo di analisi ma Miko aveva inserito solo 100 estrazioni infatti ti renderai conto che la somma dei numeri consecutivi raggruppati da 0 a 9
(6+25+36+25+7) fornisce 99 + 1 estrazione in esame avrai 100.

Nel tuo caso, visto che consideri l'insieme delle combinazioni del sistema, avrai numeri anche a cinque cifre perché

Codice: Seleziona tutto

1   100   2025   14280   43797   63072   43050   13920   1980   100

dovrebbe fare 184756 invece sommando fa 182325
(sicuramente hai dimenticato di copiare 2431 colonne che erano nello sviluppo del file .txt)

Per essere più chiaro:
prendeno l'insieme delle combinazioni e dividendole in 10 gruppi uguali avrai 184756/10 = 18475 (numero a cinque cifre)


Quindi inserisci l'intero sistema e controlla di avere nell'archivio 184758 righe (184756 + 2 di testata).
Poi avvia la macro.

Un consiglio:
fai processare solo la prima combinazione e poi ferma la macro
(per evitare inutili perdite di tempo da parte tua)
in quanto i numeri uguali e consecutivi di una combinazione confrontata con l'intero insieme delle combinazioni possibili, di un sistema integrale, è uguale in tutte le combinazioni.
Invio un esempio di un sistema integrale formato da combinazioni di 10 numeri su un range di 15 (anziché 20)


immagine intera

Come vedi questa è la conferma di quanto scritto in uno dei miei primi post:
fare quel tipo di analisi sul sistema integrale è del tutto inutile e non ha senso.


Ciao

[zoltri83]

già!..non ha molto senso in effetti!..quello che a questo punto mi servirebbe è la macro che mi calcola i numeri consecutivi..ho notato che la macro "numero combinazioni" non mi funziona e mi dice errore!..ho forse fatto qualche errore nella macro?

[Flash30005]

L'errore del calcolo combinazioni è dovuto ad un copia incolla errato molto probabilmente nel replicare la macro dai fogli excel 2003 ai fogli di execl 2007
quindi fai attenzione a questa modifica:

Codice: Seleziona tutto

Sub NUMERO_COMBINAZIONI() 'CONTA_CELLE  '<<<<<< inizio macro
Set Rng = ActiveSheet.Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)  '<<<ok
numRows = Rng.SpecialCells(xlVisible).Count - 2  '<<< ok
Range("A2").Value = numRows  '<<< ok
UserForm1.Show  'ok
'End Sub   <<<<<<<<<<< ATTENZIONE   Togliere questo End Sub

....
.....
....
Unload Progress_Meter  '<<esistente
End Sub  '<<<<<<<<<<< inserirlo qui

Sub Barra()   '<<<< esistente
...


Dove vedi la riga Attenzione c'è un End Sub da togliere e inserirlo prima della macro successiva Sub Barra

Per quanto riguarda i numeri consecutivi puoi inserire una riga nel codice della macro Numeri Uguali in questo punto

Codice: Seleziona tutto

For R1 = 3 To ARCHIVIO   '<<<< riga esistente
If R1 = 4 Then GoTo esciU  '<<<< Aggiungere questo codice
    For R2 = 3 To ARCHIVIO   '<<<< riga esistente


verso la fine della stessa macro dovrai però mettere l'etichetta prima del richiamo macro Numeri consecutivi

Codice: Seleziona tutto

Next R1
'a = 0  ''<<< esistente
esciU:   '<<<< aggiungere
Call Trova_NUMERI_CONSECUTIVI   '<<< esistente


Stessa cosa da fare nella macro NUmeri Consecutivi

Codice: Seleziona tutto

For R1 = 3 To UR   '<<<<< esistente
If R1 = 4 Then GoTo esciC   '<<<< Aggiungere questo goto a esciC
    For R2 = 3 To UR  '<<<< esistente


e alla fine l'etichetta (Attenzione deve essere diversa da quella Numeri uguali)

Codice: Seleziona tutto

Next R1   '<<<< esistente
esciC:    '<<<< etichetta
End Sub    '<<<< esistente


Con questa modifca la macro elaborerà solo una sola combinazione dei numeri uguali e una dei numeri consecutivi
La barra (meter), a questo punto, non occorre più quindi puoi commentare nella macro Numeri consecutivi questa riga

Codice: Seleziona tutto

        If R1 = R2 Then GoTo saltaR   
            a = a + 1
            'Call Barra   '<<<<<< Commentare
        For C1 = 2 To 11


Ciao

[zoltri83]

Grazie Flash! sei stato gentilissimo e soprattutto molto bravo! a presto