Bir Excel elektronik tablosundaki her sayfaya farklı üstbilgiler veya altbilgiler nasıl uygulanır?
Varsayılan olarak, bir çalışma sayfasına üstbilgi veya altbilgi eklerken, üstbilgi veya altbilgi içeriği tüm sayfalara uygulanacaktır. Birçok kişi için, farklı sayfaların çalışma sayfalarında farklı içerikleri olabilir. Ve çalışma sayfasını yazdırdıktan sonra bu sayfaları üstbilgi veya altbilgi içeriğiyle ayırma eğilimindedirler. Çalışma sayfasındaki her sayfaya farklı üstbilgiler veya altbilgiler nasıl uygulanır? Bu makaledeki yöntem size yardımcı olabilir.
VBA kodu ile her sayfaya farklı üstbilgi veya altbilgi uygulayın
VBA kodu ile her sayfaya farklı üstbilgi veya altbilgi uygulayın
Aşağıdaki VBA kodu, bir çalışma sayfasının her sayfasına farklı üstbilgi veya altbilgi uygulamanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 anahtarları aynı anda açmak için Uygulama için Microsoft Visual Basics penceresi.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu kopyalayıp Kod pencere. Ekran görüntüsüne bakın:
VBA kodu: Excel'deki her sayfaya farklı başlıklar uygulayın
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. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Sonra Önizleme pencere açılır, lütfen tıklayın Print Farklı başlık veya altbilgi içeren sayfaları yazdırmaya başlamak için
not: Çalışma sayfasında belirtilen 4 yazdırılmış sayfa varsa, Print Tüm baskıyı bitirmek için düğmesine dört kez basın.
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!