Condividi:        

frequenza terni

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

frequenza terni

Postdi miko » 04/01/10 13:15

salve,
ho realizzato un piccolo elaborato che permette di sviluppare la frequenza dei terni presenti nelle combinazioni winforlife, adattabile anche per determinare la frequenza delle quaterne etc. e per il superenalotto.
vi è però un problema, in quanto l'elaborato esegue il calcolo di tutti i terni ogni volta che inseriamo una nuova combinazione del winforlife per aggiornare le frequenze.
è ovvio che all'aumentare delle combinazioni winforlife o all'aumentare dei terni quaterne etc. il calcolo impiega molto tempo, e non è necessario aggiornare le frequenze di quei terni che non sono inclusi nella nuova combinazione.
ho pensato allora che inserendo nuove combinazioni winforlife si potrebbero deterninare i terni o quaterne in essa contenuti, e poi aggiornare solo questi terni senza dover ogni volta ripetere il calcolo di tutti i terni.
vi invio il file che ho creato e che trovate qui:
http://www.filedropper.com/terniwinforlife;
qualcuno di voi può suggerirmi come devo procedere?
grazie saluti
miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44

Sponsor
 

Re: frequenza terni

Postdi miko » 08/01/10 20:26

salve a tutti,
scusate la mia insistenza, ma ho cercato in rete una soluzione a questo mio problema, ma non sono riuscito a trovare niente.
qualcuno di voi mi può dare delle indicazioni o dei suggerimenti magari per affrontare in modo diverso il problema?
grazie
saluti miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44

Re: frequenza terni

Postdi miko » 08/01/10 20:29

ciao, ho dimenticato di inviare il file:
http://www.filedropper.com/terniwinforlife
saluti grazie miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44

Re: frequenza terni

Postdi Flash30005 » 08/01/10 21:16

Quello che dici è correttissimo quindi memorizza prima dell'inserimento di nuove righe l'attuale riga piena (es. RP = 50) e inizi a elaborare dalla nuova riga (dalla 51 in poi) nell'elaborazione che già svolge il programma invece di sostituire (non devi cancellare le colonne Frequenza) dovrai
aggiungere alla cella corrispondente della frequenza il valore-attuale-cella + 1 ogni volta che trova la combinazione dei tre numeri esempio:
combinazione trovata 1-2-7
Range("P7").value = Range("P7").value +1
dopodiché riesegui l'ordinamento.
Il tempo di processo in questa maniera sarà ridotto al massimo.

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: frequenza terni

Postdi miko » 10/01/10 13:07

ciao,
ho compreso il procedimento che descrivi, ma ho difficolta nella elaborazione del codice.
puoi descrivere, in modo elementare, come procedere, in quale parte del codice devo inserire la modifica?
grazie ciao
miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44

Re: frequenza terni

Postdi miko » 15/01/10 19:22

ciao, dopo vari tentativi non sono riuscito a risolvere questo problema.
qualcuno di voi può aiutarmi?
grazie
saluti miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44

Re: frequenza terni

Postdi Flash30005 » 16/01/10 10:55

Ho utilizzato lo stesso tuo codice solo con un paio di varianti e ho creato la macro Aggiorna
Codice: Seleziona tutto
Sub Aggiorna()
rngIni = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row


'<<<<<<<<<<<<< macro che accoda estrazioni


Dim TABELLA(), ARCHIVIO As Long
TERNI = Range("L3").End(xlDown).Row  'INDICA LA COLONNA L DOVE INIZIA L'ELENCO DEI TERNI
ARCHIVIO = Range("a3").End(xlDown).Row  'INDICA LA COLONNA A DOVE INIZIA L'ELENCO DELL'ARCHIVIO
base = Range("l3", Range("l3").End(xlToRight)).Columns.Count  'INDICA IL RANGE DEI TERNI, DELLE QUATERNE, DELLE CINQUINE
                                                               'QUINDI INDICA LO SVILUPPO CHE SI VUOLE ESAMINARE
For a = 3 To TERNI
col = 12
ReDim TABELLA(base)
cont = 0
For x = 1 To base
TABELLA(x) = Cells(a, col)
col = col + 1
Next
For i = rngIni + 1 To ARCHIVIO
Set zona = Range(Cells(i, 1), Cells(i, 10)) 'questa lina di codice determina la larghezza
'della tabella combinazioni; basta cambiare il parametro 10 in base alla larghezza della tabella;
'se si vuole una tabella dinamica basta inserire una variabile
'tipo la variabile "base" per determinare se si vogliono esaminare i terni, quaterne ecc.
L = 0
For n = 1 To base
For Each c In zona
If c.Value = Val(TABELLA(n)) Then
L = L + 1
Exit For
End If
Next c
If L = base Then
Cells(a, 16) = Cells(a, 16) + 1
'cont = cont + 1
Exit For
End If
Next n
Set zona = Nothing
Next i
'Cells(a, 16) = cont 'INDICA LA COLONNA IN CUI VERRANNO INSERITE LE FREQUENZE, 'IN QUESTO CASO LA COLONNA 11 CHEE' LA COLONNA K;
'PER VARIARE LA COLONNA BASTA SOSTITUIRE IN Cells(a, 11) AL NUMERO 11 UN QUALUNQUE ALTRO NUMERO.
TABELLA = TABELLA()
Next a
Range("A1").Select
End Sub

In pratica "rngIni" calcola le righe prima dell'inserimento di ulteriori dati
poi segue la macro che aggiunge le estrazioni
e la tua variabile "Archivio" riconta le righe
A questo punto la scansione la farai avviare non più dalla riga 3 ma da rngIni + 1 come potrai notare dal codice esistente nella macro
For i = rngIni + 1 To ARCHIVIO
A questo punto ogni volta che si verifica la condizione di terno non vado a contare gli eventi per poi inserirli nella colonna frequenze ma aggiungo alla cella il valore corrente + 1 con il codice
If L = base Then
Cells(a, 16) = Cells(a, 16) + 1


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: frequenza terni

