Condividi:        

ritardo decine

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

ritardo decine

Postdi raimea » 17/02/14 18:34

ciao
sulla stessa "dritta" della macro -cadenz- fatta da antony
e che funziona benissimo ,
vorrei realizzare la stessa cosa analizzando le decine.

le decine da analizzare sono scritte in BB60:BK64
vorrei compilare quante volte sono venuti 2/ 3/4 numeri della stessa decina,
nella stessa estrazione.

poi a fianco riportare il ritardo attuale: di 2 num della stessa decine
e il ritardo attuale di 3 numeri della stessa decina.

io ho provato a "smanettare" la macro cadenz , ma non ci sono riuscito.. :cry:

vi allego il file

https://db.tt/FcHbnTqr
grazie
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1408
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: ritardo decine

Postdi Anthony47 » 18/02/14 01:45

Hummm... le "cadenze" avevo capito (alla fine...) cosa fossero, ma le decine sono le stesse decine che avevamo imparato alle elementari? Se Si, allora il calcolo delle occorrenze doppie, triple, quadruple e quintuple potrebbero essere calcolate con la seguente macro:
Codice: Seleziona tutto
Sub decine()
Dim Varr, LastA As Long, Estraz As Long, AOcc(0 To 4) As Long, Num As Long
Dim AFreq(0 To 4, 1 To 4) As Long
Dim AMax(0 To 4, 1 To 2) As Long, ACurr(0 To 4) As Long

myTim = Timer
Worksheets("ritardi").Unprotect   ' togli protez
LastA = Sheets("Archivio_UK49s").Cells(Rows.Count, 2).End(xlUp).Row
Varr = Sheets("Archivio_UK49s").Range("C3").Resize(LastA - 2, 7).Value

For Estraz = LBound(Varr, 1) To UBound(Varr, 1)
    Erase AOcc
    'calcola occorrenza ogni numero sull' estrazione:
    For Num = LBound(Varr, 2) To UBound(Varr, 2)
        AOcc(Int((Varr(Estraz, Num) - 1) / 10)) = AOcc(Int((Varr(Estraz, Num) - 1) / 10)) + 1
    Next Num
    'Accumula nel totalizzatore delle decine:
    For i = 0 To 4
        If AOcc(i) > 1 And AOcc(i) < 6 Then     'da 2 a 5 occorrenze
            AFreq(i, AOcc(i) - 1) = AFreq(i, AOcc(i) - 1) + 1
        End If
        'Calcoli per ritardo corrente (No: e massimo):
        If AOcc(i) > 1 Then
'            If ACurr(I) > AMax(I, 1) Then
'                AMax(I, 1) = ACurr(I)
'                AMax(I, 2) = Estraz
'            End If
            ACurr(i) = 0
        Else
            ACurr(i) = ACurr(i) + 1
        End If
    Next i
    DoEvents
Next Estraz
With Sheets("ritardi")
    .Range("BL60").Resize(5, 4).Value = AFreq
'CHIARIRE    .Range("BJ11").Resize(10, 1).Value = Application.WorksheetFunction.Transpose(ACurr)
'NO    .Range("BK11").Resize(10, 2).Value = AMax
End With
MsgBox ("Completato in sec: " & Timer - myTim)
End Sub
Nota che ho calcolato anche quante volte capitano 5 estrazioni della stessa decina, non sono poche (sono 68; tu ti eri fermato a 4; c' e' anche un caso con 6 occorrenze, vedi estraz 4929); ho quindi allargato la tabella di questi risultati da BL60 fino a BO64; se da fastidio lo togliamo.
Non ho invece calcolato i ritardi correnti, perche' non so come si calcolano; ad esempio se una decina e' uscita 4 volte in una estrazione, questo fatto azzera solo il ritardo delle 4 estrazioni, o anche delle 3 e delle 2?

Su questo mi aspetto un chiarimento.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ritardo decine

Postdi raimea » 18/02/14 07:05

ciao
bene ottimo, aver messo anche il calcolo dei 5 num stessa decina.

per calcolare i ritardi:
se in una estrazione, ci sono 4 num stessa decina
va calcolato SOLO la tabella dei 4 num stessa decina ,
senza incrementare la tabella dei 2 e 3 num.

unica cosa che non mi torna dopo la tua descrizione:

