Evidenziare un numero con colore

[Paki144]

Buonasera a tutti Forum LottoCed
Prego una richiesta se possibile avere
uno script delle estrazioni che mi possa evidenziare in colore rosso un numero nelle estrazioni, provo un esempio
del numero 90 in qualsiasi ruota:
Estrazione del 05-11-2022
Bari..,......84.18.65.71.67
Cagliari...28.61.90.75.27
se si può scegliere il numero da evidenziare.
Grazie un saluto a tutti
Buona serata
P.s.
(Ho Spaziometria 1.6.34)

 

[i legend]

Option explicit
Sub main
Dim col ,R,idestr,N
Idestr =estrazionefin
N=90 ' numero che si vuole evidenziare
For r=1 to 11
If r=11 yhen r=12
Redim aE(0)
Call getarraynumeriruota (idestr,r,aE)
For p=1 to 5
Col= 1
If ae(p)= N then col = vbred
Scrivi format2(ae(p))& " ",,0,,col
Next
Scrivi
Next
End sub

Scritto da cell, perfavore controlla ,potrebbero esserci errori di scrittura
Ciao.

 

[Mike58]

Ciao Paki144, prova a vedere.

Sub Main
   Dim aColor(1),spia(1)
   a = cint(InputBox("Quale Spia",,90))
   spia(1) = a
   Ini = EstrazioneFin - 10
   fin = EstrazioneFin
   For es = fin To Ini Step - 1
      Scrivi GetInfoEstrazione(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         Scrivi FormatSpace(NomeRuota(R),12) & " ",,0
         For P = 1 To 5
            E = Estratto(es,R,P)
            If spia(1) = E Then aColor(1) = vbRed : Else aColor(1) = RGB(239,240,242)
            Scrivi " " & Format2(E) & " ",0,0,aColor(1)
         Next
         Scrivi
      Next
      Scrivi
   Next
End Sub

 

[Paki144]

Ciao Mike58 ciao i legend
benississimo ringrazio di cuore
per aver speso tempo per programmare lo script
che sarà di grande aiuto evidenziando il numero di ricerca nelle estrazioni
Grazie Grazie
Buona serata

 

[i legend]

Grazie a tutti per i pollicioni

 

[Alien.]

Option explicit
Sub main
Dim col ,R,idestr,N
Idestr =estrazionefin
N=90 ' numero che si vuole evidenziare
For r=1 to 11
If r=11 yhen r=12
Redim aE(0)
Call getarraynumeriruota (idestr,r,aE)
For p=1 to 5
Col= 1
If ae(p)= N then col = vbred
Scrivi format2(ae(p))& " ",,0,,col
Next
Scrivi
Next
End sub

Scritto da cell, perfavore controlla ,potrebbero esserci errori di scrittura
Ciao.

Ciao, scusa mi da errore variabile
For p=1 To 5

 

[Xeroxs]

Ciao, Alien

Posso intervenire solo leggendo lo script perchè non ho PC e non ho modo di verificare ma credo che dovresti far cosi

sostituisci questa riga
Dim col ,R,idestr,N

con questa
Dim col ,R,idestr,N,p

oppure alle Dim aggiungi la p

in quanto non è dichiarata perchè con Option explicit tutte le variabili devono essere dichiarate.

è solo una svista in quanto come ti ha scritto I-Legend ha scritto da cellulare e gli errori possono capitare e dal cellulare è non può verificare.

inoltre leggendo lo script devi correggere questo If r=11 yhen r=12 con If r=11 then r=12 altrimenti avrai un errore.

ripeto sono sviste che accadono e credo che lo script funzioni ma non ho modo di controllare.

Un saluto anche ad I-Legend

 

[i legend]

Giro a tutti
Grazie xerox

 

[Alien.]

Ciao, Alien

Posso intervenire solo leggendo lo script perchè non ho PC e non ho modo di verificare ma credo che dovresti far cosi

sostituisci questa riga
Dim col ,R,idestr,N

con questa
Dim col ,R,idestr,N,p

oppure alle Dim aggiungi la p

in quanto non è dichiarata perchè con Option explicit tutte le variabili devono essere dichiarate.

è solo una svista in quanto come ti ha scritto I-Legend ha scritto da cellulare e gli errori possono capitare e dal cellulare è non può verificare.

inoltre leggendo lo script devi correggere questo If r=11 yhen r=12 con If r=11 then r=12 altrimenti avrai un errore.

ripeto sono sviste che accadono e credo che lo script funzioni ma non ho modo di controllare.

Un saluto anche ad I-Legend

Ciao Xeroxs non ti dato delle colpe ci mancherebbe altro ,fai tanto per Noi è solo un errore se lo facessi io con il cellulare sarebbe una scrittura Etrusca.,tranquillo.

 

[Alien.]

Ciao Paki144, prova a vedere.

Sub Main
   Dim aColor(1),spia(1)
   a = cint(InputBox("Quale Spia",,90))
   spia(1) = a
   Ini = EstrazioneFin - 10
   fin = EstrazioneFin
   For es = fin To Ini Step - 1
      Scrivi GetInfoEstrazione(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         Scrivi FormatSpace(NomeRuota(R),12) & " ",,0
         For P = 1 To 5
            E = Estratto(es,R,P)
            If spia(1) = E Then aColor(1) = vbRed : Else aColor(1) = RGB(239,240,242)
            Scrivi " " & Format2(E) & " ",0,0,aColor(1)
         Next
         Scrivi
      Next
      Scrivi
   Next
End Sub

Ciao Mike mi è venuto in mente se puoi inserire 5 numeri (tipo spia) cosi controllo pure le" innumerevoli vincite che faccio"

 

[Xeroxs]

Ciao, Alien
Tranquillo io non ho nessun problema cerco solo di dare quando posso il mio contributo piccolo o altro.
Leggo quando riesco le varie discussioni cercando anche di spiegare se comprendo l argomento o il problema se lo risolvo...

 

[Mike58]

Ciao Mike mi è venuto in mente se puoi inserire 5 numeri (tipo spia) cosi controllo pure le" innumerevoli vincite che faccio"

Sub Main
   Dim aCol(1),spia(5),E,ru(1)
   Ini = EstrazioneFin - 9
   fin = EstrazioneFin
   '------------------------
   spia(1) = 11 ' spia
   spia(2) = 18
   spia(3) = 54
   spia(4) = 9
   spia(5) = 90
   '------------------------

   For es = fin To Ini Step - 1
   Scrivi Space(13) & GetInfoEstrazione(Es)
   For r = 1 To 12
   If r = 11 Then r = 12
   ru(1) = r
   Scrivi FormatSpace(NomeRuota(R),12) & " ",,0

   For p = 1 To 5
   E = Estratto(Es,r,p)
   If spia(1) = E Or spia(2) = E Or spia(3) = E Or spia(4) = E Or spia(5) = E Then aCol(1) = vbGreen: Else aCol(1) = RGB(239,240,242)
   Call VerificaEsito(spia,ru,Es,1,1,,Esito,,Esa)
   Scrivi " " & Format2(E) & " ",,0,aCol(1),,3
  
   Next
   Scrivi vbTab & Esito,0,0
   Scrivi
   Next
   Scrivi
   Next
End Sub

ecco anche questo... Alien
Ciao