variare questo script per poter evidenziare più numeri

ppaaoolloo · 30 Novembre 2024

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

),"-")
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

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

claudio8 · 1 Dicembre 2024

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

ppaaoolloo · 7 Dicembre 2024

ciao Claudio, mi scuso ma
ho avuto solo adesso il tempo per vederlo e provarlo
sembra tutto ok

Grazie

ppaaoolloo · 17 Settembre 2025

claudio8 ha scritto:

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

ciao
sarebbe possibile fare un'aggiunta per poter evidenziare anche le colonne,
mi basterebbe poter evidenziare la 5 r la10
ringrazio anticipatamente

claudio8 · 17 Settembre 2025

Fai un esempio colorando le colonne che desideri o identificandone il Titolo

claudio8 · 17 Settembre 2025

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))
     color1 = 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)
                    For x = 1 To 90
                       a(x) = Format2(x)
                    Next
                     '----ti ho sostitito l'eenco da a(1) ad  a(90) con il ciclo for... next
                    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
                          ' qui ho inserito la colorazione della ( casella x casella) colonna 6 e 10 
                         If avalori(6) <> " "  Then Call SetColoreCella(6,vbYellow,1)
                         If avalori(10) <> " "  Then Call SetColoreCella(10,vbYellow,1)

                         For x = 1 To 12
                              If n = color1 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

Spero ti vada bene

ppaaoolloo · 20 Settembre 2025

Buongiorno Claudio
ottimo lavoro
proprio come mi serviva
grazie

ppaaoolloo · 24 Settembre 2025

claudio8 ha scritto:

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))
     color1 = 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)
                    For x = 1 To 90
                       a(x) = Format2(x)
                    Next
                     '----ti ho sostitito l'eenco da a(1) ad  a(90) con il ciclo for... next
                    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
                          ' qui ho inserito la colorazione della ( casella x casella) colonna 6 e 10
                         If avalori(6) <> " "  Then Call SetColoreCella(6,vbYellow,1)
                         If avalori(10) <> " "  Then Call SetColoreCella(10,vbYellow,1)

                         For x = 1 To 12
                              If n = color1 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

Spero ti vada bene

Buondì
chiedo se è possibile ancora una variazione dello script,
anzi una aggiunta, vorrei sapere se sia possibile nelle
colonne selezionate poter selezionare anche dei numeri,
ad esempio i numeri 3 e 6
grazie

Cerca

Cerca

variare questo script per poter evidenziare più numeri

ppaaoolloo

Super Member >PLATINUM<

claudio8

Premium Member

ppaaoolloo

Super Member >PLATINUM<

ppaaoolloo

Super Member >PLATINUM<

claudio8

Premium Member

claudio8

Premium Member

ppaaoolloo

Super Member >PLATINUM<

ppaaoolloo

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi