nuovo: Contare numeri consecutivi WinforLife

[zoltri83]

Ciao a tutti! ho visto che in passato è stato già toccato questo argomento e ho visto che si è anche arrivati alla soluzione!..purtoppo il link cui si era postata la soluzione del problema non è più disponibile (è scaduto!)

Vi posto il problema:

Devo analizare molte decine contando, per ciacuna di esse, quante sequenze consecutive ci sono.
Cioè, per ciascuna decina, devo saperr quanti sono inumeri NON consecutivi (numeri isolati) , quante coppie di numeri consecutivi, quante triplette, quante quartine, etc etc, fino a quante decine compongono la decina analizzata.

Esempio di una decina:
1 2 3 5 6 10 11 12 13 19

A fianco, in n colonne, dovrebbe uscirmi:

nella colonna "numeri Isolati": 1 (il 19)
nella colonna "coppia": 1 (il 5 e il 6)
nella colonna "tripla": 1 (l'1, il 2 e il 3)
nella colonna "quartina": 1 (il 10, 11, 12, 13)
nella colonna "cinquina": 0
...
...
...
...
nella colonna "decina": 0

Ho provato ad usare la funzione calcola.numeri e calcola.vuoti ma senza successo! ho provato a creare macro ma anche qui, neanche a dirlo, senza successo. Sto cercando di documentarmi il più possibile ma ancora non riesco a venirne a capo! aiutatemi please!! grazie

[zoltri83]

sto impazzendo!..per favore aiutatemi!

[Flash30005]

Ciao Zoltri83 e benvenuto nel Forum

Se ti riferisci a questa discussione
il file dovrebbe essere questo

Altrimenti invia il link della discussione che riporta il file ti interessa

Ciao

[zoltri83]

Ciao Flash, grazie mille!..io però ho 1000 righe e 20 colonne in cui ho inserito delle combinazioni uscite in passato! la macro immagino proprio che devo adattarla a questo mio foglio! potresti essere così gentile da aiutarmi? grazie

[Flash30005]

E tu potresti essere così gentile da spiegarmi come fai ad avere 20 colonne occupate dai singoli numeri delle estrazioni di winforlife?

Quel file che ti ho inviato è stato realizzato proprio per winforlife che ha 10 numeri estratti e non 20.

Fai sapere
Ciao

[zoltri83]

sì infatti mi sono spiegato male!..scusa!..sulle celle delle 20 colonne solo 10 sono riempite e 10 sono occupate dai numeri usciti le altre sono vuote! ti posso inviare il file se vuoi così forse è più facile!..come faccio ad inviartelo?

[Flash30005]

Suppongo che le dieci occupate dai numeri usciti siano le estrazioni e... quindi?
le altre 10 da cosa sono occupate?
Riguarda meglio il file che ti ho inviato perché penso che sia quello che ti occorre.

Le prime 10 colonne sono le estrazioni nelle altre 11 troverai i numeri uguali (di tutte quelle estrazioni) e nelle altre 11 i numeri consecutivi (di tutte quelle estrazioni)
non occorre fare un duplicato delle estrazioni su 10 colonne e altre 10 colonne per confrontarle
ma se hai ancora dubbi è meglio che invii il file seguendo la procedura descritta in questo link (post di Anthony del 16/6/2009)

Ciao

[zoltri83]

CIao Flash, credo che faccio prima se ti invio il file!

http://rapidshare.com/files/418998292/C ... edere.xlsx

La macro che hai realizzato per l'altro ragazzo ho provato ad adattarla sulla mia tabella ma ho qualche problema!!..p.s. il file allegato, per velocizzare il download, contiene solo 1000 righe ma l'originale ne contiene molte di più! grazie di nuovo! sei gentilissimo

[zoltri83]

...non riesco a escirne!..mi dice sempre errore di compilazione! aiuto!

[Flash30005]

Credo che hai sbagliato a scegliere il file da inviare.
Quello da te inviato non comntiene le estrazioni di winforlife da confrontare ma una sequenza di numeri dei quali non ho capito cosa vorresti farne.

Poi inizialmente hai detto numeri uguali e consecutivi
mentre nel file chiedi un programma che faccia un'analisi approfondita di tutte le terzine, quartine, cinquine, sestine, settine, ottine, novine e decine
cosa già affrontata qualche tempo fa per l'utente Miko
Con il foglio di excel è impossibile fare questo (calcola le combinazioni possibile e le righe che hai a disposizione)
Stavo provando a realizzare tutto in access ma la realizzazione ancora è in alto mare.
Comunque, fai una ricerca con "Miko" o "settine" come parola chiave e vedrai i post e i file inviati
se ti interessa uno di quelli te lo potrò inviare.
Ricorda, comunque, che in quei file ci sono le estrazioni da analizzare non numeri sistemati come i tuoi.

Fai sapere
Ciao

[zoltri83]

capito!..dal file che ti ho inviato è possibile fare una macro che mi dica quanti sono i numeri consecutivi?

[zoltri83]

Flash mi aiuti per favore?

[Flash30005]

Se è solo per i numeri uguali e consecutivi
il file esiste già
è quello che ti ho inviato il 10/09/10 ore 16:05 (vedi qui in alto)
devi solo sostituire i numeri di quell'archivio da B3:K102 (attuali) e inserire i tuoi numeri o estrazioni
chiaramente non devi superare le 10 colonne (cioè la colonna K)
di righe ne puoi mettere quante ne vuoi (fino al massimo possibile del tuo foglio di excel)

Se pensi invece che prenda il tuo foglio e ricostruisca la macro adattandola al tuo archivio (che inizia in A3 invece che in B3) solo perché a te non va di fare un copia/incolla (anche solo per provare se l'applicativo funziona a dovere)
beh, credimi, per quanto abbia voglia di prodigarmi e dare una mano al mio prossimo devo, purtroppo, dirti di no.
Anche per evitare che "domani" un altro utente, avendo l'archivio che inizia in C3 potesse fare la tua stessa richiesta...

Ciao

[zoltri83]

beh guarda se ti ho chiesto un aiuto forse è perché già ci ho provato a fare il copia/incolla e quindi modificare la tua macro ma evidentemente non ci sono riuscito!..infatti dal file che ti ho mandato, come hai potuto vedere, ho circa 1000 righe, e fare copia/incolla di tutte le mie 1000 righe distribuite su 20 colonne nel tuo file che invece ne ha 10 di colonne è un casino: me le ordina in modo sbagliato!..quindi se questo forum serve per aiutare le persone che come me hanno difficoltà nell'uso di excel spero che tu possa aiutarmi a risolvere questo mio problema!

[Flash30005]

Ripeto:
se stiamo parlando di estrazioni di Winforlife le colonne sono 10 e non 20 (lo hai ammesso anche tu nel post precedente)
Se l'esigenza è un'altra il tuo Topic non ha un Titolo corretto e crea confusione agli altri utenti.

Quindi puoi inviare anche 60.000 righe di estrazioni di Winforlife e le incollerò personalmente nel programma di analisi che ho e che ti ho inviato ma non inviare colonne come queste:



perché non hanno senso.

Nessuno vieta di criticare questo forum (sul fatto di aiutare o non aiutare) ma prima devi mettere in condizioni coloro che ti leggono di capire qual'è il tuo quesito per permettere questo devi innanzitutto esprimere con chiarezza il tipo di aiuto che vorresti, al fine di evitare inutili perdite di tempo prezioso.

A tal proposito è opportuno che tu legga o rilegga quanto scritto all'inizio di questa sezione qui

Ciao

[zoltri83]

il mio file ha 20 colonne anziché 10 perché ho usato un programma che mi ha dato come risultato tutte le combinazioni possibili di win for life! il fatto è che me li ha distribuiti su 20 colonne. So bene che se avessi il file con 10 colonne potrei fare il famoso copia/incolla sul tuo file e avrei risolto ma non è così! sto provando da giorni a modificare il file manualmente in modo da mettere tutte le celle nelle prime 20 colonne ma sono circa 180.000 righe da modificare! e sto ancora in alto mare!! ora spero di essere stato chiaro sul perché ho 20 colonne!

[Flash30005]

Quindi quello che ti occorre è avere tutte le colonne integrali del gioco Winforlife,
distribuite su 10 colonne e non su 20?
Se così usa questa macro

Codice: Seleziona tutto

Sub CreaFileTxt()
RangeN = 20
GrN = 10
Open "C:\SviluppoI.txt" For Output As #1
For R1 = 1 To RangeN - (GrN - 1)
For R2 = R1 + 1 To RangeN - (GrN - 2)
For R3 = R2 + 1 To RangeN - (GrN - 3)
For R4 = R3 + 1 To RangeN - (GrN - 4)
For R5 = R4 + 1 To RangeN - (GrN - 5)
For R6 = R5 + 1 To RangeN - (GrN - 6)
For R7 = R6 + 1 To RangeN - (GrN - 7)
For R8 = R7 + 1 To RangeN - (GrN - 8)
For R9 = R8 + 1 To RangeN - (GrN - 9)
For R10 = R9 + 1 To RangeN - (GrN - 10)
AggR = R1 & "," & R2 & "," & R3 & "," & R4 & "," & R5 & "," & R6 & "," & R7 & "," & R8 & "," & R9 & "," & R10 & ","
    Print #1, AggR
Next R10
Next R9
Next R8
Next R7
Next R6
Next R5
Next R4
Next R3
Next R2
Next R1
    Close #1
End Sub

Una volta eseguita
Vai su Menu > File (di qualsiasi foglio)
seleziona Apri
Nel box "Tipo di File" scegli "file di testo" -> (*.prn, *.txt, *.csv)
dopodiché ti porti sulla Root di C:\ e troverai un file testo chiamato "SviluppoI.txt"
lo selezioni e premi Ok
Lascia l'opzione su "Delimitati" (se non è già spuntata questa opzione inseriscila tu)
e premi avanti
metti il flag (la spunta) su virgola
premi avanti e Fine

Avrai lo sviluppo completo delle 184.756 colonne di winforlife distribuito su 10 colonne.

Era questo che volevi?

Fai sapere
Ciao

[zoltri83]

sì, grazie! ha funzionato e ora ho 10 colonne anziché 20!..per evitare di sbagliare e di correggere la macro che avevi fatto all'altro ragazzo ho copiato/incollato il mio archivio nel tuo file ma le righe arrivano fino alla 65.536! mentre io ne ho più di 184.000!..così ho fatto il procedimento inverso: ho copiato la tua macro e tutto il foglio. La macro ha problemi a partire perché chiaramente gli ho cambiato i riferimenti..sto provando a modificarli correttamente ma sinceramente non so bene dove mettere mano!..se puoi fare qualcosa ti allego il file! grazie

http://rapidshare.com/files/420365284/SviluppoI.xlsm

[Flash30005]

Per ripristinare lo schema adatto alla macro devi semplicemente eliminare la colonna K (vuota) e aggiungere una colonna in A in maniera da avere il tuo archivio da B a K.
Inoltre non hai copiato tutti i codici all'interno della macro originale:
manca la dichiarazione Public che era all'inizio della macro nel modulo

Codice: Seleziona tutto

Public a, b As Double, Str As String

- attenzione ho cambiato il formato delle variabili a e b (da integer a double) per via della grande quantità di dati
Inoltre devi copiare i Form (FormMSG_Box, Progress_Meter e UserForm1) è sufficiente che, aprendo il file (mio) e il tuo, trascini, da uno all'altro gli elementi
Infine devi rinominare il foglio "SistemaI" in "Archivio"

Non ti invio il file modificato da me in quanto avendo office 2003 ti troveresti sempre con un archivio "mozzo" in quanto avrai solo 65.000 colonne circa.

Ora potrai lanciare e...
Ti auguro buon fine settimana!

Ciao

[zoltri83]

ciao Flash! grazie mille per l'aiuto che mi stai dando!..ho seguito le tue indicazioni e quando mando in esecuzione la macro noto che comincia a fare dei calcoli un po strani...credo ci sia qualche problemino nella macro..ti allego il file:

http://rapidshare.com/files/420847187/Archivio.xlsm