KutoolsforOffice — Tek çözüm, beş güçlü araç.Daha az çabayla daha fazlasını başarmak.

Excel'de altbilgiyi yalnızca son sayfada yazdırmak için ne yapılmalıdır?

YazarSiluvia Değiştirme Tarihi

Varsayılan olarak, Excel’in yerleşik “Üstbilgi ve Altbilgi” özelliğini kullanarak bir çalışma sayfasındaki her yazdırılan sayfanın alt kısmına kolayca altbilgi ekleyebilirsiniz. Peki ya yalnızca son yazdırılan sayfaya altbilgi eklemek isterseniz ne yapmalısınız? Bu öğretici, söz konusu görevi adım adım yerine getirmenize yardımcı olacak bir VBA betiği sunar.

Altbilgiyi yalnızca Son Sayfa VBA koduyla yazdırma

Excel'de yalnızca en son yazdırılan sayfada özel bir altbilgi görüntülemek için lütfen aşağıdaki VBA kodunu çalıştırın.

1. Yazdırmak istediğiniz çalışma sayfasını açın ve altbilginin yalnızca son sayfada görünmesini sağlayın.

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

3. "Microsoft Visual Basic for Applications" penceresinde "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki VBA kodunu "Modül (Kod)" penceresine kopyalayın.

Bir modül eklemek için seçeneği gösteren VBA düzenleyicisinin ekran görüntüsü

VBA kodu: Altbilgiyi yalnızca Son Sayfa yazdırma

Sub SetFooterOnLastPage()
'Updated by Extendoffice 20221024
    Dim xCount As Long
    Dim xWSh
    xCount = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    Set xWSh = Application.ActiveSheet
    With Application.ActiveSheet
    .PageSetup.RightFooter = ""
        If xCount > 1 Then
            .PrintOut From:=1, To:=xCount - 1
        End If
            .PageSetup.RightFooter = "Type your footer information here"
            .PrintOut From:=xCount, To:=xCount
    End With
End Sub

Not: Kodda yer alan "Buraya altbilgi bilginizi yazın" metnini kendi altbilgi bilgilerinizle değiştirin.

4. Kodu çalıştırmak için F5 tuşuna basın.

Böylece etkin çalışma sayfası, özel altbilginin yalnızca son yazdırılan sayfada görünmesi sağlanarak yazdırılır.

En İyi Office Üretkenlik Araçları

🤖KUTOOLS AI Yardımcısı: Şunu temel alarak Veri Analizi'i devrimleştirin:Akıllı Yürütme   |  Kod Oluştur|  özel formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur|  Geliştirilmiş İşlevler Çağır…
Popüler Özellikler:Bul, Vurgula veya Yinelenenleri İşaretle   |  Boş Satırları Sil   |  Veri Kaybetmeden Sütunları Birleştir veya Hücreleri   |   Formül kullanmadan yuvarlama…
Süper ARA:Çoklu Kriterli Düşey Arama (VLookup)  |  Çoklu Değerli Düşey Arama (VLookup)  |   Birden Fazla Sayfada Düşey Arama (VLookup)   |   Bulanık Eşleme…
Gelişmiş Açılır Liste:Hızlıca Açılan Liste Oluştur   |  Bağımlı Açılan Liste   |  Çoklu Seçimli Açılan Liste…
Sütun Yöneticisi:Belirli Sayıda Sütun Ekle|Sütunları Taşı|Gizli Sütunların Görünürlük Durumunu Aç/Kapat|Aralıkları ve Sütunları Karşılaştır…
Öne Çıkan Özellikler:Izgara Odaklama   |  Tasarım Görünümü   |Gelişmiş formül çubuğu   | Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynaklar(Otomatik Metin)|  Tarih Seçici   |  Çalışma Sayfalarını Birleştir  |  Şifrele/Hücreleri Şifre Çöz   | Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre(Kalın Yazılı Hücreleri Filtrele/italik/üstü çizili…) …
En İyi 15 Araç Takımları:12 MetinAraçları(Metin Ekle,Belirli Karakterleri Sil, …)|   50+GrafikTürleri(Gantt Grafiği, …)|   40+ Pratik Formüller(Doğum tarihine dayanarak yaş hesapla, …)|   19 EklemeAraçları(QR Kodu Ekle,Yoldan Resim Ekle, …)|   12 DönüştürmeAraçları(Kelimeye Dönüştür,Döviz Kuru Dönüşümü, …)|   7 Birleştir ve AyırAraçları(Gelişmiş Satırları Birleştir,Hücreleri Böl, …)|… ve daha fazlası
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40+ başka dil desteği sunar!

Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve verimlilikten önce hiç yaşamadığınız gibi yararlanın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…

Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işinizi çok daha kolay hale getirir

  • Word, Excel ve PowerPoint’te sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
  • Günlük üretkenliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!

Tüm Kutools eklentileri — tek bir yükleyiciyle!

Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro'yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.

ExcelWordOutlookTabsPowerPoint
  • Hepsi-bir-arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
  • Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
  • Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı üretkenlik
  • 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
  • En iyi fiyat-performans— tek tek eklenti satın almaya göre tasarruf edin