Hogyan lehet megtalálni és kicserélni az Excel fejlécét vagy láblécét?
Egy adott érték megkeresése, majd egy másik értékkel való helyettesítés az Excel-ben mindennapi munkánk során általános, de az Excel programban a Keresés és csere funkció jól működik a kiválasztásban, a lapokban és a munkafüzetben, de a fejlécben és a láblécben nem talál és nem cserélhető le. Ebben a cikkben bemutatok egy makrókódot a fejlécben és a láblécben található értékek megkeresésére és helyettesítésére.
Keresse meg és cserélje ki a fejlécet vagy a láblécet VBA-val
Keresse meg és cserélje ki a fejlécet vagy a láblécet VBA-val
1. Engedélyezze a keresni és cserélni kívánt lapot a fejlécben és a láblécben, nyomja meg a gombot Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, és illessze be a VBA kód alá a modulba. Lásd a képernyőképet:
VBA: Keresse meg és cserélje ki a fejlécet és a láblécet
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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, majd megjelenik egy párbeszédpanel a megtalálni kívánt szöveg beírásához. Lásd a képernyőképet:
4. kettyenés OK, és megjelenik egy másik párbeszédpanel, amely beírja a szöveget, amelyet cserélni kíván. Lásd a képernyőképet:
5. kettyenés OK. Most az értékeket „KTE” helyébe a következő lépett: „Kutools for Excel” fejlécben és láblécben.
típus: Ha a teljes munkafüzetnél szeretne dolgozni, használhatja az alábbi makrókódot.
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
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!