Novità

evidenziare sequenze in tabella

Zetrix

Zetrix

Advanced Premium Member
9916.PNG

vorrei evidenziare alcune sequenze in questa tabella ma non so perche non evidenzia
tutti i numeri della sequenza nella tabella
evidenziare la figura e facile perche si scrive in inputbox
X = InputBox("Inserire figura",,0)
ma per le sequenze come si deve scrivere..

If Figura(A) = X Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
If Figura(B) = X Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
If Figura(C) = X Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
If Figura(D) = X Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
If Figura(E) = X Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))


Q = InputBox("Inizia Sequenza da....1-2-3-4-5-6-7-8-9-10-11?",,0)
J = InputBox("Sequenza..............1-2-3-4-5-6-7-8-9-10-11?",,0)
'
For ES = EstrazioneFin To EstrazioneFin
'
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
'
For W = J To J
For K = Q To 180 Step W
Next
sequenza = Fuori90(K)

If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))

se scrivo in questo modo non evidenzia nessun numero
se invece la Next la scrivo in fondo allo script evidenzia i numeri della sequenza ma evidenzia
solo un numero per volta su ogni tabella e non va bene..
dovrebbe evidenziare tutta la sequenza su ogni ruota e in unica tabella
 
Ultima modifica:
Zetrix ha scritto:
Vedi l'allegato 2294997

vorrei evidenziare alcune sequenze in questa tabella ma non so perche non evidenzia
tutti i numeri della sequenza nella tabella
evidenziare la figura e facile perche si scrive in inputbox
X = InputBox("Inserire figura",,0)
ma per le sequenze come si deve scrivere..

If Figura(A) = X Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
If Figura(B) = X Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
If Figura(C) = X Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
If Figura(D) = X Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
If Figura(E) = X Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))


Q = InputBox("Inizia Sequenza da....1-2-3-4-5-6-7-8-9-10-11?",,0)
J = InputBox("Sequenza..............1-2-3-4-5-6-7-8-9-10-11?",,0)
'
For ES = EstrazioneFin To EstrazioneFin
'
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
'
For W = J To J
For K = Q To 180 Step W
Next
sequenza = Fuori90(K)

If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))

se scrivo in questo modo non evidenzia nessun numero
se invece la Next la scrivo in fondo allo script evidenzia i numeri della sequenza ma evidenzia
solo un numero per volta su ogni tabella e non va bene..
dovrebbe evidenziare tutta la sequenza su ogni ruota e in unica tabella
Clicca per espandere...
Dall'Oracolo di Delphi, oscuro come sempre:

Certamente, ti spiego in italiano come risolvere il problema di evidenziazione delle sequenze nella tabella.
Il problema principale nel tuo codice è che il ciclo Next non è posizionato correttamente, causando l'evidenziazione di un solo numero alla volta. Ecco una versione corretta del codice con spiegazioni:

Sub EvidenziaSequenza()
Dim Q As Integer, J As Integer
Dim sequenza As Integer
Dim i As Integer

' Richiedi i parametri di input
X = InputBox("Inserire figura", , 0)
Q = InputBox("Inizia Sequenza da....1-2-3-4-5-6-7-8-9-10-11?", , 0)
J = InputBox("Sequenza..............1-2-3-4-5-6-7-8-9-10-11?", , 0)

' Ciclo attraverso la sequenza
For K = Q To 180 Step J
sequenza = Fuori90(K)

' Controlla tutte le celle nella riga corrente
For i = 1 To 7 ' Assumendo 7 colonne di numeri
If CInt(Cells(i, 2).Value) = sequenza Then
Call SetColoreCella(i, RGB(0, 240, 0), RGB(0, 0, 0))
End If
Next i
Next K
End Sub

E la procedura per colorare le celle:

Sub SetColoreCella(riga As Integer, coloreSfondo As Long, coloreTesto As Long)
With Cells(riga, 2) ' Modifica la colonna secondo necessità
.Interior.Color = coloreSfondo
.Font.Color = coloreTesto
End With
End Sub

Le modifiche principali che ho apportato sono:


  1. Ho spostato il Next all'interno del ciclo principale per assicurare che tutti i numeri vengano processati
  2. Ho aggiunto un ciclo interno che controlla tutte le celle in ogni riga
  3. Ho semplificato la logica di controllo della sequenza per lavorare su tutti i numeri corrispondenti contemporaneamente

Questo codice dovrebbe ora:


  • Evidenziare tutti i numeri nella sequenza contemporaneamente
  • Funzionare su tutte le righe nella tabella
  • Processare l'intera sequenza in un unico passaggio

Il problema nel tuo codice originale era che il posizionamento del Next causava l'uscita prematura dal ciclo, processando solo un numero alla volta. Riorganizzando i cicli, ci assicuriamo che tutti i numeri corrispondenti vengano evidenziati insieme.

Questo ha detto, senza che io c'abbia capito qualcosa la grande, possente, infallibile AI (dite tre bit e u8n byte ogni volta che la nomate, infedeli)

Il Chierichetto delle AI
Baciccia bit bit byte
 
