x mike58 o LuigiB info

[Rubino]

ciao mike58

ho una amnesia, e non ricordo bene,
devo scrivere una riga con questi numeri 05 40 78 90 33

vorrei che il 40 33 devono avere come sfondo rosso e colore bianco, gli altri non devono avere sfondo e devono essere scritti normalmente in nero

come dovrei fare?

grazie per una risposta

 

[Rubino]

okey sono riuscito a risolvere

 

[LuigiB]

ci sono diversi modi per farlo , mo mi è venuto questo

Option Explicit
Sub Main


    ReDim aTesto (3 ,2)

    aTesto(1,0) = "SfondoVerdeColoreBianco"
    aTesto(1,1) = vbGreen
    aTesto(1,2) = vbWhite

    aTesto(2,0) = "SfondoBiancoColoreNero"
    aTesto(2,1) = vbWhite
    aTesto(2,2) = vbBlack

    aTesto(3,0) = "SfondoRossoColoreBianco"
    aTesto(3,1) = vbRed
    aTesto(3,2) = vbWhite


    Scrivi GetTestoColorato (aTesto)


End Sub
Function GetTestoColorato (aTesto )

    Dim k
    Dim s

    s = ""
    For k = 1 To UBound(aTesto)
        s = s & GetTestoHtml( aTesto(k,0) ,True ,  aTesto(k,2) ,aTesto(k,1) )
    Next

    GetTestoColorato  = s

End Function

 

[Rubino]

ciao LuigiB
infatti ho usato simile all'ultimo da te specificato.

 

[Mike58]

Ciao Rubino,ci possono essere vari modi, come il coloretesto e Html.
Poi anche con la funzione split puoi splittare e condizionare i numeri voluti in un array.

Io ultimanente mi diverto con la funzione apposita Html.

ecco un esempio

Option Explicit
Sub Main

Dim sTesto
Dim n,r,e,es,k
Dim Bold,Color,hcolor,size,sName,Underline,Striked

Bold = True ' grassetto (true/false)
Color = 5 ' colore (un colore valido)
hcolor = 2 ' colore di evidenziatore un colore valido o -1 per nessun colore
size = 2 ' dimensione del carattere
sName = "Courier new" ' nome font
Underline = True ' sottolineato (true/false)
Striked = False ' barrato  (true/false)

For es = EstrazioneFin - 3 To EstrazioneFin
k = k + 1
For r = 1 To 1
If r = 11 Then r = 12
sTesto = ""
For e = 1 To 5
n = Format2(Estratto(es,r,e))
'If n Mod 2 = 0 Then
If n = 58 Then
' se il numero è = applica lo stile del testo
sTesto = sTesto & GetTestoHtml(n,Bold,Color,hcolor,size,sName,Underline,Striked) & " "
Else
' se il numero è <> scrive con lo stile di default
sTesto = sTesto & n & " "

End If
Next

Scrivi DataEstrazione(es,1) & vbTab & sTesto
Next
'Scrivi
Next



End Sub


Sono strasicuro che si tratta solo di amnesia, sei stato e sei un maestro per tutti noi.

Ciao