Hoe te zoeken en vervangen in koptekst of voettekst in Excel?
Het vinden en vervangen van een specifieke waarde in Excel is gebruikelijk in ons dagelijkse werk, maar in Excel werkt de functie Zoeken en vervangen goed in selectie, werkbladen en werkmappen, maar kan deze niet vinden en vervangen in kop- en voettekst. In dit artikel introduceer ik een macrocode om waarden in kop- en voettekst te zoeken en te vervangen.
Zoek en vervang in kop- of voettekst met VBA
Zoek en vervang in kop- of voettekst met VBA
1. Schakel het blad dat u wilt zoeken en vervangen in kop- en voettekst in, druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak onderstaande VBA-code in de module. Zie screenshot:
VBA: zoeken en vervangen in kop- en voettekst
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. Druk vervolgens op F5 toets om de code uit te voeren, waarna een dialoogvenster verschijnt waarin u de tekst kunt invoeren die u zoekt. Zie screenshot:
4. klikken OK, en een ander dialoogvenster verschijnt om de tekst in te voeren die u wilt vervangen. Zie screenshot:
5. klikken OK. Nu de waarden "KTE" zijn vervangen door "Kutools voor Excel" in kop- en voettekst.
Tip: Als u voor de hele werkmap wilt werken, kunt u onderstaande macrocode gebruiken.
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
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!