İ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

Bir Excel elektron tabloında hər bir səhifəyə müxtəlif başlıqları və altlıqları necə tətbiq etmək olar?

Mənim cari olaraq, bir iş səhifəsinə üstbilgi və ya altbilgiyi daxil edərkən, üst və ya altbilgi məzmunu bütün səhifələrə tətbiq olunacaq. Bir çox insanlar üçün, müxtəlif səhifələrdə onların iş yerlərində müxtəlif məzmunlar ola bilər. Və onlar iş səhifəsini çap etdikdən sonra bu səhifələri başlıq və ya altbilginin məzmunu ilə fərqləndirirlər. Çalışma səhifəsində hər səhifədə müxtəlif başlıqları və altlıqları necə tətbiq etmək olar? Bu yazıda iştirak etmə üsulu sizə kömək edə bilər.

VBA kodu ilə hər bir səhifədə müxtəlif başlıqları və altlıqları tətbiq edin


arrow mavi sağ bubbleVBA kodu ilə hər bir səhifədə müxtəlif başlıqları və altlıqları tətbiq edin


Aşağıdakı VBA kodu bir iş səhifəsinin hər bir səhifəsinə müxtəlif başlıqları və altlıqları tətbiq etməyə kömək edə bilər. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqram üçün Microsoft Visual Basicpəncərəsində.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra aşağıdakı VBA kodu kopyalayın və yapışdırın Kodu pəncərə. Ekran görüntüsünə baxın:

VBA kodu: Excel-də hər səhifədə müxtəlif başlıqlar tətbiq edin

Sub DifferentHeaderFooter()
    Dim ws As Worksheet
    Dim vLeft As Variant, vRight As Variant, xRg As Variant
    Set ws = ActiveSheet
    On Error Resume Next
    vLeft = Array("First page", "Second page", "Third page", "fourth page")
    xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")

    Application.ScreenUpdating = False
    For i = 0 To UBound(vLeft)
        With ws.PageSetup
        .PrintArea = xRg(i)
        .LeftHeader = vLeft(i)
        End With
        ws.PrintPreview
    Next i
    Application.ScreenUpdating = True
    ws.PageSetup.PrintArea = ""
End Sub

Qeydlər:

1. VBA kodunda kod parçasında müxtəlif başlıq və ya altbilgi adları təyin etməlisiniz "vLeft = Array ("İlk səhifə", "İkinci səhifə", "Üçüncü səhifə", "dördüncü səhifə")".

2. Və cari iş yerindəki hər bir səhifənin çap sahəsini "xRg = Array ("A1: C50", "A51: C100", "A101: C150", "A151: C200")".

3. Müxtəlif altlıqlar tətbiq etmək üçün "Mövzu"Kodu ilə"footer".

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Sonra da Preview pəncərə açılır, xahiş edirik basın çap müxtəlif başlıqları və ya altbilgileri olan səhifələri çap etməyə başlamaq üçün düyməsini basın.

Qeyd: 4 iş səhifəsində göstərilən çap edilmiş səhifələr varsa, bu səhifəni tıklamalısınız çap bütün çapını bitirmək üçün dörd dəfə düyməni basın.



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.

Be the first to comment.