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
    sabato 06 settembre 2025
    Bari
    01
    26
    50
    16
    49
    Cagliari
    61
    18
    01
    62
    22
    Firenze
    84
    23
    32
    26
    88
    Genova
    24
    27
    47
    76
    44
    Milano
    59
    08
    06
    11
    39
    Napoli
    02
    65
    40
    28
    57
    Palermo
    09
    66
    51
    81
    49
    Roma
    76
    55
    73
    88
    65
    Torino
    38
    49
    40
    21
    90
    Venezia
    80
    60
    34
    69
    42
    Nazionale
    89
    76
    64
    80
    21
    Estrazione Simbolotto
    Palermo
    39
    34
    02
    08
    43
Indietro
Alto