Aiuto per script per Salvo50 o altro scripter

[sorujoe]

Vi chiedo una gentilezza potreste farmi uno script che metta in evidenza in una estrazione i vertibili isotopi
esempio estrazione del xx/xx/xxxx
Bari primo estratto 13
Nazionale primo estratto 31
Grazie anticipate

 

[salvo50]

Vi chiedo una gentilezza potreste farmi uno script che metta in evidenza in una estrazione i vertibili isotopi
esempio estrazione del xx/xx/xxxx
Bari primo estratto 13
Nazionale primo estratto 31
Grazie anticipate

Ciao a Tutti
vedi se può andare

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,R1,R2,P1,P2,P3,Es,E1,E2
   Dim Idestr,Col,Esqcol,Esq,Caso,Casi
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,9000)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Caso = 0
      AvanzamentoElab Esq,Esqcol,Es
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               B = Estratto(Es,R2,P1)
               If A = Vert(B) Then
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1,P2)
                     If E1 = A Then
                        Call ColoreTesto(2)
                     Else
                        Call ColoreTesto(0)
                     End If
                     Call Scrivi(Format2(E1) & " ",1,0)
                     Call ColoreTesto(0)
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R2) & " ",1,0
                  For P3 = 1 To 5
                     E2 = Estratto(Es,R2,P3)
                     If E2 = B Then
                        Call ColoreTesto(2)
                     Else
                        Call ColoreTesto(0)
                     End If
                     Call Scrivi(Format2(E2) & " ",1,0)
                     Call ColoreTesto(0)
                  Next
                  Scrivi
               End If
            Next
         Next
      Next
   Next
End Sub

 

[sorujoe]

G R A Z I E