Novità

variare questo script per poter evidenziare più numeri

ppaaoolloo

Super Member >PLATINUM<
ciao a tutti
voorei sapere se è possibile con questo script gentilmente fattomi da MIke
poter evidenziare più numeri da me scelti
mentre attualmente è possibile solo selezionarne uno

ringrazio anticipatamente chi vorrà aiutarmi

saluti



Sub Main
Dim a(90)
Dim Ru(1)
ReDim aRuote(11)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",2))
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,1))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
If ScegliRuote(aRuote) > 0 Then
Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For rt = 1 To 12
'Ru(1) = aRuote(k)
ReDim atitoli(30)
atitoli(01) = " fila "
atitoli(02) = " numeri "
atitoli(03) = " Rit. "
atitoli(04) = " Rit. M. "
atitoli(05) = " Estr. "
atitoli(06) = " +2 "
atitoli(07) = " +3 "
atitoli(08) = " +4 "
atitoli(09) = " +5 "
atitoli(10) = " +6 "
atitoli(11) = " +7 "
atitoli(12) = " +8 "
atitoli(13) = " +9 "
atitoli(14) = " +10 "
atitoli(15) = " +11 "
atitoli(16) = " Estr. "
atitoli(17) = " -1 "
atitoli(18) = " -2 "
atitoli(19) = " -3 "
atitoli(20) = " -4 "
atitoli(21) = " -5 "
atitoli(22) = " -6 "
atitoli(23) = " -7 "
atitoli(24) = " -8 "
atitoli(25) = " -9 "
atitoli(26) = " -10 "
atitoli(27) = " I.C. "
atitoli(28) = " Media uscita "
atitoli(29) = " Stringa estratti "
atitoli(30) = " Ultima ESTR_Esito "

Call InitTabella(atitoli,2,,2,5)

a(01) = "01"
a(02) = "02"
a(03) = "03"
a(04) = "04"
a(05) = "05"
a(06) = "06"
a(07) = "07"
a(08) = "08"
a(09) = "09"
a(10) = "10"
a(11) = "11"
a(12) = "12"
a(13) = "13"
a(14) = "14"
a(15) = "15"
a(16) = "16"
a(17) = "17"
a(18) = "18"
a(19) = "19"
a(20) = "20"
a(21) = "21"
a(22) = "22"
a(23) = "23"
a(24) = "24"
a(25) = "25"
a(26) = "26"
a(27) = "27"
a(28) = "28"
a(29) = "29"
a(30) = "30"
a(31) = "31"
a(32) = "32"
a(33) = "33"
a(34) = "34"
a(35) = "35"
a(36) = "36"
a(37) = "37"
a(38) = "38"
a(39) = "39"
a(40) = "40"
a(41) = "41"
a(42) = "42"
a(43) = "43"
a(44) = "44"
a(45) = "45"
a(46) = "46"
a(47) = "47"
a(48) = "48"
a(49) = "49"
a(50) = "50"
a(51) = "51"
a(52) = "52"
a(53) = "53"
a(54) = "54"
a(55) = "55"
a(56) = "56"
a(57) = "57"
a(58) = "58"
a(59) = "59"
a(60) = "60"
a(61) = "61"
a(62) = "62"
a(63) = "63"
a(64) = "64"
a(65) = "65"
a(66) = "66"
a(67) = "67"
a(68) = "68"
a(69) = "69"
a(70) = "70"
a(71) = "71"
a(72) = "72"
a(73) = "73"
a(74) = "74"
a(75) = "75"
a(76) = "76"
a(77) = "77"
a(78) = "78"
a(79) = "79"
a(80) = "80"
a(81) = "81"
a(82) = "82"
a(83) = "83"
a(84) = "84"
a(85) = "85"
a(86) = "86"
a(87) = "87"
a(88) = "88"
a(89) = "89"
a(90) = "90"

