Option Explicit
'http://forum.lottoced.com/forum/lottoced/area-download/1999841-script-per-innovativa-ricerca-statistica
'INNOVATIVA RICERCA STATISTICA di numerico
Sub Main
Dim Ini,fin
Ini = EstrazioneIni
fin = EstrazioneFin
ReDim atitoli(24)
atitoli(01) = " Numeri "
atitoli(02) = " BA - Rt "
atitoli(03) = " BA - Fr "
atitoli(04) = " CA - Rt "
atitoli(05) = " CA - Fr "
atitoli(06) = " FI - Rt "
atitoli(07) = " FI - Fr "
atitoli(08) = " GE - Rt "
atitoli(09) = " GE - Fr "
atitoli(10) = " MI - Rt "
atitoli(11) = " MI - Fr "
atitoli(12) = " NA - Rt "
atitoli(13) = " NA - Fr "
atitoli(14) = " PA - Rt "
atitoli(15) = " PA - Fr "
atitoli(16) = " RO - Rt "
atitoli(17) = " RO - Fr "
atitoli(18) = " TO - Rt "
atitoli(19) = " TO - Fr "
atitoli(20) = " VE - Rt "
atitoli(21) = " VE - Fr "
atitoli(22) = " NZ - Rt "
atitoli(23) = " NZ - Fr "
atitoli(24) = " Numeri "
Call InitTabella(atitoli,vbGreen,,02,00)
Dim x
Dim nt(90)
For x = 01 To 90
nt(01) = x
Call Messaggio(Format2(x))
Call AvanzamentoElab(01,90,x)
ReDim avalori(24)
avalori(01) = Format2(x)
avalori(24) = Format2(x)
'------------------------------------------------------------
Dim rit01,freq01
ReDim ruota01(01)
ruota01(01) = BA_
Call StatFrzTurbo(nt,ruota01,AMBATA_,rit01,,,freq01,,Ini,fin)
avalori(02) = rit01
avalori(03) = freq01
'------------------------------------------------------------
Dim rit02,freq02
ReDim ruota02(01)
ruota02(01) = CA_
Call StatFrzTurbo(nt,ruota02,AMBATA_,rit02,,,freq02,,Ini,fin)
avalori(04) = rit02
avalori(05) = freq02
'------------------------------------------------------------
Dim rit03,freq03
ReDim ruota03(01)
ruota03(01) = FI_
Call StatFrzTurbo(nt,ruota03,AMBATA_,rit03,,,freq03,,Ini,fin)
avalori(06) = rit03
avalori(07) = freq03
'------------------------------------------------------------
Dim rit04,freq04
ReDim ruota04(01)
ruota04(01) = GE_
Call StatFrzTurbo(nt,ruota04,AMBATA_,rit04,,,freq04,,Ini,fin)
avalori(08) = rit04
avalori(09) = freq04
'------------------------------------------------------------
Dim rit05,freq05
ReDim ruota05(01)
ruota05(01) = MI_
Call StatFrzTurbo(nt,ruota05,AMBATA_,rit05,,,freq05,,Ini,fin)
avalori(10) = rit05
avalori(11) = freq05
'------------------------------------------------------------
Dim rit06,freq06
ReDim ruota06(01)
ruota06(01) = NA_
Call StatFrzTurbo(nt,ruota06,AMBATA_,rit06,,,freq06,,Ini,fin)
avalori(12) = rit06
avalori(13) = freq06
'------------------------------------------------------------
Dim rit07,freq07
ReDim ruota07(01)
ruota07(01) = PA_
Call StatFrzTurbo(nt,ruota07,AMBATA_,rit07,,,freq07,,Ini,fin)
avalori(14) = rit07
avalori(15) = freq07
'------------------------------------------------------------
Dim rit08,freq08
ReDim ruota08(01)
ruota08(01) = RO_
Call StatFrzTurbo(nt,ruota08,AMBATA_,rit08,,,freq08,,Ini,fin)
avalori(16) = rit08
avalori(17) = freq08
'------------------------------------------------------------
Dim rit09,freq09
ReDim ruota09(01)
ruota09(01) = TO_
Call StatFrzTurbo(nt,ruota09,AMBATA_,rit09,,,freq09,,Ini,fin)
avalori(18) = rit09
avalori(19) = freq09
'------------------------------------------------------------
Dim rit10,freq10
ReDim ruota10(01)
ruota10(01) = VE_
Call StatFrzTurbo(nt,ruota10,AMBATA_,rit10,,,freq10,,Ini,fin)
avalori(20) = rit10
avalori(21) = freq10
'------------------------------------------------------------
Dim rit12,freq12
ReDim ruota12(01)
ruota12(01) = NZ_
Call StatFrzTurbo(nt,ruota12,AMBATA_,rit12,,,freq12,,Ini,fin)
avalori(22) = rit12
avalori(23) = freq12
Call AddRigaTabella(avalori,,,03,,01)
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If avalori(02) = avalori(04) And avalori(03) = avalori(05) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255))
ElseIf avalori(02) = avalori(06) And avalori(03) = avalori(07) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255))
ElseIf avalori(02) = avalori(08) And avalori(03) = avalori(09) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255))
ElseIf avalori(02) = avalori(10) And avalori(03) = avalori(11) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255))
ElseIf avalori(02) = avalori(12) And avalori(03) = avalori(13) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255))
ElseIf avalori(02) = avalori(14) And avalori(03) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(02) = avalori(16) And avalori(03) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(02) = avalori(18) And avalori(03) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(02) = avalori(20) And avalori(03) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(02) = avalori(22) And avalori(03) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(04) = avalori(06) And avalori(05) = avalori(07) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255))
ElseIf avalori(04) = avalori(08) And avalori(05) = avalori(09) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255))
ElseIf avalori(04) = avalori(10) And avalori(05) = avalori(11) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255))
ElseIf avalori(04) = avalori(12) And avalori(05) = avalori(13) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255))
ElseIf avalori(04) = avalori(14) And avalori(05) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(04) = avalori(16) And avalori(05) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(04) = avalori(18) And avalori(05) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(04) = avalori(20) And avalori(05) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(04) = avalori(22) And avalori(05) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(06) = avalori(08) And avalori(07) = avalori(09) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255))
ElseIf avalori(06) = avalori(10) And avalori(07) = avalori(11) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255))
ElseIf avalori(06) = avalori(12) And avalori(07) = avalori(13) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255))
ElseIf avalori(06) = avalori(14) And avalori(07) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(06) = avalori(16) And avalori(07) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(06) = avalori(18) And avalori(07) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(06) = avalori(20) And avalori(07) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(06) = avalori(22) And avalori(07) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(08) = avalori(10) And avalori(09) = avalori(11) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255))
ElseIf avalori(06) = avalori(12) And avalori(09) = avalori(13) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255))
ElseIf avalori(08) = avalori(14) And avalori(09) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(08) = avalori(16) And avalori(09) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(08) = avalori(18) And avalori(09) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(08) = avalori(20) And avalori(09) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(08) = avalori(22) And avalori(09) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(10) = avalori(12) And avalori(11) = avalori(13) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255))
ElseIf avalori(10) = avalori(14) And avalori(11) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(10) = avalori(16) And avalori(11) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(10) = avalori(18) And avalori(11) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(10) = avalori(20) And avalori(11) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(10) = avalori(22) And avalori(11) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(12) = avalori(14) And avalori(13) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(12) = avalori(16) And avalori(13) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(12) = avalori(18) And avalori(13) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(12) = avalori(20) And avalori(13) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(12) = avalori(22) And avalori(13) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(14) = avalori(16) And avalori(15) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(14) = avalori(18) And avalori(15) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(14) = avalori(20) And avalori(15) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(14) = avalori(22) And avalori(15) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(16) = avalori(18) And avalori(17) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(16) = avalori(20) And avalori(17) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(16) = avalori(22) And avalori(17) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'---------------------------------------------------------------------------------------------------------------------------------------Grazie
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Next
Call Messaggio(" Attendere Creazione Tabella ")
Call CreaTabella()
End Sub