Aiuto per evidenziare numeri

[siriano]

Sto cercando nello script sotto di far evidenziare i numeri a e b ma nonostante svariate prove non ci riesco,
qualcuno può dirmi dove sbaglio? Grazie

Sub Main()
fin = EstrazioneFin
ini = fin - 65
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 9 : r2 = r1 + 1 : For p1 = 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r2,p1)

Dim MatriceCaselleDaEvid(2,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = a
' secondo elemento
MatriceCaselleDaEvid(2,0) = r2
MatriceCaselleDaEvid(2,1) = b
DisegnaEstrazione(es,MatriceCaselleDaEvid)

Scrivi
Next:Next:Next
End Sub

 

[Mike58]

vedi le poche differenze tra il tuo script e il mio e soprattutto le dim vanno dichiarate in testa al listato oppure usare ReDim.

Sub Main()

fin = EstrazioneFin

ini = fin - 65

For es = ini To fin

AvanzamentoElab ini,fin,es

For r1 = 1 To 9 : r2 = r1 + 1 : For p1 = 1 To 5

a = Estratto(es,r1,p1) : b = Estratto(es,r2,p1)

ReDim MatriceCaselleDaEvid(2,1)

' Primo elemento

MatriceCaselleDaEvid(1,0) = r1

MatriceCaselleDaEvid(1,1) = p1

' secondo elemento

MatriceCaselleDaEvid(2,0) = r2

MatriceCaselleDaEvid(2,1) = p1

Call DisegnaEstrazione(es,MatriceCaselleDaEvid)

Scrivi

Next:Next:Next

End Sub

 

[siriano]

Grazie Mike, ho fatto proprio errore da dilettante.
Approfitto per 2 info.
I colori con cui evidenzia i numeri sono di default oppure è possibile assegnarli?
I dati dell'estrazione, ruote e numeri, e possibile farglieli scrivere in grassetto?
Buona serata.

 

[Mike58]

i Numeri se non vuoi usare il default colore x decine si possono settare in Opzione > Configura >colore Numeri, mentre inceve la scritta della estrazione in Grassetto il codice non lo prevede.

Ciao

 

[siriano]

Grazie Mike, alla prossima.