Condividi:        

Macro per Lotto & affini

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: Macro per Lotto & affini

Postdi giorgioa » 22/08/12 15:43

Salve Flash
ti volevo far notare che nella colonna(AE) dei ritardi del numero c'è qualcosa che non va, ti elenco parte quelli con OK va bene quelli con però NO
1=1;ok
2=2;ok
3=6;ok
4=15 però dovrebbe essere 0
5=25 però dovrebbe essere 5
6=117 però dovrebbe essere 0
7=34 però dovrebbe essere 16
8=110 però dovrebbe essere 2
9=27 però dovrebbe essere 10
10= 38 però dovrebbe essere 8
11=25;ok
12=27;ok
86=5 però dovrebbe essere 1
90=88 però dovrebbe essere 9
Quindi c'è qualcosa che non va in quella colonna per il resto pare che va OK
Saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Sponsor
 

Re: Macro per Lotto & affini

Postdi Flash30005 » 22/08/12 16:44

Veramente avevo fatto così proprio perché il 4 è uscito nell'ultima estrazione
però avendo visto che avevi scritto 20 mi sono domandato se volevi il ritardo dell'ultima estrazione nel quale viene rispettata la condizione dei ritardi (tra 5 e 13) in questo caso allora è 15 e non 0 (zero)
quindi sta a te decidere cosa vuoi fare.
Ora la macro fornisce, appunto, il ritardo dell'evento (con ritardi da 5 a 13).
se non vuoi rispettare questa condizione devi solo modificare la riga che trovi in fondo alla macro come indicato
Codice: Seleziona tutto
'...
Ws1.Cells(VS1 + 2, 27).Value = ContaP  '<<<< esistente lasciare così
Ws1.Cells(VS1 + 2, 31).Value = UR - RCIni  '<<<<< esistente da modoficare
Ws1.Cells(VS1 + 2, 28).Value = Int((ContaP / (UR - 2)) * 10000) / 100 '<<<<< esistente lasciare così
'...


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: Macro per Lotto & affini

Postdi giorgioa » 22/08/12 17:04

Ciao

il ritardo deve essere riferito a quello attuale
perchè se il ritardo attuale è in quella fascia (es, 5-13)
quel numero sarebbe da prendere in considerazione.

Certo avendo i dati iniziali errati ti ho messo dei dubbi.

Se mi dici quale di quelle 3 righe dovrei sostituire
ho provato a sostituire la 2^ riga dell'ultimo topic con
la 3^ dopo end with
ma non ho trovato differenze ed ho rimesso come prima
ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 22/08/12 17:15

giorgioa ha scritto:il ritardo deve essere riferito a quello attuale
perchè se il ritardo attuale è in quella fascia (es, 5-13)
quel numero sarebbe da prendere in considerazione.


Allora devi lasciare la macro come è senza fare alcuna modifica
infatti controlla i ritardi che, secondo te, non vanno (es.: il 4)
Constaterai che il 4 ha un ritardo di 15 e non 0 (zero) perché l'ultima estrazione riporta 4 (e sarebbe zero) ma tra il penultimo evento dell'uscita 4 e l'ultimo ci sono 15 estrazioni (fuori range perché maggiore di 13) quindi non deve essere preso in considerazione il 4 dell'ultima estrazione e vrai il ritardo di 15 che la macro ti fornisce.

Cerca di chiarirti le idee prima di fare commenti errati nei post.

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: Macro per Lotto & affini

Postdi giorgioa » 22/08/12 18:34

Parliamo del numero 4
il 4 è uscito con l'ultima estrazione quindi dovrebbe essere 0
poichè la condizione posta è da considerare fra 5 - 13 il numero verrebbe
scartato perchè inferiore a 5.
Ora per caso posto come il ritardo che mi da la macro 15 verrebbe comunque scartato
ma non perchè è 15 ma perchè ritardo 0.
Forse non mi spiego. Vorrei che la macro mi desse questo risultato se possibile.
Scusami ma io la vedo così.
Ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 22/08/12 19:05

