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