Per salvo50 o altro esperto una cortesia x un listato semplice...

[Matematico]

Buongiorno a tutti , per velocizzare la ricerca avrei bisogno cortesemente di uno script che mi vada a ricercare su qualsiasi ruota e posizione 4 estratti che diano somma 90 .

Esempio del 27/1/2018

Torino - 79.04.46.74.51 * 79+04+46+51 = 180 ( 90)

 

[salvo50]

Ciao Matematico

Ho marcato di rosso l'estratto rimanente, cioè la somma 90 è nei 4 estratti non marcati

Option Explicit
Sub Main
   Dim FIn,Ini,P1,E1,A,B,C,D,E,Es,R1,Casi,Caso,Somma,X,Salvo50,S1
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10170))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(13) & "SOMMA 90 DI QUATTRO ESTRATTI - SCRIPT SALVO50" & Space(13),1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         Somma = SommaEstratti(Es,R1)
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R1,2)
         C = Estratto(Es,R1,3)
         D = Estratto(Es,R1,4)
         E = Estratto(Es,R1,5)
         X = Somma
         If(X Mod 90 = A) Or(X Mod 90 = B)Or(X Mod 90 = C)Or(X Mod 90 = D)Or(X Mod 90 = E)Then
            If X Mod 90 = A Then S1 = A
            If X Mod 90 = B Then S1 = B
            If X Mod 90 = C Then S1 = C
            If X Mod 90 = D Then S1 = D
            If X Mod 90 = E Then S1 = E
            Caso = Caso + 1
            Casi = Casi + 1
            Scrivi String(90,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
            Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " ",1,0
            For P1 = 1 To 5
               E1 = Estratto(Es,R1,P1)
               If E1 = S1 Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E1) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub

 

[Matematico]

Grazie 1000 carissimo, sempre molto bravo, generoso e veloce