Jak znaleźć i zamienić w nagłówku lub stopce w programie Excel?
Znalezienie określonej wartości, a następnie zastąpienie jej inną wartością w programie Excel jest powszechne w naszej codziennej pracy, ale w programie Excel funkcja Znajdź i zamień działa dobrze w zaznaczaniu, arkuszach i skoroszycie, ale nie można jej znaleźć i zamienić w nagłówku i stopce. W tym artykule przedstawiam kod makra do wyszukiwania i zastępowania wartości w nagłówku i stopce.
Znajdź i zamień w nagłówku lub stopce na VBA
Znajdź i zamień w nagłówku lub stopce na VBA
1. Włącz arkusz, który chcesz znaleźć i zamienić w nagłówku i stopce, naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułi wklej poniższy kod VBA do modułu. Zobacz zrzut ekranu:
VBA: znajdź i zamień w nagłówku i stopce
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. Następnie naciśnij F5 aby uruchomić kod, wyskakuje okno dialogowe, w którym można wprowadzić tekst, który chcesz znaleźć. Zobacz zrzut ekranu:
4. kliknij OKi pojawi się kolejne okno dialogowe, w którym można wprowadzić tekst, który ma zostać zastąpiony. Zobacz zrzut ekranu:
5. kliknij OK. Teraz wartości „KTE” zostały zastąpione przez „Kutools for Excel” w nagłówku i stopce.
Wskazówka: Jeśli chcesz pracować dla całego skoroszytu, możesz użyć poniższego kodu 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
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!