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