Excel'de üstbilgi veya altbilgi nasıl bulunur ve değiştirilir?
Excel'de belirli bir değeri bulmak ve ardından başka bir değerle değiştirmek günlük çalışmalarımızda yaygındır, ancak Excel'de Bul ve Değiştir işlevi seçimde, sayfalarda ve çalışma kitabında iyi çalışır, ancak üstbilgi ve altbilgide bulup değiştiremez. Bu makalede, üstbilgi ve altbilgideki değerleri bulmak ve değiştirmek için bir makro kodu tanıtıyorum.
VBA ile üstbilgi veya altbilgide bulun ve değiştirin
VBA ile üstbilgi veya altbilgide bulun ve değiştirin
1. Bulmak ve değiştirmek istediğiniz sayfayı üstbilgi ve altbilgide etkinleştirin, Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve VBA kodunun altına Modüle yapıştırın. Ekran görüntüsüne bakın:
VBA: Üstbilgi ve altbilgide bulun ve değiştirin
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 kodu çalıştırmak için tuşuna basın, ardından bulmak istediğiniz metni girmeniz için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OKve değiştirmek istediğiniz metni girmek için başka bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
5. tık OK. Şimdi değerler "KTE" ile değiştirildi "Kutools for Excel" üstbilgi ve altbilgi olarak.
Bahşiş: Çalışma kitabının tamamı için çalışmak 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
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!