excel2003:formattare stringa con caratteri speciali

[karug64]

Salve a tutti.
Nell'ambito di una macro VBA compongo una stringa (per esempio "Oggi ho venduto 3.000 euro di BTP")
Vorrei, pero' far in modo che quando andro a mettere la stringa su una cella quest fosse scritta con 3.000 in grassetto.
C'e' qualche formattazione da usare nella composizione della stringa ?
Grazie

[Flash30005]

Dopo averla scritta puoi fare tutto ciò che vuoi attraverso il VBA
(analizzando bene se è possibile trovare una chiave comune negli importi).

Ciao

[karug64]

Ciao. Il problema e' che non so quali codici inserire in VBA per far fare il grassetto e toglierlo ....

[Anthony47]

Ad esempio questa macro cerca nella cella attiva una stringa (scritta in HlWrd) e ne modifica il formato:

Codice: Seleziona tutto

Sub Wordform()
HlWrd = " 3000 "
SrtHl = InStr(1, ActiveCell.Value, HlWrd)
If SrtHl > 0 Then
    With ActiveCell.Characters(Start:=SrtHl, Length:=Len(HlWrd)).Font
        .Subscript = False
        .Superscript = False
        .Strikethrough = False
        .Name = "Arial"
        .FontStyle = "Normale"
        .Size = 12
        .ColorIndex = xlAutomatic
        .Shadow = False
        .Bold = True
        .Italic = False
        .Underline = False
    End With
End If
End Sub


Modifica il valore attibuito alle singole proprieta' del font secondo la tua preferenza; probabilmente prima di eseguire questa parte di macro potrebbe essere utile, me dipende dai tuoi ragionamenti, eliminare tutte le formattazioni sul contenuto della cella; questo lo fai con una sequenza With ActiveCell.Font /End with all' interno della quale metti tutti i parametri che ti interessa impostare sul valore di defaut, es " .Strikethrough = False", " .Superscript = False", etc.
Lavora su celle contenenti stringhe.

Ciao