MacroFacili: Evidenziare parole in una cella

Questa procedura mostra come si può usare l'oggetto Characters per formattare solo alcune parole di una cella.

La procedura qui sotto colora di rosso e in grassetto tutte le parole contenute nella colonna B e trovate nella frasse della colonna D.

Sub EvidenziaRosso()
  Set Fi = ActiveSheet

  Rb = 0
  Ri = 7 '3
  While (Rb < 5)
    Set CeParole = Fi.Cells(Ri, "B")
    Set CeFrase = Fi.Cells(Ri, "D")

    If (CeParole = "") Then
      Rb = Rb + 1
    Else
      Rb = 0

      ArrParole = Split(CeParole, " ")
      Frase = CStr(CeFrase.Value)

      For Each Parola In ArrParole
        p = InStr(1, CStr(Frase), CStr(Parola), vbTextCompare)
        If (p > 0) Then
          Set Ch = CeFrase.Characters(p, Len(Parola))
          Ch.Font.Bold = True
          Ch.Font.Color = RGB(255, 0, 0)
        End If
      Next Parola
    End If
    Ri = Ri + 1
  Wend
End Sub