Excel'de başlık veya altbilgi içinde nasıl bul ve değiştir yapılır?

Belirli bir değeri bulup başka bir değerle değiştirmek Excel'de yaygın bir iştir, ancak standart Bul ve Değiştir işlevi yalnızca seçimler, sayfalar ve çalışma kitapları içinde çalışır, başlıklar ve altbilgilerde çalışmaz. Bu makalede, başlıklarda ve altbilgilerde değerleri bulup değiştirmek için bir makro kodu tanıtacağım.

VBA ile başlık veya altbilgi içinde bul ve değiştir

VBA ile başlık veya altbilgi içinde bul ve değiştir

1. Başlık ve altbilgi içinde metin bulmak ve değiştirmek istediğiniz sayfayı etkinleştirin, ardından Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül'e tıklayın ve aşağıdaki VBA kodunu Modüle yapıştırın. Ekran görüntüsüne bakın:

VBA: Başlık ve altbilgi içinde bul ve değiştir

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. Ardından F5 tuşuna basarak kodu çalıştırın, ardından bulmak istediğiniz metni girmeniz için bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:

4. Tıklayın TAMAM, ardından değiştirmek istediğiniz metni girmeniz için başka bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:

5. Tıklayın TAMAMŞimdi değerler “KTE” şununla değiştirildi: “Kutools for Excel” başlık ve altbilgide.

İpucu: Bunu tüm çalışma kitabına uygulamak istiyorsanız, aşağıdaki makro kodunu kullanabilirsiniz.

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