İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də başlıq və ya altbilgiyi tapmaq və dəyişdirmək necədir?

Xüsusi bir dəyər tapmaq və sonra Excel-də başqa bir dəyər ilə əvəz etmək gündəlik işlərimizdə ümumi olur, ancaq Excel-də tap və dəyişdirin funksiyası seçim, sheets və iş kitabında yaxşı işləyir, lakin başlıq və altbilgdə tapa bilmir və əvəz edə bilmir. Bu yazıda üstbilgi ve altbilgi değerlerini tapmaq və değiştirmek üçün bir makro kodunu tanıyıram.

VBA ilə başlıq və ya altbilgini tapın və dəyişdirin


yaxşıNaviqasiya bölməsi - tapın və dəyişdirin

Excel üçün Kutoolsinkişaf etmiş Tapın və dəyişdirin funksiyası tapmaq və kömək edə bilər
Çox hesabatı və iş dəftərlərindən bir dəyəri əvəz etməli.
doc tapmaq və əvəz

arrow mavi sağ bubble VBA ilə başlıq və ya altbilgini tapın və dəyişdirin


1. Üst və altbilgdə tapmaq və dəyişdirmək istədiyiniz hesabatı aktiv edin, basın Alt + F11 açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modules, və VBA kodunun altına Modulu əlavə edin. Ekran görüntüsünə baxın:

VBA: Üstbilgi və altbilgini tapın və dəyişdirin

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

doc search header footer 1 əvəz

3. Sonra basın F5 kodu açmaq üçün açar, onda tapmaq istədiyiniz mətnin daxil edilməsi üçün bir dialoq çıxır. Ekran görüntüsünə baxın:
doc search header footer 2 əvəz

4. klik OKvə başqa bir informasiya qutusu ilə dəyişdirmək istədiyiniz mətnə ​​daxil olmaq üçün çıxır. Ekran görüntüsünə baxın:
doc search header footer 3 əvəz

5. klik OK. İndi dəyərlər "TEC" əvəz edilmişdir "Excel üçün Kutools" başlıq və altlıqda.
doc search header footer 4 əvəz

UcBütün iş kitabında işləmək istəyirsinizsə, makro kodunun altından istifadə edə bilərsiniz.

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

ilə Excel üçün Kutools'S İş dəftəri məlumatını daxil edin istifadəçi adı, işin adı, iş dəftəri yolu və s. aktiv hesabatın altbilgisi və ya başlığına əlavə edə bilərsiniz. Ekran görüntüsünə baxın:
doc search header footer 5 əvəz

doc download 1



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.