Як знайти та замінити у верхньому або нижньому колонтитулі в Excel?
Знайти конкретне значення, а потім замінити його на інше значення в Excel є звичним явищем у нашій повсякденній роботі, але в Excel функція Знайти та замінити добре працює у виділенні, аркушах та книзі, але не може знайти та замінити у верхньому та нижньому колонтитулі. У цій статті я представляю макрокод для пошуку та заміни значень у верхньому та нижньому колонтитулі.
Знайдіть і замініть у верхньому або нижньому колонтитулі VBA
Знайдіть і замініть у верхньому або нижньому колонтитулі VBA
1. Увімкніть аркуш, який ви хочете знайти та замініть у верхньому та нижньому колонтитулі, натисніть Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модуліі вставте нижче модуля код VBA. Дивіться знімок екрана:
VBA: знайти та замінити у верхньому та нижньому колонтитулі
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. Потім натисніть F5 клавішу для запуску коду, після чого з’явиться діалогове вікно для введення тексту, який потрібно знайти. Дивіться знімок екрана:
4. клацання OK, а ще одне діалогове вікно вискакує, щоб ввести текст, яким ви хочете замінити. Дивіться знімок екрана:
5. клацання OK. Тепер значення "KTE" були замінені на «Kutools для Excel» у верхньому та нижньому колонтитулі.
Чайові: Якщо ви хочете працювати над цілою книгою, ви можете використовувати код макросу нижче.
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
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!