Kako najti in zamenjati v glavi ali nogi v Excelu?
Najti določeno vrednost in jo nato nadomestiti z drugo vrednostjo v Excelu je običajno v našem vsakdanjem delu, toda v Excelu funkcija Najdi in zamenjaj dobro deluje pri izbiri, listih in delovnem zvezku, vendar je v glavi in nogi ni mogoče najti in zamenjati. V tem članku predstavljam makro kodo za iskanje in zamenjavo vrednosti v glavi in nogi.
Poiščite in zamenjajte v glavi ali nogi z VBA
Poiščite in zamenjajte v glavi ali nogi z VBA
1. Omogočite list, ki ga želite najti in zamenjati v glavi in nogi, pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite pod kodo VBA v modul. Oglejte si posnetek zaslona:
VBA: Poiščite in zamenjajte v glavi in nogi
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. Nato pritisnite F5 tipko za zagon kode, nato se prikaže pogovorno okno za vnos besedila, ki ga želite najti. Oglejte si posnetek zaslona:
4. klik OKin odpre se drugo pogovorno okno za vnos besedila, ki ga želite zamenjati. Oglejte si posnetek zaslona:
5. klik OK. Zdaj vrednosti "KTE" so bili zamenjani z "Kutools za Excel" v glavi in nogi.
Nasvet: Če želite delati za celoten delovni zvezek, lahko uporabite spodnjo kodo 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
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
