Come usare Trova e Sostituisci nelle intestazioni di pagina

Uno degli strumenti molto utili forniti in Excel è Trova e sostituisci, che consente di individuare e modificare le informazioni archiviate nelle celle. Un punto in cui Trova e sostituisci non funzionerà, tuttavia, è con le informazioni archiviate nelle intestazioni o nei piè di pagina dei fogli di lavoro.

L’unico modo per gestire la ricerca e la sostituzione delle informazioni in un’intestazione o piè di pagina è utilizzare una macro. È un compito piuttosto banale accedere a ciò che è memorizzato nelle varie parti dell’intestazione e del piè di pagina, cercare cosa si desidera trovare e quindi sostituirlo con del nuovo testo. La macro seguente fornisce un esempio.

 

Sub TrovaSostituisci_HF()
    Dim sWhat As String, sReplacment As String
    Const csTITLE As String = "Trova e Sostituisci"
    sWhat = InputBox("Cosa sostituire", csTITLE)
    If Len(sWhat) = 0 Then Exit Sub
    sReplacment = InputBox("Con cosa", csTITLE)
    With ActiveSheet.PageSetup
        ' Sostituisce i valori di intestazione/piè di pagina
        .LeftHeader = Application.WorksheetFunction.Substitute( _
                      .LeftHeader, sWhat, sReplacment)
        .CenterHeader = Application.WorksheetFunction.Substitute( _
                        .CenterHeader, sWhat, sReplacment)
        .RightHeader = Application.WorksheetFunction.Substitute( _
                       .RightHeader, sWhat, sReplacment)
        .LeftFooter = Application.WorksheetFunction.Substitute( _
                      .LeftFooter, sWhat, sReplacment)
        .CenterFooter = Application.WorksheetFunction.Substitute( _
                        .CenterFooter, sWhat, sReplacment)
        .RightFooter = Application.WorksheetFunction.Substitute( _
                       .RightFooter, sWhat, sReplacment)
    End With
End Sub

 

 

Nota come la macro esegue le sostituzioni in tutte e tre le parti dell’intestazione e in tutte e tre le parti del piè di pagina.

Se preferisci non utilizzare la tua macro o se desideri una funzione Trova e sostituisci per Excel più completa, potresti prendere in considerazione il componente aggiuntivo FlexFind gratuito dell’MVP di Excel Jan Karel Pieterse. Questo componente aggiuntivo esegue ricerche standard, ma effettua ricerche anche in molte altre aree, tra cui intestazioni e piè di pagina.

 

 

Tags: , , , , , , , , , , , , , , , , ,

Ti è stato utile?