La macro funziona perfettamente e per ritardo attuale Normalmente si intende l'ultimo evento verificato
Nei conteggi normali il 4 avrebbe avuto ritardo 0 (zero) in quanto è stato estratto nell'ultima estrazione.
Nel tuo caso, invece, dovendo rispettare la condizione ritardo da 5 a 13 l'evento si è verificato sia nella riga 99 e nella riga 104
pertanto nel range dei ritardi considerati (ritardo = 5).
premesso questo il ritardo attuale del 4 è 119 (ultima estrazione) - 104 (evento verificato) quindi 15

Detto questo, per me la macro è perfetta
ma se per te non lo è e vuoi un ritardo pari a 0 (zero) ti modifico la macro per ottenere ciò che vuoi anche altri numeri ma devono avere una regola logica non a caso

Ciao

EDIT ore 21:00 - Aggiungo che l'ultimo ritardo che rispetta il range (tra 5 e 13) lo trovi nella cella AK6 ("Riatrdi convenienti") che è pari a 5
Infatti 5 è stato l'ultimo evento che si è verificato come ritardo preso per convenzione

ma non è il Ritardo Attuale delle suddette condizioni che, ribadisco, è pari a 15
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: Macro per Lotto & affini

Postdi giorgioa » 22/08/12 20:10

Ti volevo dire che ho adottato la stessa macro
per un archivio 10elotto e la colonna AD legge tutti i ritardi ottenuti
senza rispettare i mini e max richiesti.

Se vuoi cerco di allegare il file completo però questo è quello che fa
ad es. range 8 -11 prende in considerazione tutti i ritardi
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 22/08/12 20:54

La macro prevede l'analisi fino a 20 numeri per estrazione (colonna V), quindi è valida per il Lotto, SuperEnalotto, 10&Lotto etc
Secondo me stai prendendo una cantonata ma potrei sbagliare pertanto è meglio che verifichi personalmente.
invia il file.
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: Macro per Lotto & affini

Postdi giorgioa » 22/08/12 21:48

ECCO IL FILE
http://www.filedropper.com/ritardiconvenienti10lotto_2

Credo che il range 5 - 13 lo considera come fisso
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 22/08/12 22:08

Non ho guardato il nuovo file perché se c'è quell'errore sul nuovo file (10&Lotto) c'è anche nel "vecchio" (Lotto)
Ti invio di nuovo la macro con la modifica commentata per avere il ritardo attuale o ritardo attuale nel range
ho inoltre variato una riga codice.
La devi testare sul file del Lotto e se tutto ok la potrai utilizzare anche per il 10&Lotto o altri giochi
Codice: Seleziona tutto
Sub TrovaEventi()
Set Ws1 = Worksheets("Foglio1")
UR = Ws1.Range("B" & Rows.Count).End(xlUp).Row
URN = Ws1.Range("Z" & Rows.Count).End(xlUp).Row - 2
Ws1.Range("AF3:IV" & UR).ClearContents
For VS1 = 1 To URN
RCIni = 2
ContaE = 0
ContaP = 0
RFin = 2
        With Ws1.Range("C3:V" & UR)
            Set C = .Find(VS1, LookIn:=xlValues, LookAt:=xlWhole)
                If Not C Is Nothing Then
                    firstAddress = C.Address
                    RC = C.Row
                   
                    ContaP = ContaP + 1
                    If (RC - RCIni) >= [Y5] And (RC - RCIni) <= [Y7] Then
                        ContaE = ContaE + 1
                        UCC = Ws1.Cells(VS1 + 2, Columns.Count).End(xlToLeft).Column + 1
                        Ws1.Cells(VS1 + 2, UCC).Value = RC - RCIni
                        RFin = RC
                    End If
                    RCIni = RC
                    Do
                        Set C = .FindNext(C)
                        If firstAddress = C.Address Then Exit Do
                        RC = C.Row
                        ContaP = ContaP + 1
                    If (RC - RCIni) >= [Y5] And (RC - RCIni) <= [Y7] Then
                        ContaE = ContaE + 1
                        UCC = Ws1.Cells(VS1 + 2, Columns.Count).End(xlToLeft).Column + 1
                        Ws1.Cells(VS1 + 2, UCC).Value = RC - RCIni
                        RFin = RC
                    End If
                    RCIni = RC
                    Loop While Not C Is Nothing And C.Address <> firstAddress
                End If
        End With