'--------------------------------------------------------------------
ReDim aPos(5)
aPos(1) = True
aPos(2) = True
aPos(3) = True
aPos(4) = True
aPos(5) = True
For N = 1 To UBound(a)
Nu = Split("0-" &(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max,Incr,fre,Ini,fin,,aPos)
'If Ru(1) = 11 Then
'ReDim rr(10)
'For xx = 1 To 10
'rr(xx) = xx
'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
'Next
'End If
'If Ru(1) <> 11 Then
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,Nothing,esitoF,,estrF)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
Call StatisticaFormazioneTurbo(nu,aRuote,1,ritP,maxP,IncrP,aaa,fin,fin,,aPos)
bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
eee = SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,nu,aRuote,1)
fff = SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,nu,aRuote,1)
ggg = SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,nu,aRuote,1)
hhh = SerieFreq(EstrazioneFin - 7,EstrazioneFin - 7,nu,aRuote,1)
iii = SerieFreq(EstrazioneFin - 8,EstrazioneFin - 8,nu,aRuote,1)
lll = SerieFreq(EstrazioneFin - 9,EstrazioneFin - 9,nu,aRuote,1)
mmm = SerieFreq(EstrazioneFin - 10,EstrazioneFin - 10,nu,aRuote,1)



'End If
If fre > 0 Then
ReDim avalori(30)
avalori(01) = " Dec. " & Format2(n)
avalori(02) = StringaNumeri(nu)
avalori(03) = rit
avalori(04) = max
avalori(05) = aaa
avalori(06) = aaa + bbb
avalori(07) = aaa + bbb + ccc
avalori(08) = aaa + bbb + ccc + ddd
avalori(09) = aaa + bbb + ccc + ddd + eee
avalori(10) = aaa + bbb + ccc + ddd + eee + fff
avalori(11) = aaa + bbb + ccc + ddd + eee + fff + ggg
avalori(12) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
avalori(13) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
avalori(14) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
avalori(15) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
avalori(16) = aaa
avalori(17) = bbb
avalori(18) = ccc
avalori(19) = ddd
avalori(20) = eee
avalori(21) = fff
avalori(22) = ggg
avalori(23) = hhh
avalori(24) = iii
avalori(25) = lll
avalori(26) = mmm
avalori(27) = Round(qt/fre,2)
avalori(28) = Round(fre/qt*rit,2)
avalori(29) = retestratti
avalori(30) = esitoF & " : " & estrF


Call AddRigaTabella(avalori,,,2)
End If
For x = 1 To 12
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(9)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(9)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
 
