evidenziare sequenze in tabella

[Zetrix]

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]

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:

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