Ws1.Cells(VS1 + 2, 30).Value = ContaE
Ws1.Cells(VS1 + 2, 27).Value = ContaP
'Ws1.Cells(VS1 + 2, 31).Value = UR - RCIni  '<<<< ritardo attuale
Ws1.Cells(VS1 + 2, 31).Value = UR - RFin  '<<<< Ritardo attuale con condizione dei ritardi considerati tra 5 e 13
Ws1.Cells(VS1 + 2, 28).Value = Int((ContaP / (UR - 2)) * 10000) / 100
Ws1.Cells(VS1 + 2, 28).NumberFormat = "0.00"
Ws1.Cells(VS1 + 2, 29).Value = Int((ContaE / ContaP) * 10000) / 100
Ws1.Cells(VS1 + 2, 29).NumberFormat = "0.00"
Next VS1
End Sub


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: Macro per Lotto & affini

Postdi giorgioa » 22/08/12 23:00

Ok Flash

pare che ora va tutto bene.
L'ho provato anche col 10elotto.

Fammi testarlo per un paio di giorni
anche per la disponibilità di tempo che poi si potra chiudere l'argomento.

Come al solito un vero e vivo ringraziamento.
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi giorgioa » 23/08/12 23:10

Salve Flash,

con l'ultima macro e con la riga di macro attivata ritardi attuali mi succede quanto segue:
con l'archivio 10 e lotto: il nr. 2 cella AE4 da un ritardo di 250;

con l'archivio del lotto: il nr.74 cella AE76 da un ritardo di 4660.

Questo accade solo in quelle 2 celle, poi il resto va tutto bene.

Se vuoi posto il file in argomento, ho aggiunto al foglio delle nozioni per renderlo di facile comprensione(oltre a chiedere spiegazioni
più dettagliate a me) così chi vuole può servirsi .
Saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 23/08/12 23:42

Controlla che l'archivio non abbia valori "sporchi"
o numeri che sembrano numeri ma in realtà sono testo
per fare questo sostituisci il 74 ridigitandolo ogni volta che lo trovi

Se vuoi, invia il file
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: Macro per Lotto & affini

Postdi giorgioa » 24/08/12 11:47

Salve Flash
Allego file
se puoi dare una occhiata

http://www.filedropper.com/ritardiconve ... tto10lotto

Saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 24/08/12 12:36

Questo accade non solo per il 2 ma per tutti i valori trovati nella riga 3
pertanto correggi la seguente riga, da così
Codice: Seleziona tutto
        With Ws1.Range("C3:V" & UR)

a
Codice: Seleziona tutto
        With Ws1.Range("C2:V" & UR)


(modifica da fare anche sul file del Lotto)

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: Macro per Lotto & affini

Postdi giorgioa » 24/08/12 13:55

Salve Flash

ultima modifica permettendo l'argomento dovrebbe essere chiuso

Per chi volesse approfittare a scaricarsi questo file il foglio 2 è predisposto anche
per il lotto mentre il foglio1 è per il 10 e lotto abbinato alle estrazioni.

Salve
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 24/08/12 17:19

:?:
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: Macro per Lotto & affini

Postdi giorgioa » 30/08/12 22:53

Salve a tutti,
vedo che nessuno è interessato ad utilizzare questo file
a meno chè non c'è bisogno di spiegare niente.

Peccato a me sta dando degli ottimi risultati.

Vi saluto e come sempre un saluto particolare a Flash
che molto semplicemente mi fai risparmiare tanto lavoro.

Ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 30/08/12 23:36

Pensavo volessi pubblicare il file definitivo e sembra che nel post accenni a farlo ma non hai allegato alcun file :roll:

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: Macro per Lotto & affini

Postdi giorgioa » 31/08/12 09:18

Salve Flash,
l'ultimo file inserito è quello definitivo con la sola correzione
da inserire nella macro C2 al posto di C3, penso non sia un problema.

Poi stavo tentando di farlo ed ho cominciato a trovare nuovamente
difficoltà col Upload e pertanto mi sono astenuto.

Ti saluto
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "Macro per Lotto & affini":


Chi c’è in linea

Visitano il forum: Nessuno e 36 ospiti