Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mencari dan menggantikan dalam header atau footer dalam Excel?

Untuk mencari nilai khusus dan kemudian menggantikan dengan nilai lain dalam Excel adalah biasa dalam kerja harian kami, tetapi dalam Excel, fungsi Cari dan Ganti berfungsi dengan baik dalam pemilihan, helaian dan buku kerja, tetapi tidak dapat mencari dan menggantikan dalam header dan footer. Dalam artikel ini, saya memperkenalkan kod makro untuk mencari dan menggantikan nilai dalam header dan footer.

Cari dan ganti di header atau footer dengan VBA


baikPane navigasi - Cari dan Ganti

Kutools untuk Excelmaju Cari dan Ganti fungsi, boleh membantu anda mencari dan
menggantikan nilai merentas pelbagai helaian dan buku kerja.
mencari dan menggantikan doc

anak panah gelembung kanan biru Cari dan ganti di header atau footer dengan VBA


1. Dayakan helaian yang anda ingin cari dan ganti di header dan footer, tekan Alt + F11 kunci untuk dibuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. klik Memasukkan > Modul, dan tampal di bawah kod VBA ke Modul. Lihat tangkapan skrin:

VBA: Cari dan gantikan dalam header dan footer

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

mencari doc menggantikan header header 1

3. Kemudian tekan F5 kunci untuk menjalankan kod tersebut, maka dialog timbul untuk anda memasukkan teks yang anda ingin cari. Lihat tangkapan skrin:
mencari doc menggantikan header header 2

4. klik OK, dan dialog lain timbul untuk memasukkan teks yang anda mahu ganti dengan. Lihat tangkapan skrin:
mencari doc menggantikan header header 3

5. klik OK. Sekarang nilai-nilai "TEC" telah digantikan dengan "Kutools for Excel" dalam header dan footer.
mencari doc menggantikan header header 4

Petua: Jika anda ingin bekerja untuk keseluruhan buku kerja, anda boleh menggunakan kod makro di bawah.

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

dengan Kutools untuk Excel'S Masukkan Maklumat Buku Kerja utiliti, anda boleh memasukkan nama pengguna, nama lembaran kerja, laluan buku kerja dan sebagainya ke footer atau pengepala helaian aktif. Lihat tangkapan skrin:
mencari doc menggantikan header header 5

doc muat turun 1



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Vijay · 1 years ago
    Dear all, Please advise me how to modify above VBA code to search and replace in complete WORKBOOK headers/footers. Thanks in advance
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      About your question, I have add the new VBA code in this article which can find and replace headers/footers in the whole wokrbook.