evidenziare sequenze in tabella

Zetrix · Ieri alle 12:06

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

Baciccia4251 · Ieri alle 16:06

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

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:

Ho spostato il Next all'interno del ciclo principale per assicurare che tutti i numeri vengano processati
Ho aggiunto un ciclo interno che controlla tutte le celle in ogni riga
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

Zetrix · Ieri alle 21:36

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..

Zetrix · Ieri alle 21:42

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..

Baciccia4251 · Ieri alle 22:07

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..

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:

InitTabella
AddRigaTabella
SetColoreCella
Format2
Estratto
DataEstrazione
SetTableWidth
CreaTabella
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

Zetrix · Ieri alle 22:32

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..

Zetrix · Ieri alle 22:52

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..

Baciccia4251 · Ieri alle 23:22

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

Zetrix · Ieri alle 23:26

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..

31+21=52+21=73+21=04

Zetrix · Ieri alle 23:43

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 </>

Cerca

Cerca

evidenziare sequenze in tabella

Zetrix

Advanced Premium Member

Baciccia4251

Advanced Member

Zetrix

Advanced Premium Member

Zetrix

Advanced Premium Member

Baciccia4251

Advanced Member

Zetrix

Advanced Premium Member

Zetrix

Advanced Premium Member

Baciccia4251

Advanced Member

Zetrix

Advanced Premium Member

Zetrix

Advanced Premium Member

Ultima estrazione Lotto

Ultimi Messaggi