Bir Excel elektronik tablosundaki her sayfaya farklı başlık veya altbilgiler nasıl uygulanır?

Varsayılan olarak, bir çalışma sayfasına başlık veya altbilgi eklerken, başlık veya altbilgi içeriği tüm sayfalara uygulanır. Birçok kişi için farklı sayfalarda çalışma sayfalarında farklı içerikler bulunabilir. Ve bu sayfaları, çalışma sayfasını yazdırdıktan sonra başlık veya altbilgi içeriğiyle ayırt etmeye eğilimlidirler. Çalışma sayfasındaki her sayfaya farklı başlık veya altbilgiler nasıl uygulanır? Bu makaledeki yöntem size yardımcı olabilir.

VBA kodu ile her sayfaya farklı başlık veya altbilgiler uygulayın

VBA kodu ile her sayfaya farklı başlık veya altbilgiler uygulayın

Aşağıdaki VBA kodu, çalışma sayfasının her sayfasına farklı başlık veya altbilgiler uygulamanıza yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakın:

VBA kodu: Excel'de her sayfaya farklı başlıklar uygulama

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

Notlar:

3. Kodu çalıştırmak için F5 tuşuna basın. Daha sonra Önizleme penceresi açılacak, lütfen farklı başlık veya altbilgilere sahip sayfaları yazdırmaya başlamak için Yazdır düğmesine tıklayın.

Not: Çalışma sayfasında 4 belirlenmiş yazdırılmış sayfa varsa, tüm yazdırmayı tamamlamak için Yazdır düğmesine dört kez tıklamanız gerekir.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!