Codice:
Sub Main
     Dim a(90)
     Dim Ru(1)
     ReDim aRuote(11)
     qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",2))
     'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
     qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
     sorte = CInt(InputBox("QUALE SORTE ",,1))
     color = CInt(InputBox("Quale Numero vuoi evidenziare",,1))
     color2 = CInt(InputBox("Quale Numero vuoi evidenziare",,20))
     color3 = CInt(InputBox("Quale Numero vuoi evidenziare",,56))
     color4 = CInt(InputBox("Quale Numero vuoi evidenziare",,80))
     Dim posta(2)
     posta(1) = 1
     posta(2) = 1
     Fin = EstrazioneFin
     Ini = EstrazioneFin - qt
     If ScegliRuote(aRuote) > 0 Then
          Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
          Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
          Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
          Scrivi
          For k = 1 To UBound(aRuote)
               If aRuote(k) > 0 Then
                    Ru(1) = aRuote(k)
                    'For rt = 1 To 12
                    'Ru(1) = aRuote(k)
                    ReDim atitoli(30)
                    atitoli(01) = " fila "
                    atitoli(02) = " numeri "
                    atitoli(03) = " Rit. "
                    atitoli(04) = " Rit. M. "
                    atitoli(05) = " Estr. "
                    atitoli(06) = " +2 "
                    atitoli(07) = " +3 "
                    atitoli(08) = " +4 "
                    atitoli(09) = " +5 "
                    atitoli(10) = " +6 "
                    atitoli(11) = " +7 "
                    atitoli(12) = " +8 "
                    atitoli(13) = " +9 "
                    atitoli(14) = " +10 "
                    atitoli(15) = " +11 "
                    atitoli(16) = " Estr. "
                    atitoli(17) = " -1 "
                    atitoli(18) = " -2 "
                    atitoli(19) = " -3 "
                    atitoli(20) = " -4 "
                    atitoli(21) = " -5 "
                    atitoli(22) = " -6 "
                    atitoli(23) = " -7 "
                    atitoli(24) = " -8 "
                    atitoli(25) = " -9 "
                    atitoli(26) = " -10 "
                    atitoli(27) = " I.C. "
                    atitoli(28) = " Media uscita "
                    atitoli(29) = " Stringa estratti "
                    atitoli(30) = " Ultima ESTR_Esito "
                    Call InitTabella(atitoli,2,,2,5)
                    a(01) = "01"
                    a(02) = "02"
                    a(03) = "03"
                    a(04) = "04"
                    a(05) = "05"
                    a(06) = "06"
                    a(07) = "07"
                    a(08) = "08"
                    a(09) = "09"
                    a(10) = "10"
                    a(11) = "11"
                    a(12) = "12"
                    a(13) = "13"
                    a(14) = "14"
                    a(15) = "15"
                    a(16) = "16"
                    a(17) = "17"
                    a(18) = "18"
                    a(19) = "19"
                    a(20) = "20"
                    a(21) = "21"
                    a(22) = "22"
                    a(23) = "23"
                    a(24) = "24"
                    a(25) = "25"
                    a(26) = "26"
                    a(27) = "27"
                    a(28) = "28"
                    a(29) = "29"
                    a(30) = "30"
                    a(31) = "31"
                    a(32) = "32"
                    a(33) = "33"
                    a(34) = "34"
                    a(35) = "35"
                    a(36) = "36"
                    a(37) = "37"
                    a(38) = "38"
                    a(39) = "39"
                    a(40) = "40"
                    a(41) = "41"
                    a(42) = "42"
                    a(43) = "43"
                    a(44) = "44"
                    a(45) = "45"
                    a(46) = "46"
                    a(47) = "47"
                    a(48) = "48"
                    a(49) = "49"
                    a(50) = "50"
                    a(51) = "51"
                    a(52) = "52"
                    a(53) = "53"
                    a(54) = "54"
                    a(55) = "55"
                    a(56) = "56"
                    a(57) = "57"
                    a(58) = "58"
                    a(59) = "59"
                    a(60) = "60"
                    a(61) = "61"
                    a(62) = "62"
                    a(63) = "63"
                    a(64) = "64"
                    a(65) = "65"
                    a(66) = "66"
                    a(67) = "67"
                    a(68) = "68"
                    a(69) = "69"
                    a(70) = "70"
                    a(71) = "71"
                    a(72) = "72"
                    a(73) = "73"
                    a(74) = "74"
                    a(75) = "75"
                    a(76) = "76"
                    a(77) = "77"
                    a(78) = "78"
                    a(79) = "79"
                    a(80) = "80"
                    a(81) = "81"
                    a(82) = "82"
                    a(83) = "83"
                    a(84) = "84"
                    a(85) = "85"
                    a(86) = "86"
                    a(87) = "87"
                    a(88) = "88"
                    a(89) = "89"
                    a(90) = "90"
                    '--------------------------------------------------------------------
                    ReDim aPos(5)
                    aPos(1) = True
                    aPos(2) = True
                    aPos(3) = True
                    aPos(4) = True
                    aPos(5) = True
                    For N = 1 To UBound(a)
                         Nu = Split("0-" &(a(n)),"-")
                         Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max,Incr,fre,Ini,fin,,aPos)
                         'If Ru(1) = 11 Then
                         'ReDim rr(10)
                         'For xx = 1 To 10
                         'rr(xx) = xx
                         'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
                         'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
                         'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
                         'Next
                         'End If
                         'If Ru(1) <> 11 Then
                         Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
                         Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,Nothing,esitoF,,estrF)
                         'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
                         Call StatisticaFormazioneTurbo(nu,aRuote,1,ritP,maxP,IncrP,aaa,fin,fin,,aPos)
                         bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
                         ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
                         ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
                         eee = SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,nu,aRuote,1)
                         fff = SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,nu,aRuote,1)
                         ggg = SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,nu,aRuote,1)
                         hhh = SerieFreq(EstrazioneFin - 7,EstrazioneFin - 7,nu,aRuote,1)
                         iii = SerieFreq(EstrazioneFin - 8,EstrazioneFin - 8,nu,aRuote,1)
                         lll = SerieFreq(EstrazioneFin - 9,EstrazioneFin - 9,nu,aRuote,1)
                         mmm = SerieFreq(EstrazioneFin - 10,EstrazioneFin - 10,nu,aRuote,1)
                         'End If
                         If fre > 0 Then
                              ReDim avalori(30)
                              avalori(01) = " Dec. " & Format2(n)
                              avalori(02) = StringaNumeri(nu)
                              avalori(03) = rit
                              avalori(04) = max
                              avalori(05) = aaa
                              avalori(06) = aaa + bbb
                              avalori(07) = aaa + bbb + ccc
                              avalori(08) = aaa + bbb + ccc + ddd
                              avalori(09) = aaa + bbb + ccc + ddd + eee
                              avalori(10) = aaa + bbb + ccc + ddd + eee + fff
                              avalori(11) = aaa + bbb + ccc + ddd + eee + fff + ggg
                              avalori(12) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
                              avalori(13) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
                              avalori(14) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
                              avalori(15) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
                              avalori(16) = aaa
                              avalori(17) = bbb
                              avalori(18) = ccc
                              avalori(19) = ddd
                              avalori(20) = eee
                              avalori(21) = fff
                              avalori(22) = ggg
                              avalori(23) = hhh
                              avalori(24) = iii
                              avalori(25) = lll
                              avalori(26) = mmm
                              avalori(27) = Round(qt/fre,2)
                              avalori(28) = Round(fre/qt*rit,2)
                              avalori(29) = retestratti
                              avalori(30) = esitoF & " : " & estrF
                              Call AddRigaTabella(avalori,,,2)
                         End If
                         For x = 1 To 12
                              If n = color Then Call SetColoreCella((x),vbYellow,1)
                              If n = color2 Then Call SetColoreCella((x),vbGreen,1)
                              If n = color3 Then Call SetColoreCella((x),vbRed,1)
                              If n = color4 Then Call SetColoreCella((x),vbCyan,1)

                         Next
                    Next
               End If
          Next
     End If
     Call SetTableWidth("100%")
     If qualeTab = 1 Then Call CreaTabella(9)
     If qualeTab = 2 Then Call CreaTabellaOrdinabile(9)
     If qualeTab > 2 Then MsgBox " errore digit Tabella"
     PicClear
     Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
     PicEsegui
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 01 luglio 2025
    Bari
    71
    66
    48
    42
    76
    Cagliari
    84
    70
    23
    69
    43
    Firenze
    50
    21
    30
    11
    69
    Genova
    89
    41
    50
    80
    67
    Milano
    41
    59
    67
    03
    60
    Napoli
    87
    63
    51
    42
    07
    Palermo
    56
    87
    76
    27
    09
    Roma
    41
    26
    50
    22
    77
    Torino
    36
    83
    80
    65
    05
    Venezia
    45
    77
    76
    81
    71
    Nazionale
    72
    06
    03
    08
    07
    Estrazione Simbolotto
    Nazionale
    34
    27
    08
    12
    17
Indietro
Alto