Sub triamboconsecutivo()
Dim rambo(8990, 1)
Dim ult, rankda, riga, estr, es1, es2, z1, z2, zz1, zz2, ambo, numEm, hh, cap, dif1, dif2
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''leggo archivio estrazioni
ult = Range("INPUT!C13")
cap = Range("INPUT!C27")
fog = "output4"
Sheets(fog).Select
Range("A02:G4005").Select
Selection.Delete
Selection.Range("A01:G700").NumberFormat = "@"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sheets("Archivio").Select 'seleziona il Foglio Archivio per andare a leggere i dati delle estrazioni
''''questa riga serve per azzerare la variabile conta che ci servir… per passare da una ruota alla successiva
riga = 1 'si aggiunge + 1 perchŠ l'arichivio inizia dalla seconda riga
es1 = Cells(riga, 1) 'scrive la variabile NumEM (il numero estrazione) nella Cella H2
es2 = Cells(riga, 3) 'scrive la variabile DataE (la data dell'estrazione) nella Cella D4
estr = 1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''legge archivio dal 1939 di tutte le estrazioni
For estr = estr + 1 To ult
rankda = 4
numEm = estr
''''Tutte le ruote carica i 50 estratti
For ruota = 1 To 10
ReDim nm(5)
hh = 0
For k = 0 To 4
hh = hh + 1
nm(hh) = Cells(estr, rankda + k)
Next
rankda = rankda + 5
'''calcola ritardo dei 100 ambi di ogni estrazione
For z1 = 1 To 4
z2 = z1
For z2 = z2 + 1 To 5
If nm(z1) < 10 Then
zz1 = "0" & nm(z1)
Else
zz1 = nm(z1)
End If
If nm(z2) < 10 Then
zz2 = "0" & nm(z2)
Else
zz2 = nm(z2)
End If
If Int(zz1) < Int(zz2) Then
ambo = zz1 & zz2
Else
ambo = zz2 & zz1
End If
rambo(ambo, 0) = ambo
rambo(ambo, 1) = numEm
Next
Next
Next
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''sposta ritardi in array ram
ReDim ambi(4005, 1)
za = 8990
cc = 0
For z = 1 To za
If rambo(z, 0) > 0 Then
cc = cc + 1
ambi(cc, 1) = ult - rambo(z, 1)
ambi(cc, 0) = rambo(z, 0)
End If
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''scrivi intestazione colonne su foglio output
fog = "output4"
Sheets(fog).Select
Cells(1, 1) = " Ruota "
Cells(1, 2) = " Ambo "
Cells(1, 3) = " Ritardo "
Cells(1, 4) = " Ambo "
Cells(1, 5) = " Ritardo "
Cells(1, 6) = " Ambo "
Cells(1, 7) = " Ritardo "
'''prova sort per ritardo discendente a tutte valutato
''' Case "descend"
SortCol = 1
'riempiere campi output
Dim i As Long, j As Long, temp As Variant
Numrows = 4005
For i = 1 To Numrows - 1
For j = i To Numrows
If Val(ambi(j, 1)) > Val(ambi(i, 1)) Then
temp = ambi(i, 1)
temp1 = ambi(i, 0)
ambi(i, 1) = ambi(j, 1)
ambi(i, 0) = ambi(j, 0)
ambi(j, 1) = temp
ambi(j, 0) = temp1
End If
Next j
Next i
Selection.Value = ram
''''''''''scrittura file di output4
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''' ricerca triambo consecutivo
cs = 1
za = 4003
For z = 1 To za
If ambi(z, 0) > 0 Then
dif1 = ambi(z + 1, 1) - ambi(z + 2, 1)
dif2 = ambi(z, 1) - ambi(z + 1, 1)
'''consecutività nel ritardo del triambo
If dif1 = 1 And dif2 = 1 Then
cs = cs + 1
Cells(cs, 1) = " T u t t e "
Cells(cs, 2) = ambi(z, 0)
Cells(cs, 3) = ambi(z, 1)
Cells(cs, 4) = ambi(z + 1, 0)
Cells(cs, 5) = ambi(z + 1, 1)
Cells(cs, 6) = ambi(z + 2, 0)
Cells(cs, 7) = ambi(z + 2, 1)
Cells(cs, 2).Interior.ColorIndex = 6 'si colora la cella di giallo
Cells(cs, 3).Interior.ColorIndex = 6 'si colora la cella di giallo
Cells(cs, 6).Interior.ColorIndex = 6 'si colora la cella di giallo
Cells(cs, 7).Interior.ColorIndex = 6 'si colora la cella di giallo
End If
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Cells(cs + 1, 4) = " Per un gioco a Tutte attenzione a questi numeri...." & evid & "...(Aggiungere i vertibili) "
Cells(cs + 2, 3) = " 3 ambi attendere il ritardo sopra 163"
Cells(cs + 3, 3) = " 4 ambi attendere il ritardo sopra 106"
Cells(cs + 4, 3) = " 6 ambi attendere il ritardo sopra 95 "
Cells(cs + 5, 3) = " 5 ambi attendere il ritardo sopra 94 "
Cells(cs + 6, 3) = " 7 ambi attendere il ritardo sopra 92 "
Cells(cs + 7, 3) = " 8 ambi attendere il ritardo sopra 90 "
Cells(cs + 8, 3) = " 9 ambi attendere il ritardo sopra 53 "
End Sub
