Jak najít a nahradit v záhlaví nebo zápatí v aplikaci Excel?
Chcete-li najít konkrétní hodnotu a poté ji nahradit jinou hodnotou v aplikaci Excel, je to v naší každodenní práci běžné, ale v aplikaci Excel funguje funkce Najít a nahradit dobře ve výběru, listech a sešitu, ale nemůže je najít a nahradit v záhlaví a zápatí. V tomto článku představuji kód makra k vyhledání a nahrazení hodnot v záhlaví a zápatí.
Najděte a nahraďte v záhlaví nebo zápatí VBA
Najděte a nahraďte v záhlaví nebo zápatí VBA
1. Povolte list, který chcete najít a nahradit v záhlaví a zápatí, stiskněte Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modul, a vložte pod kód VBA do modulu. Viz snímek obrazovky:
VBA: Najít a nahradit v záhlaví a zápatí
Sub FnR_HF()
'UpdateByExtendoffice20160623
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
With ActiveSheet.PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
End Sub
3. Poté stiskněte F5 spusťte kód a poté se zobrazí dialogové okno pro zadání textu, který chcete najít. Viz snímek obrazovky:
4. cvaknutí OKa objeví se další dialogové okno pro zadání textu, který chcete nahradit. Viz snímek obrazovky:
5. cvaknutí OK. Nyní hodnoty „KTE“ byly nahrazeny „Kutools pro Excel“ v záhlaví a zápatí.
Tip: Pokud chcete pracovat pro celý sešit, můžete použít níže uvedený kód makra.
Sub FnR_HF()
'UpdateByExtendoffice20171122
Dim I As Long
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
For I = 1 To ActiveWorkbook.Sheets.Count
With Sheets(I).PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
Next
End Sub
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!