Trova/Sostituisci formato di una stringa o parola contenuta nel testo di celle Excel

Question

Ciao a tutti. 
Ho bisogno di cambiare il formato di una frase che ricorre più volte nel mio foglio Excell. 
Ho una tabella Excell con un tot di celle. Le celle contengono tutte porzioni di testo. All'interno di queste celle c'`e sempre uno stesso pattern che si ripete ( es 'chi più chi meno') . Dovrei evidenziarlo, cambiandone il formato, in tutte le celle di tutto il foglio excell. Non posso farlo manualmente perché mi richiederebbe troppo tempo. Qualcuno mi può aiutare?

tutti chi più chi meno vogliono essere...	alla fine chiunque, chi più chi meno...
ognuno.. c hi più chi meno, ha dei sogni che..

Dovrebbe venire qualcosa del genere. 
Con il comando trova/ sostituisci mi cambia i formato dell'intera cella.

Answer 1

Ciao alixNX,

Ho bisogno di cambiare il formato di una frase che ricorre più volte nel mio foglio Excell. 
Ho una tabella Excell con un tot di celle. Le celle contengono tutte porzioni di testo. All'interno di queste celle c'`e sempre uno stesso pattern che si ripete ( es 'chi più chi meno') . Dovrei evidenziarlo, cambiandone il formato, in tutte le celle di tutto il foglio excell. Non posso farlo manualmente perché mi richiederebbe troppo tempo. Qualcuno mi può aiutare?

tutti chi più chi meno vogliono essere...	alla fine chiunque, chi più chi meno...
ognuno.. c hi più chi meno, ha dei sogni che..

Dovrebbe venire qualcosa del genere. 
Con il comando trova/ sostituisci mi cambia i formato dell'intera cella.

Per ottenere i risultati desiderati dovrai ricorrere a VBA. Quindi prova qualcosa del genere:

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim Rng As Range, rCell As Range

    Dim Res As Variant

    Dim iLen As Long

    Const sFoglio As String = "Foglio1"                                       '<<=== Modifica

    Const sIntervallo_Da_Controllare As String = "A1:A20"        '<<=== Modifica

    Const sFrase As String = "chi più chi meno"                        '<<=== Modifica

    Set WB = ThisWorkbook

    Set SH = WB.Sheets(sFoglio)

    Set Rng = SH.Range(sIntervallo_Da_Controllare)

    iLen = Len(sFrase)

    For Each rCell In Rng.Cells

        With rCell

            Res = Application.Find(sFrase, .Value)

            If Not IsError(Res) Then

                .Characters(Start:=Res, Length:=iLen).Font.FontStyle = "Bold"

            End If

        End With

    Next rCell

End Sub

'<<========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensionexlsm
• Alt+F8 per aprire  la finestra di gestione delle macro
• Seleziona Tester
• Esegui

===

Regards,

Norman