Postdi miko » 05/02/10 09:16

ciao a tutti,
dopo vari problemi, compresa la connessione internet, riapro questo topic solo per ringraziare flash del contributo che mi ha offerto.
non avevo dimenticato di farlo ma ero impossibilitato;
il tuo ultimo listato funziona perfettamentte.
grazie e arrivederci sul prossimo topic.
ciao miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44

Re: frequenza terni

Postdi miko » 11/02/10 23:18

ciao, buona sera a tutti
ritorno a discutere questo topic perchè dopo aver finalmente completato il foglio di calcolo mi sono accorto che durante l'elaborazione si verifica un errore.
il codice preparato da flash funziona molto bene, ma ora che ho inserito più combinazioni, ho notato che non calcola la frequenza di alcuni terni,
e precisamente dei soli terni:
1- 2- 20
1- 3- 20
1- 4- 20
1- 5- 20
....
non capisco perchè solo per questi terni.
prima, per provare il codice ho inserito poche combinazioni, e non notavo questo problema.
ho provato a trovare l'errore, ma sono due giorni di tentativi inutili.
non credo sia il numero di combinazioni inserite poichè ho provato a variare il numero,
ma l'errore si verifica sempre.
non credo sia dovuto alla formattazione delle celle perchè essa è uguale per tutte.
...è proprio necessario l'intervento del primario flash.
ti invio il file completo con 100 combinazioni in archivio;
http://www.filedropper.com/terniwinforlife
avvia la macro aggiorna terni, anche tramite il pulsante calcola, e vedrai che il calcolo procede ma giunto al terno 1- 2- 20, ad esempio, lo salta e continua dal successivo e così per gli altri terni.
non riesco a capire dove si trova l'errore, se nel codice oppure da qualche altra parte.
grazie saluti
buona notte miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44

Re: frequenza terni

Postdi miko » 11/02/10 23:41

ciao,
ho dimenticato un particolare, può dipendere dal file txt da cui aggiorno l'archivio?
nel senso che il file contiene o non contiene alcuni dati o ha qualche errore interno.
non so, sono considerazioni che faccio andando per esclusione.
saluti miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44

Re: frequenza terni

Postdi miko » 15/02/10 20:11

ciao,
sono ancora alle prese con questo problema, che ovviamente non riesco a risolvere.
potreste controllare o comunque suggerirmi dove si trova il problema?
grazie ciao
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44

Re: frequenza terni

Postdi Flash30005 » 15/02/10 23:33

Ehmmm
il tuo file non si scarica più e non posso testarlo
ma mi viene un dubbio che non solo i terni che elenchi non vengono elaborati ma anche quelli con il numero in ultima colonna ("J") es. 19, 18 e 17
Per caso hai aggiunto una colonna prima della tabella matrice-dati?
Mi spiego:
hai una colonna A vuota e in B iniziano le colonne con i dati? (come impostata nel topic cerca consecutività?)

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-

Re: frequenza terni

Postdi miko » 16/02/10 19:18

ciao flash,
sei bravo, veramente bravo e con grande intuizione e perspicacia;
in un topic che ho letto un utente ti ha chiamato mago merlino, non si sbagliava.
senza avere dati a disposizione hai subito individuato il problema.
infatti ho spostato i dati a partire dalla colonna B, mentre nella colonna A
ho inserito dei valori che indicano i numeri delle combinazioni;
ma ho anche modificato il codice, evidentemente non in modo corretto.
ti invio il tuo file originale e quello da me modificato;
http://www.filedropper.com/terniflashdel16-01-10
http://www.filedropper.com/ternimiko_1
grazie
il tuo nick è giustamente appropriato
saluti
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44

Re: frequenza terni

Postdi Flash30005 » 16/02/10 22:08

Ho scaricato il tuo file proprio adesso ma mi domando se avevi bisogno di una colonna per i numeri delle combinazioni perché non hai utilizzato la colonna "K" che era libera senza spostare e modificare la macro?

Se leggi questo post prima che io intervenga sulla tua macro e questa soluzione ti soddisfa rispondi subito per evitare di "perdere tempo inutilmente"

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: frequenza terni

Postdi Flash30005 » 16/02/10 22:47

Ho fatto prima io!!! :D

Devi modificare la riga
Codice: Seleziona tutto
Set zona = Range(Cells(i, 2), Cells(i, 11))

avevi lasciato impostata la colonna 1 e colonna 10

Ciao

P.s. Non ti invio il file in quanto dandomi errore ho dovuto disabilitare la barra di scorrimento da te impostata e quindi fai prima a modificare due numeri che togliere diversi apici
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: frequenza terni

Postdi Flash30005 » 18/02/10 00:56

Aggiungo al mio post precedente che non era la barra del processo ma la macro Importa_Archivio che ricerca il file
"TEXT;E:\LOTTO EXCEL\WINFORLIFE EXCEL\ARCHIVIO WINFORLIFE.Txt", Destination:=PRIMA_CELLA_VUOTA)
che io non ho
Quindi ora allego il tuo file modificato

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: frequenza terni

Postdi miko » 18/02/10 22:24

buona sera a tutti
grazie flash, non era necessario inviarmi il file, era sufficiente la tua correzione alla linea di codice che hai scritto;
in ogni caso grazie ancora per la tua disponibilità.
saluti miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 518
Iscritto il: 29/12/09 10:44


Torna a Applicazioni Office Windows


Topic correlati a "frequenza terni":


Chi c’è in linea

Visitano il forum: Nessuno e 27 ospiti