peccato io ho giocato cosi
1 euro ore 12:05 a colpo 17 26 30
2 euro ore 12:10 a colpo 1 2 23 30 20.euro
3 euro ore 12:15 a colpo 2 10 18 20 28 3 euro
4 euro ore 12:20 a colpo 9 15 18
5 euro ore 12:25 a colpo 4 7 18 29 26
6 euro ore 12:30 a colpo 3 4 5 7 23 2 12 euro
se tre su 4 era uscito alle ore 12:30 avrei vinto 60 euro
ringrazio rocco di questo metodo e desideri
per aver lasciato le formule non protette
e poter modificare
macro terni
Sub speedc()
Dim VArr
Dim I As Integer, J As Integer, M As Integer, N As Integer
Dim Ctr As Integer, Ambi As Integer, LastR As Long
'
TargAm = [Y1] 'imposta il valore dell ambo in crscita
Range("Y2:AB1000").Clear 'pulisco l area dove conterro gli ambi
LastR = Cells(Rows.Count, 2).End(xlUp).Row
VArr = Range("B4:u" & LastR).Value 'archivio
aaaa = UBound(VArr, 1)
For M = 1 To 90
Application.ScreenUpdating = False
For N = M + 1 To 90
For NN = N + 1 To 90
Ambi = 0
For I = 1 To UBound(VArr, 1)
Ctr = 0
For J = 1 To 19
If VArr(I, J) = M Then Ctr = Ctr + 1
If VArr(I, J) = N Then Ctr = Ctr + 1
If VArr(I, J) = NN Then Ctr = Ctr + 1
Next J
If Ctr > 2 Then Ambi = Ambi + 1
Next I
If Ambi > TargAm Then
NRow = Cells(Rows.Count, "Y").End(xlUp).Offset(1, 0).Row
Cells(NRow, "Y") = M: Cells(NRow, "Z") = N: Cells(NRow, "AA") = NN: Cells(NRow, "AB") = Ambi
End If
Next NN
Application.ScreenUpdating = True
Next N
Next M
End Sub
inserire dalla cella b3 solo i numeri in y1 la frequenza dei terni da cercare
If Ctr > 2 Then Ambi = Ambi + 1 in questo modo ricerca i terni
If Ctr > 1 Then Ambi = Ambi + 1 in questo modo ricerca gli ambi
utile per la statistica su gli archivi