Altbilgi yalnızca Excel'de son sayfada nasıl yazdırılır?
Varsayılan olarak, yerleşik Üstbilgi Altbilgi Excel'in özelliği sayesinde, bir çalışma sayfasında yazdırılan her sayfanın altına kolayca alt bilgi ekleyebilirsiniz. Bir çalışma sayfasında yalnızca son yazdırılan sayfaya altbilgi eklemek istiyorsanız, bunu nasıl yapabilirsiniz? Bu öğretici, bu görevi adım adım gerçekleştirmenize yardımcı olacak bir VBA komut dosyası sağlar.
Yalnızca son sayfada altbilgiyi VBA koduyla yazdır
Yalnızca Excel'de son yazdırılan sayfada özel bir altbilgi yazdırmak için lütfen aşağıdaki VBA kodunu çalıştırın.
1. Yazdırmak istediğiniz çalışma sayfasını, yalnızca son yazdırılan sayfada görüntülenen özel bir altbilgi ile açın.
2. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
3. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu kopyalayın Modül (Kod) pencere.
VBA kodu: Altbilgiyi yalnızca son sayfada yazdır
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, lütfen bu içeriği değiştirin "Altbilgi bilgilerinizi buraya yazın" kendi altbilgi bilgilerinizle.
4. Tuşuna basın. F5 kodu çalıştırmak için anahtar.
Daha sonra etkin çalışma sayfası, yalnızca son yazdırılan sayfaya eklenen özel altbilgi ile yazdırılacaktır.
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!