Nota che ho calcolato anche quante volte capitano 5 estrazioni della stessa decina, non sono poche (sono 68

scrivi : 5 estrazioni stessa dec. - intendevi : 5 numeri della stessa dec in stessa estrazione ?

nella tabella il max con 5 num stessa decina -stessa estrazione e' 18 la decina del21-->30
Immagine


ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1408
Iscritto il: 11/02/10 07:33
Località: lago

Re: ritardo decine

Postdi Anthony47 » 18/02/14 12:35

per calcolare i ritardi:
se in una estrazione, ci sono 4 num stessa decina
va calcolato SOLO la tabella dei 4 num stessa decina ,
senza incrementare la tabella dei 2 e 3 num
Questa frase non mi torna, perche' la domanda (sul calcolo dei ritardi) e' se l' uscita di (mettiamo) 4 numeri di una stessa decina AZZERA il contatore dei ritardi anche delle 2 e 3 uscite, o se invece il calcolo delle 2 e 3 uscite deve incrementare pur essendo stati estratti ben piu' di 2 e 3 numeri.

Quanto al tuo dubbio: si, scrivendo "5 estrazioni della stessa decina" intendevo "5 numeri della stessa dec in stessa estrazione".

Infine non ho capito se quando scrivi "nella tabella il max con 5 num stessa decina -stessa estrazione e' 18 la decina del21-->30" fai una affermazione, o esprimi un dubbio o una domanda.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ritardo decine

Postdi raimea » 18/02/14 16:56

ciao
se l' uscita di (mettiamo) 4 numeri di una stessa decina AZZERA il contatore dei ritardi anche delle 2 e 3 uscite, o se invece il calcolo delle 2 e 3 uscite deve incrementare pur essendo stati estratti ben piu' di 2 e 3 numeri

ES:
Immagine

nel conteggio dei ritardi, se possibile vorrei aggiornare solo il contatore dei 3 numeri stessa decina in stessa estrazione,
senza azzerare il contatore dei 2 numeri stessa decina , che nell'esempio sopra e' umentato di uno .

"nella tabella il max con 5 num stessa decina -stessa estrazione e' 18 la decina del21-->30" fai una affermazione, o esprimi un dubbio o una domanda.

e' un affermazione in quanto dicevi di aver trovato 68 casi in cui cerano stati 5 numeri della stessa decina.
Nota che ho calcolato anche quante volte capitano 5 estrazioni della stessa decina, non sono poche (sono 68;


grazie
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1408
Iscritto il: 11/02/10 07:33
Località: lago

Re: ritardo decine

Postdi Anthony47 » 19/02/14 00:55

La macro che calcola anche i ritardi:
Codice: Seleziona tutto
Sub decine2()
Dim Varr, LastA As Long, Estraz As Long, AOcc(0 To 4) As Long, Num As Long
Dim AFreq(0 To 4, 1 To 4) As Long
Dim ACurr(0 To 4, 1 To 4) As Long

myTim = Timer
Worksheets("ritardi").Unprotect   ' togli protez
LastA = Sheets("Archivio_UK49s").Cells(Rows.Count, 2).End(xlUp).Row
Varr = Sheets("Archivio_UK49s").Range("C3").Resize(LastA - 2, 7).Value

For Estraz = LBound(Varr, 1) To UBound(Varr, 1)
    Erase AOcc
    'calcola occorrenza ogni numero sull' estrazione:
    For Num = LBound(Varr, 2) To UBound(Varr, 2)
        AOcc(Int((Varr(Estraz, Num) - 1) / 10)) = AOcc(Int((Varr(Estraz, Num) - 1) / 10)) + 1
    Next Num
    'Accumula nel totalizzatore delle decine:
    For i = 0 To 4
'    If AOcc(4) > 4 Then aaazz = Estraz
        If AOcc(i) > 1 And AOcc(i) < 6 Then     'da 2 a 5 occorrenze
'If AOcc(i) = 6 Then Stop
            AFreq(i, AOcc(i) - 1) = AFreq(i, AOcc(i) - 1) + 1
        End If
        'Calcoli per ritardo corrente (No: e massimo):
        ACurr(i, 1) = ACurr(i, 1) + 1
        ACurr(i, 2) = ACurr(i, 2) + 1
        ACurr(i, 3) = ACurr(i, 3) + 1
        ACurr(i, 4) = ACurr(i, 4) + 1
'Azzera solo il counter della combinazione:
        If AOcc(i) > 1 And AOcc(i) < 6 Then ACurr(i, AOcc(i) - 1) = 0
    Next i
    DoEvents
Next Estraz
With Sheets("ritardi")
    .Range("BL60").Resize(5, 4).Value = AFreq
    .Range("BP60").Resize(5, 4).Value = ACurr
'NO    .Range("BK11").Resize(10, 2).Value = AMax
End With
MsgBox ("Completato in sec: " & Timer - myTim)
End Sub
Calcola e scrive i ritardi (per ogni decina) del 2 numeri, 3 numeri, 4 numeri e 5 numeri, occupando quindi l' area BP60:BS64.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ritardo decine

Postdi raimea » 19/02/14 07:12

ciao
OTTIMO... :o
e' tutto ok , e super velocissimo..

un grazie particolare :
xche' non e' facile capire cosa /come chiede di calcolare.."raimea"... :D

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1408
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "ritardo decine":


Chi c’è in linea

Visitano il forum: Nessuno e 38 ospiti