Condividi:        

nuovo: Contare numeri consecutivi WinforLife

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

Re: nuovo: Contare numeri consecutivi WinforLife

Postdi Flash30005 » 24/09/10 11:22

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

immagine intera

Ora dovresti dirmi cosa non ti torna.

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Sponsor
 

Re: nuovo: Contare numeri consecutivi WinforLife

Postdi zoltri83 » 26/09/10 22:00

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! :(
zoltri83
Utente Junior
 
Post: 27
Iscritto il: 09/09/10 19:00

Re: nuovo: Contare numeri consecutivi WinforLife

Postdi Flash30005 » 27/09/10 09:32

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

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: nuovo: Contare numeri consecutivi WinforLife

Postdi zoltri83 » 27/09/10 19:00

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?
zoltri83
Utente Junior
 
Post: 27
Iscritto il: 09/09/10 19:00

Re: nuovo: Contare numeri consecutivi WinforLife

Postdi Flash30005 » 28/09/10 08:02

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: nuovo: Contare numeri consecutivi WinforLife

Postdi zoltri83 » 29/09/10 10:25

Grazie Flash! sei stato gentilissimo e soprattutto molto bravo! a presto
zoltri83
Utente Junior
 
Post: 27
Iscritto il: 09/09/10 19:00

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "nuovo: Contare numeri consecutivi WinforLife":


Chi c’è in linea

Visitano il forum: Nessuno e 34 ospiti