Baciccia grazie per le spiegazioni ma sinceramente non ci ho capito tanto dello script
so che il problema e il posizionamento del next e non so in quale riga dello script devo scriverlo..
comunque questa richiesta lo postata su un altro forum,
vediamo se riesco a risolvere il problema se no posto qua lo script per intero e cosi vedi come
e impostato lo script..
intanto grazie della risposta..
 
Codice: 
Sub Main
   Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15
   Dim X,Y,Z
   Dim A1,A2,A3,A4,A5,A6,A7,A8,A9
   Dim B1,B2,B3,B4,B5,B6,B7,B8,B9
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9
   Dim A,B,C,D,E
   Dim sequenza,K
   Dim ES,RS,R1,W,Q,J
   '
   Q = InputBox("Inizia Sequenza da....1-2-3-4-5-6-7-8-9-10-11?",,0)
   J = InputBox("Sequenza..............1-2-3-4-5-6-7-8-9-10-11?",,0)
   '
   For ES = EstrazioneFin To EstrazioneFin
      '
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         '
         For W = J To J
            For K = Q To 180 Step W
               Next
               sequenza = Fuori90(K)
               '----------------------------------------------------
               '----------------------------------------------------
               T1 = Array(T1,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call InitTabella(T1,Bianco_,"center",3,Nero_,"Raavi")
               '-----------------------------------------------
               A = Estratto(ES - 9,R1,1)
               B = Estratto(ES - 9,R1,2)
               C = Estratto(ES - 9,R1,3)
               D = Estratto(ES - 9,R1,4)
               E = Estratto(ES - 9,R1,5)
               '
               T2 = Array(T2,"10","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 9))
               '------------------------------------------------
               Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Raavi")
               '--------------------------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 8,R1,1)
               B = Estratto(ES - 8,R1,2)
               C = Estratto(ES - 8,R1,3)
               D = Estratto(ES - 8,R1,4)
               E = Estratto(ES - 8,R1,5)
               '
               T3 = Array(T3,"9","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 8))
               '-------------------------------
               Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 7,R1,1)
               B = Estratto(ES - 7,R1,2)
               C = Estratto(ES - 7,R1,3)
               D = Estratto(ES - 7,R1,4)
               E = Estratto(ES - 7,R1,5)
               '
               T4 = Array(T4,"8","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 7))
               '-------------------------------
               '-------------------------------
               Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               '
               A = Estratto(ES - 6,R1,1)
               B = Estratto(ES - 6,R1,2)
               C = Estratto(ES - 6,R1,3)
               D = Estratto(ES - 6,R1,4)
               E = Estratto(ES - 6,R1,5)
               '
               T5 = Array(T5,"7","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 6))
               '-------------------------------
               '-------------------------------
               Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 5,R1,1)
               B = Estratto(ES - 5,R1,2)
               C = Estratto(ES - 5,R1,3)
               D = Estratto(ES - 5,R1,4)
               E = Estratto(ES - 5,R1,5)
               '
               T6 = Array(T6,"6","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 5))
               '-------------------------------
               '------------------------------
               Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza)Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza)Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 4,R1,1)
               B = Estratto(ES - 4,R1,2)
               C = Estratto(ES - 4,R1,3)
               D = Estratto(ES - 4,R1,4)
               E = Estratto(ES - 4,R1,5)
               '
               T7 = Array(T7,"5","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 4))
               '-------------------------------
               '-------------------------------
               Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 3,R1,1)
               B = Estratto(ES - 3,R1,2)
               C = Estratto(ES - 3,R1,3)
               D = Estratto(ES - 3,R1,4)
               E = Estratto(ES - 3,R1,5)
               '
               T8 = Array(T8,"4","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 3))
               '-------------------------------
               '-------------------------------
               Call AddRigaTabella(T8,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 2,R1,1)
               B = Estratto(ES - 2,R1,2)
               C = Estratto(ES - 2,R1,3)
               D = Estratto(ES - 2,R1,4)
               E = Estratto(ES - 2,R1,5)
               '
               T9 = Array(T9,"3","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 2))
               '-------------------------------
               Call AddRigaTabella(T9,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza)Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 1,R1,1)
               B = Estratto(ES - 1,R1,2)
               C = Estratto(ES - 1,R1,3)
               D = Estratto(ES - 1,R1,4)
               E = Estratto(ES - 1,R1,5)
               '
               T10 = Array(T10,"2"," ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 1))
               '-------------------------------
               '-------------------------------
               Call AddRigaTabella(T10,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------'-------------------------------
               '-------------------------------
               If A =(sequenza)Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza)Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               '-------------------------------
               A = Estratto(ES - 0,R1,1)
               B = Estratto(ES - 0,R1,2)
               C = Estratto(ES - 0,R1,3)
               D = Estratto(ES - 0,R1,4)
               E = Estratto(ES - 0,R1,5)
               '
               T11 = Array(T11,"1","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 0))
               '-------------------------------
               '
               '----------------------------------------
               Call AddRigaTabella(T11,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               '
               T12 = Array(T12,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T12,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               T13 = Array(T13,SiglaRuota(R1),"  ","  ","  ","  ","  ","  ","  "," sequenza " & W," ")
               Call AddRigaTabella(T13,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               T14 = Array(T14,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T14,Bianco_,"center",3,Nero_,"Raavi")
               '
               Call SetTableWidth("21%")
               CreaTabella
            'Next
         Next
      Next
   Next
End Sub

se no Baciccia lo posto pure qua lo script cosi vediamo chi riesce meglio a risolvere il problema..
 
Zetrix ha scritto:
Codice: 
Sub Main
   Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15
   Dim X,Y,Z
   Dim A1,A2,A3,A4,A5,A6,A7,A8,A9
   Dim B1,B2,B3,B4,B5,B6,B7,B8,B9
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9
   Dim A,B,C,D,E
   Dim sequenza,K
   Dim ES,RS,R1,W,Q,J
   '
   Q = InputBox("Inizia Sequenza da....1-2-3-4-5-6-7-8-9-10-11?",,0)
   J = InputBox("Sequenza..............1-2-3-4-5-6-7-8-9-10-11?",,0)
   '
   For ES = EstrazioneFin To EstrazioneFin
      '
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         '
         For W = J To J
            For K = Q To 180 Step W
               Next
               sequenza = Fuori90(K)
               '----------------------------------------------------
               '----------------------------------------------------
               T1 = Array(T1,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call InitTabella(T1,Bianco_,"center",3,Nero_,"Raavi")
               '-----------------------------------------------
               A = Estratto(ES - 9,R1,1)
               B = Estratto(ES - 9,R1,2)
               C = Estratto(ES - 9,R1,3)
               D = Estratto(ES - 9,R1,4)
               E = Estratto(ES - 9,R1,5)
               '
               T2 = Array(T2,"10","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 9))
               '------------------------------------------------
               Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Raavi")
               '--------------------------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 8,R1,1)
               B = Estratto(ES - 8,R1,2)
               C = Estratto(ES - 8,R1,3)
               D = Estratto(ES - 8,R1,4)
               E = Estratto(ES - 8,R1,5)
               '
               T3 = Array(T3,"9","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 8))
               '-------------------------------
               Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 7,R1,1)
               B = Estratto(ES - 7,R1,2)
               C = Estratto(ES - 7,R1,3)
               D = Estratto(ES - 7,R1,4)
               E = Estratto(ES - 7,R1,5)
               '
               T4 = Array(T4,"8","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 7))
               '-------------------------------
               '-------------------------------
               Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               '
               A = Estratto(ES - 6,R1,1)
               B = Estratto(ES - 6,R1,2)
               C = Estratto(ES - 6,R1,3)
               D = Estratto(ES - 6,R1,4)
               E = Estratto(ES - 6,R1,5)
               '
               T5 = Array(T5,"7","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 6))
               '-------------------------------
               '-------------------------------
               Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 5,R1,1)
               B = Estratto(ES - 5,R1,2)
               C = Estratto(ES - 5,R1,3)
               D = Estratto(ES - 5,R1,4)
               E = Estratto(ES - 5,R1,5)
               '
               T6 = Array(T6,"6","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 5))
               '-------------------------------
               '------------------------------
               Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza)Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza)Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 4,R1,1)
               B = Estratto(ES - 4,R1,2)
               C = Estratto(ES - 4,R1,3)
               D = Estratto(ES - 4,R1,4)
               E = Estratto(ES - 4,R1,5)
               '
               T7 = Array(T7,"5","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 4))
               '-------------------------------
               '-------------------------------
               Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 3,R1,1)
               B = Estratto(ES - 3,R1,2)
               C = Estratto(ES - 3,R1,3)
               D = Estratto(ES - 3,R1,4)
               E = Estratto(ES - 3,R1,5)
               '
               T8 = Array(T8,"4","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 3))
               '-------------------------------
               '-------------------------------
               Call AddRigaTabella(T8,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 2,R1,1)
               B = Estratto(ES - 2,R1,2)
               C = Estratto(ES - 2,R1,3)
               D = Estratto(ES - 2,R1,4)
               E = Estratto(ES - 2,R1,5)
               '
               T9 = Array(T9,"3","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 2))
               '-------------------------------
               Call AddRigaTabella(T9,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza)Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               A = Estratto(ES - 1,R1,1)
               B = Estratto(ES - 1,R1,2)
               C = Estratto(ES - 1,R1,3)
               D = Estratto(ES - 1,R1,4)
               E = Estratto(ES - 1,R1,5)
               '
               T10 = Array(T10,"2"," ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 1))
               '-------------------------------
               '-------------------------------
               Call AddRigaTabella(T10,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------'-------------------------------
               '-------------------------------
               If A =(sequenza)Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza)Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               '-------------------------------
               A = Estratto(ES - 0,R1,1)
               B = Estratto(ES - 0,R1,2)
               C = Estratto(ES - 0,R1,3)
               D = Estratto(ES - 0,R1,4)
               E = Estratto(ES - 0,R1,5)
               '
               T11 = Array(T11,"1","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 0))
               '-------------------------------
               '
               '----------------------------------------
               Call AddRigaTabella(T11,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               If A =(sequenza) Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
               If B =(sequenza) Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
               If C =(sequenza) Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
               If D =(sequenza) Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
               If E =(sequenza) Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
               '--------------------------------
               '
               T12 = Array(T12,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T12,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               T13 = Array(T13,SiglaRuota(R1),"  ","  ","  ","  ","  ","  ","  "," sequenza " & W," ")
               Call AddRigaTabella(T13,Bianco_,"center",3,Nero_,"Raavi")
               '-------------------------------
               T14 = Array(T14,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T14,Bianco_,"center",3,Nero_,"Raavi")
               '
               Call SetTableWidth("21%")
               CreaTabella
            'Next
         Next
      Next
   Next
End Sub

se no Baciccia lo posto pure qua lo script cosi vediamo chi riesce meglio a risolvere il problema..
Clicca per espandere...
i base a qullo che hai messo ho ottenuto qusto:

Function Fuori90(ByVal Numero As Integer) As Integer
' Se il numero è maggiore di 90, sottrae 90 finché non è nel range 1-90
Do While Numero > 90
Numero = Numero - 90
Loop
Fuori90 = Numero
End Function

Sub Main()
Dim T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, T15
Dim X, Y, Z
Dim A1, A2, A3, A4, A5, A6, A7, A8, A9
Dim B1, B2, B3, B4, B5, B6, B7, B8, B9
Dim N1, N2, N3, N4, N5, N6, N7, N8, N9
Dim A, B, C, D, E
Dim sequenza, K
Dim ES, RS, R1, W, Q, J
'
Q = InputBox("Inizia Sequenza da....1-2-3-4-5-6-7-8-9-10-11?", , 0)
J = InputBox("Sequenza..............1-2-3-4-5-6-7-8-9-10-11?", , 0)
'
For ES = EstrazioneFin To EstrazioneFin
'
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
'
For W = J To J
For K = Q To 180 Step W
sequenza = Fuori90(K)
'----------------------------------------------------
'----------------------------------------------------
T1 = Array(T1, " ", " ", " ", " ", " ", " ", " ", " ", " ")
Call InitTabella(T1, Bianco_, "center", 3, Nero_, "Raavi")
'-----------------------------------------------
A = Estratto(ES - 9, R1, 1)
B = Estratto(ES - 9, R1, 2)
C = Estratto(ES - 9, R1, 3)
D = Estratto(ES - 9, R1, 4)
E = Estratto(ES - 9, R1, 5)
'
T2 = Array(T2, "10", " ", Format2(A), Format2(B), Format2(C), Format2(D), Format2(E), " ", DataEstrazione(ES - 9))
'------------------------------------------------
Call AddRigaTabella(T2, Bianco_, "center", 3, Nero_, "Raavi")
'--------------------------------------------------
'-------------------------------
If A = (sequenza) Then Call SetColoreCella(3, RGB(0, 240, 0), RGB(0, 0, 0))
If B = (sequenza) Then Call SetColoreCella(4, RGB(0, 240, 0), RGB(0, 0, 0))
If C = (sequenza) Then Call SetColoreCella(5, RGB(0, 240, 0), RGB(0, 0, 0))
If D = (sequenza) Then Call SetColoreCella(6, RGB(0, 240, 0), RGB(0, 0, 0))
If E = (sequenza) Then Call SetColoreCella(7, RGB(0, 240, 0), RGB(0, 0, 0))
'--------------------------------
A = Estratto(ES - 8, R1, 1)
B = Estratto(ES - 8, R1, 2)
C = Estratto(ES - 8, R1, 3)
D = Estratto(ES - 8, R1, 4)
E = Estratto(ES - 8, R1, 5)
'
T3 = Array(T3, "9", " ", Format2(A), Format2(B), Format2(C), Format2(D), Format2(E), " ", DataEstrazione(ES - 8))
'-------------------------------
Call AddRigaTabella(T3, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------
'-------------------------------
If A = (sequenza) Then Call SetColoreCella(3, RGB(0, 240, 0), RGB(0, 0, 0))
If B = (sequenza) Then Call SetColoreCella(4, RGB(0, 240, 0), RGB(0, 0, 0))
If C = (sequenza) Then Call SetColoreCella(5, RGB(0, 240, 0), RGB(0, 0, 0))
If D = (sequenza) Then Call SetColoreCella(6, RGB(0, 240, 0), RGB(0, 0, 0))
If E = (sequenza) Then Call SetColoreCella(7, RGB(0, 240, 0), RGB(0, 0, 0))
'--------------------------------
A = Estratto(ES - 7, R1, 1)
B = Estratto(ES - 7, R1, 2)
C = Estratto(ES - 7, R1, 3)
D = Estratto(ES - 7, R1, 4)
E = Estratto(ES - 7, R1, 5)
'
T4 = Array(T4, "8", " ", Format2(A), Format2(B), Format2(C), Format2(D), Format2(E), " ", DataEstrazione(ES - 7))
'-------------------------------
'-------------------------------
Call AddRigaTabella(T4, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------
'-------------------------------
If A = (sequenza) Then Call SetColoreCella(3, RGB(0, 240, 0), RGB(0, 0, 0))
If B = (sequenza) Then Call SetColoreCella(4, RGB(0, 240, 0), RGB(0, 0, 0))
If C = (sequenza) Then Call SetColoreCella(5, RGB(0, 240, 0), RGB(0, 0, 0))
If D = (sequenza) Then Call SetColoreCella(6, RGB(0, 240, 0), RGB(0, 0, 0))
If E = (sequenza) Then Call SetColoreCella(7, RGB(0, 240, 0), RGB(0, 0, 0))
'--------------------------------
'
A = Estratto(ES - 6, R1, 1)
B = Estratto(ES - 6, R1, 2)
C = Estratto(ES - 6, R1, 3)
D = Estratto(ES - 6, R1, 4)
E = Estratto(ES - 6, R1, 5)
'
T5 = Array(T5, "7", " ", Format2(A), Format2(B), Format2(C), Format2(D), Format2(E), " ", DataEstrazione(ES - 6))
'-------------------------------
'-------------------------------
Call AddRigaTabella(T5, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------
'-------------------------------
If A = (sequenza) Then Call SetColoreCella(3, RGB(0, 240, 0), RGB(0, 0, 0))
If B = (sequenza) Then Call SetColoreCella(4, RGB(0, 240, 0), RGB(0, 0, 0))
If C = (sequenza) Then Call SetColoreCella(5, RGB(0, 240, 0), RGB(0, 0, 0))
If D = (sequenza) Then Call SetColoreCella(6, RGB(0, 240, 0), RGB(0, 0, 0))
If E = (sequenza) Then Call SetColoreCella(7, RGB(0, 240, 0), RGB(0, 0, 0))
'--------------------------------
A = Estratto(ES - 5, R1, 1)
B = Estratto(ES - 5, R1, 2)
C = Estratto(ES - 5, R1, 3)
D = Estratto(ES - 5, R1, 4)
E = Estratto(ES - 5, R1, 5)
'
T6 = Array(T6, "6", " ", Format2(A), Format2(B), Format2(C), Format2(D), Format2(E), " ", DataEstrazione(ES - 5))
'-------------------------------
'------------------------------
Call AddRigaTabella(T6, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------
'-------------------------------
If A = (sequenza) Then Call SetColoreCella(3, RGB(0, 240, 0), RGB(0, 0, 0))
If B = (sequenza) Then Call SetColoreCella(4, RGB(0, 240, 0), RGB(0, 0, 0))
If C = (sequenza) Then Call SetColoreCella(5, RGB(0, 240, 0), RGB(0, 0, 0))
If D = (sequenza) Then Call SetColoreCella(6, RGB(0, 240, 0), RGB(0, 0, 0))
If E = (sequenza) Then Call SetColoreCella(7, RGB(0, 240, 0), RGB(0, 0, 0))
'--------------------------------
A = Estratto(ES - 4, R1, 1)
B = Estratto(ES - 4, R1, 2)
C = Estratto(ES - 4, R1, 3)
D = Estratto(ES - 4, R1, 4)
E = Estratto(ES - 4, R1, 5)
'
T7 = Array(T7, "5", " ", Format2(A), Format2(B), Format2(C), Format2(D), Format2(E), " ", DataEstrazione(ES - 4))
'-------------------------------
'-------------------------------
Call AddRigaTabella(T7, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------
'-------------------------------
If A = (sequenza) Then Call SetColoreCella(3, RGB(0, 240, 0), RGB(0, 0, 0))
If B = (sequenza) Then Call SetColoreCella(4, RGB(0, 240, 0), RGB(0, 0, 0))
If C = (sequenza) Then Call SetColoreCella(5, RGB(0, 240, 0), RGB(0, 0, 0))
If D = (sequenza) Then Call SetColoreCella(6, RGB(0, 240, 0), RGB(0, 0, 0))
If E = (sequenza) Then Call SetColoreCella(7, RGB(0, 240, 0), RGB(0, 0, 0))
'--------------------------------
A = Estratto(ES - 3, R1, 1)
B = Estratto(ES - 3, R1, 2)
C = Estratto(ES - 3, R1, 3)
D = Estratto(ES - 3, R1, 4)
E = Estratto(ES - 3, R1, 5)
'
T8 = Array(T8, "4", " ", Format2(A), Format2(B), Format2(C), Format2(D), Format2(E), " ", DataEstrazione(ES - 3))
'-------------------------------
'-------------------------------
Call AddRigaTabella(T8, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------
'-------------------------------
If A = (sequenza) Then Call SetColoreCella(3, RGB(0, 240, 0), RGB(0, 0, 0))
If B = (sequenza) Then Call SetColoreCella(4, RGB(0, 240, 0), RGB(0, 0, 0))
If C = (sequenza) Then Call SetColoreCella(5, RGB(0, 240, 0), RGB(0, 0, 0))
If D = (sequenza) Then Call SetColoreCella(6, RGB(0, 240, 0), RGB(0, 0, 0))
If E = (sequenza) Then Call SetColoreCella(7, RGB(0, 240, 0), RGB(0, 0, 0))
'--------------------------------
A = Estratto(ES - 2, R1, 1)
B = Estratto(ES - 2, R1, 2)
C = Estratto(ES - 2, R1, 3)
D = Estratto(ES - 2, R1, 4)
E = Estratto(ES - 2, R1, 5)
'
T9 = Array(T9, "3", " ", Format2(A), Format2(B), Format2(C), Format2(D), Format2(E), " ", DataEstrazione(ES - 2))
'-------------------------------
Call AddRigaTabella(T9, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------
'-------------------------------
If A = (sequenza) Then Call SetColoreCella(3, RGB(0, 240, 0), RGB(0, 0, 0))
If B = (sequenza) Then Call SetColoreCella(4, RGB(0, 240, 0), RGB(0, 0, 0))
If C = (sequenza) Then Call SetColoreCella(5, RGB(0, 240, 0), RGB(0, 0, 0))
If D = (sequenza) Then Call SetColoreCella(6, RGB(0, 240, 0), RGB(0, 0, 0))
If E = (sequenza) Then Call SetColoreCella(7, RGB(0, 240, 0), RGB(0, 0, 0))
'--------------------------------
A = Estratto(ES - 1, R1, 1)
B = Estratto(ES - 1, R1, 2)
C = Estratto(ES - 1, R1, 3)
D = Estratto(ES - 1, R1, 4)
E = Estratto(ES - 1, R1, 5)
'
T10 = Array(T10, "2", " ", Format2(A), Format2(B), Format2(C), Format2(D), Format2(E), " ", DataEstrazione(ES - 1))
'-------------------------------
'-------------------------------
Call AddRigaTabella(T10, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------'-------------------------------
'-------------------------------
If A = (sequenza) Then Call SetColoreCella(3, RGB(0, 240, 0), RGB(0, 0, 0))
If B = (sequenza) Then Call SetColoreCella(4, RGB(0, 240, 0), RGB(0, 0, 0))
If C = (sequenza) Then Call SetColoreCella(5, RGB(0, 240, 0), RGB(0, 0, 0))
If D = (sequenza) Then Call SetColoreCella(6, RGB(0, 240, 0), RGB(0, 0, 0))
If E = (sequenza) Then Call SetColoreCella(7, RGB(0, 240, 0), RGB(0, 0, 0))
'--------------------------------
'-------------------------------
A = Estratto(ES - 0, R1, 1)
B = Estratto(ES - 0, R1, 2)
C = Estratto(ES - 0, R1, 3)
D = Estratto(ES - 0, R1, 4)
E = Estratto(ES - 0, R1, 5)
'
T11 = Array(T11, "1", " ", Format2(A), Format2(B), Format2(C), Format2(D), Format2(E), " ", DataEstrazione(ES - 0))
'-------------------------------
'
'----------------------------------------
Call AddRigaTabella(T11, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------
If A = (sequenza) Then Call SetColoreCella(3, RGB(0, 240, 0), RGB(0, 0, 0))
If B = (sequenza) Then Call SetColoreCella(4, RGB(0, 240, 0), RGB(0, 0, 0))
If C = (sequenza) Then Call SetColoreCella(5, RGB(0, 240, 0), RGB(0, 0, 0))
If D = (sequenza) Then Call SetColoreCella(6, RGB(0, 240, 0), RGB(0, 0, 0))
If E = (sequenza) Then Call SetColoreCella(7, RGB(0, 240, 0), RGB(0, 0, 0))
'--------------------------------
'
T12 = Array(T12, " ", " ", " ", " ", " ", " ", " ", " ", " ", " ")
Call AddRigaTabella(T12, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------
T13 = Array(T13, SiglaRuota(R1), " ", " ", " ", " ", " ", " ", " ", " sequenza " & W, " ")
Call AddRigaTabella(T13, Bianco_, "center", 3, Nero_, "Raavi")
'-------------------------------
T14 = Array(T14, " ", " ", " ", " ", " ", " ", " ", " ", " ")
Call AddRigaTabella(T14, Bianco_, "center", 3, Nero_, "Raavi")
'
Call SetTableWidth("21%")
CreaTabella
Next K
Next W
Next R1
Next ES
End Sub



Sembra che manchi anche la sub InitTabella. Questa subroutine probabilmente fa parte di un modulo separato che gestisce la creazione e la formattazione delle tabelle.

Da quello che vedo nel codice, ci sono diverse subroutine che devono essere definite:

  1. InitTabella
  2. AddRigaTabella
  3. SetColoreCella
  4. Format2
  5. Estratto
  6. DataEstrazione
  7. SetTableWidth
  8. CreaTabella
  9. SiglaRuota
Hai il codice di queste subroutine in altri moduli? O devono essere create? Il codice che mi hai mostrato sembra far parte di un sistema più ampio per l'analisi del lotto.
Baciccia
 
Baciccia il codice di queste subroutine sono gia state definite da LuigiB..si deve solo sistemare il next..
ai notato che non evidenzia tutta la sequenza nella tabella..
lo script e scritto bene e le figure,le decine, le cadenze, le evidenzia bene in tabella,
il problema sono le sequenze dei numeri da evidenziare in tabella..

Function sequenza(A)

End Function

oppure si dovrà scrivere una function sulle sequenze..
 
Ultima modifica:
9928.PNG

lo script evidenzia anche le controfigure, le figure negative, e tanto altro ancora,
ne ho scritti piu di cinquanta tabelle, solo le sequenze mi stanno dando problemi..
 
non posso testare solo una parte del vba. L'unica cosa che posso fare è dare in pasto alla AI il codice che posti e chiederle di controllarlo.
Nulla di più. Purtroppo
Baciccia
 
ok Baciccia quello che conta e la visualizzazione delle dinamiche in tabella..
ho fatto anche delle tabelle studiate apposite per le ciclodinamiche..
TAB1,TAB2, E TAB3, IN TOTALE su ogni ruota ci sono 30 ciclodinamiche,
a me basta scrivere il 31 in inputbox e mi evidenzia il 31 in tutte le tabelle..

9925.PNG
31+21=52+21=73+21=04
 
Ultima modifica:
Baciccia quanto devi allegare lo script mettile in questo spazio e contrassegnato con il codice </>
clicca nella toll bar dove ci sono i tre puntini e ce questo simbolo </>
 
Codice: 
Sub Main
   Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15
   Dim X,Y,Z
   Dim A1,A2,A3,A4,A5,A6,A7,A8,A9
   Dim B1,B2,B3,B4,B5,B6,B7,B8,B9
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9
   Dim A,B,C,D,E
   Dim K
   Dim ES,RS,R1,W,Q,J
   '
   'Q = InputBox("Inizia Sequenza da....1-2-3-4-5-6-7-8-9-10-11?",,0)
   'J = InputBox("Sequenza..............1-2-3-4-5-6-7-8-9-10-11?",,0)
   '
   For ES = EstrazioneFin To EstrazioneFin
      '
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         '
         'For W = J To J
         'For K = Q To 180 Step W
         'Next
         '----------------------------------------------------
         '----------------------------------------------------
         T1 = Array(T1,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call InitTabella(T1,Bianco_,"center",3,Nero_,"Raavi")
         '-----------------------------------------------
         A = Estratto(ES - 9,R1,1)
         B = Estratto(ES - 9,R1,2)
         C = Estratto(ES - 9,R1,3)
         D = Estratto(ES - 9,R1,4)
         E = Estratto(ES - 9,R1,5)
         '
         T2 = Array(T2,"10","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 9))
         '------------------------------------------------
         Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Raavi")
         '--------------------------------------------------
         '-------------------------------
         If A = sequenza Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
         If B = sequenza Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
         If C = sequenza Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
         If D = sequenza Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
         If E = sequenza Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
         '--------------------------------
         A = Estratto(ES - 8,R1,1)
         B = Estratto(ES - 8,R1,2)
         C = Estratto(ES - 8,R1,3)
         D = Estratto(ES - 8,R1,4)
         E = Estratto(ES - 8,R1,5)
         '
         T3 = Array(T3,"9","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 8))
         '-------------------------------
         Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------
         '-------------------------------
         If A = sequenza Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
         If B = sequenza Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
         If C = sequenza Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
         If D = sequenza Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
         If E = sequenza Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
         '--------------------------------
         A = Estratto(ES - 7,R1,1)
         B = Estratto(ES - 7,R1,2)
         C = Estratto(ES - 7,R1,3)
         D = Estratto(ES - 7,R1,4)
         E = Estratto(ES - 7,R1,5)
         '
         T4 = Array(T4,"8","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 7))
         '-------------------------------
         '-------------------------------
         Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------
         '-------------------------------
         If A = sequenza Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
         If B = sequenza Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
         If C = sequenza Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
         If D = sequenza Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
         If E = sequenza Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
         '--------------------------------
         '
         A = Estratto(ES - 6,R1,1)
         B = Estratto(ES - 6,R1,2)
         C = Estratto(ES - 6,R1,3)
         D = Estratto(ES - 6,R1,4)
         E = Estratto(ES - 6,R1,5)
         '
         T5 = Array(T5,"7","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 6))
         '-------------------------------
         '-------------------------------
         Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------
         '-------------------------------
         If A = sequenza Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
         If B = sequenza Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
         If C = sequenza Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
         If D = sequenza Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
         If E = sequenza Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
         '--------------------------------
         A = Estratto(ES - 5,R1,1)
         B = Estratto(ES - 5,R1,2)
         C = Estratto(ES - 5,R1,3)
         D = Estratto(ES - 5,R1,4)
         E = Estratto(ES - 5,R1,5)
         '
         T6 = Array(T6,"6","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 5))
         '-------------------------------
         '------------------------------
         Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------
         '-------------------------------
         If A = sequenza Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
         If B = sequenza Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
         If C = sequenza Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
         If D = sequenza Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
         If E = sequenza Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
         '--------------------------------
         A = Estratto(ES - 4,R1,1)
         B = Estratto(ES - 4,R1,2)
         C = Estratto(ES - 4,R1,3)
         D = Estratto(ES - 4,R1,4)
         E = Estratto(ES - 4,R1,5)
         '
         T7 = Array(T7,"5","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 4))
         '-------------------------------
         '-------------------------------
         Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------
         '-------------------------------
         If A = sequenza Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
         If B = sequenza Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
         If C = sequenza Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
         If D = sequenza Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
         If E = sequenza Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
         '--------------------------------
         A = Estratto(ES - 3,R1,1)
         B = Estratto(ES - 3,R1,2)
         C = Estratto(ES - 3,R1,3)
         D = Estratto(ES - 3,R1,4)
         E = Estratto(ES - 3,R1,5)
         '
         T8 = Array(T8,"4","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 3))
         '-------------------------------
         '-------------------------------
         Call AddRigaTabella(T8,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------
         '-------------------------------
         If A = sequenza Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
         If B = sequenza Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
         If C = sequenza Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
         If D = sequenza Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
         If E = sequenza Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
         '--------------------------------
         A = Estratto(ES - 2,R1,1)
         B = Estratto(ES - 2,R1,2)
         C = Estratto(ES - 2,R1,3)
         D = Estratto(ES - 2,R1,4)
         E = Estratto(ES - 2,R1,5)
         '
         T9 = Array(T9,"3","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 2))
         '-------------------------------
         Call AddRigaTabella(T9,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------
         '-------------------------------
         If A = sequenza Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
         If B = sequenza Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
         If C = sequenza Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
         If D = sequenza Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
         If E = sequenza Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
         '--------------------------------
         A = Estratto(ES - 1,R1,1)
         B = Estratto(ES - 1,R1,2)
         C = Estratto(ES - 1,R1,3)
         D = Estratto(ES - 1,R1,4)
         E = Estratto(ES - 1,R1,5)
         '
         T10 = Array(T10,"2"," ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 1))
         '-------------------------------
         '-------------------------------
         Call AddRigaTabella(T10,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------'-------------------------------
         '-------------------------------
         If A = sequenza Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
         If B = sequenza Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
         If C = sequenza Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
         If D = sequenza Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
         If E = sequenza Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
         '--------------------------------
         '-------------------------------
         A = Estratto(ES - 0,R1,1)
         B = Estratto(ES - 0,R1,2)
         C = Estratto(ES - 0,R1,3)
         D = Estratto(ES - 0,R1,4)
         E = Estratto(ES - 0,R1,5)
         '
         T11 = Array(T11,"1","  ",Format2(A),Format2(B),Format2(C),Format2(D),Format2(E),"  ",DataEstrazione(ES - 0))
         '-------------------------------
         '
         '----------------------------------------
         Call AddRigaTabella(T11,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------
         If A = sequenza Then Call SetColoreCella(3,RGB(0,240,0),RGB(0,0,0))
         If B = sequenza Then Call SetColoreCella(4,RGB(0,240,0),RGB(0,0,0))
         If C = sequenza Then Call SetColoreCella(5,RGB(0,240,0),RGB(0,0,0))
         If D = sequenza Then Call SetColoreCella(6,RGB(0,240,0),RGB(0,0,0))
         If E = sequenza Then Call SetColoreCella(7,RGB(0,240,0),RGB(0,0,0))
         '--------------------------------
         '
         T12 = Array(T12,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T12,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------
         T13 = Array(T13,SiglaRuota(R1),"  ","  ","  ","  ","  ","  ","  "," sequenza " & W," ")
         Call AddRigaTabella(T13,Bianco_,"center",3,Nero_,"Raavi")
         '-------------------------------
         T14 = Array(T14,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T14,Bianco_,"center",3,Nero_,"Raavi")
         '
         Call SetTableWidth("21%")
         CreaTabella
      Next
   Next
   'Next
   'Next
End Sub
Function sequenza
   Dim w,j,q,k
   'For w = j To j
   For k = 1 To 90 Step 9
   Next
   sequenza = Fuori90(k)
   'Next
End Function

buongiorno, Baciccia ho fatto una prova con end function ma non cambia niente,
legge solo il 1 numero della sequenza o se cambio la pos del next legge solo l'ultimo numero della sequenza,
il problema e che l'intera sequenza deve girare su dieci estr indietro e non e mica facile..
 
Ultima modifica:
Dim sequenza As Integer
questa riga che ti a scritto la AI non gira su Spaziometria ma solo su SpazioLIght e qua e ancora piu difficile scrivere
lo script..
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 20 dicembre 2024
    Bari
    19
    01
    78
    60
    05
    Cagliari
    25
    70
    87
    36
    23
    Firenze
    70
    45
    42
    37
    85
    Genova
    28
    39
    49
    41
    42
    Milano
    78
    52
    79
    85
    49
    Napoli
    10
    17
    06
    50
    04
    Palermo
    26
    40
    66
    16
    51
    Roma
    43
    26
    86
    19
    50
    Torino
    76
    38
    49
    46
    09
    Venezia
    45
    73
    56
    08
    04
    Nazionale
    79
    25
    38
    54
    72
    Estrazione Simbolotto
    Venezia
    20
    11
    02
    13
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto