Excel'de hücreye / başlığa / alt başlığa sayfa numarası nasıl eklenir?

Bir Excel dosyasını yazdırdığınızda, yazdırılan dosyanın düzenli ve okunabilir olmasını sağlamak için sayfa numaralarını sayfalara eklemeniz gerekebilir. Bu makalede, size sayfa numaralarını hücreye, başlığa veya alt başlığa eklemenin bazı hızlı yöntemlerini tanıtacağım.

Tek bir çalışma sayfasına başlık / alt başlıkta sayfa numarası ekleme

Birden çok çalışma sayfasında başlık / alt başlıkta sayfa numarası ekleme

VBA kodu ile hücreye sayfa numarası ekleme

Excel'de tüm sayfa numaralarını tek seferde kaldırma

Tek bir çalışma sayfasına başlık / alt başlıkta sayfa numarası ekleme

Normalde, Başlık ve Alt Başlık fonksiyonunu kullanarak başlık veya alt başlığa sayfa numaralarını hızlıca ekleyebiliriz, lütfen şu adımları izleyin:

1. Sayfa numaralarını eklemek istediğiniz çalışma sayfasına gidin.

2. Ardından Ekle > Başlık & Alt Başlık'a tıklayın ve çalışma sayfanız Sayfa Düzeni görünümünde açılacaktır, aşağıdaki ekran görüntüsüne bakın:

3. Sayfa numarasını eklemek istediğiniz başlık veya alt başlığı tıklayın ve ardından Şerit'te Başlık ve Alt Başlık Araçları içeren bir Tasarım sekmesi görüntülenecektir, ardından Tasarım > Sayfa Numarası'na tıklayın, aşağıdaki ekran görüntüsüne bakın:

4. Ve seçili bölüme &[Sayfa] yer tutucusunun eklendiğini görebilirsiniz, ardından başlık veya alt başlık alanının dışında herhangi bir yere tıklayarak sayfa numaralarını görüntüleyebilirsiniz. Aşağıdaki ekran görüntüsüne bakın:

5. Şimdi, Görünüm > Normal'e tıklayarak normal görünüme dönebilirsiniz ve bu çalışma sayfasını yazdırdığınızda, seçtiğiniz başlık veya alt başlıkta sayfa numaralarının eklendiğini göreceksiniz.

Not: Eğer sayfa numaralarını 1 of 15, 2 of 15 formatında görüntülemek istiyorsanız, sadece bu &[Sayfa] of &[Sayfalar]'ı doğrudan başlık veya alt başlık alan kutusuna girmeniz yeterlidir, aşağıdaki ekran görüntüsüne bakın:

Birden çok çalışma sayfasında başlık / alt başlıkta sayfa numarası ekleme

Yukarıdaki yöntem, sayfa numaralarını tek bir çalışma sayfasına eklemenize yardımcı olabilir. Eğer sayfa numaralarını çalışma kitabındaki tüm çalışma sayfalarına eklemek ve tüm sayfaların sıralı şekilde numaralandırılmasını istiyorsanız, lütfen şu adımları izleyin:

1. Tüm sayfa sekmelerini seçin, ardından Sayfa Düzeni sekmesine gidin ve Sayfa Ayarları grubundaki Diyalog Kutusu Başlatıcı Düğmesi simgesine tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Sayfa Ayarları diyalog kutusunda, lütfen Başlık/Alt Başlık sekmesine tıklayın ve ardından ayarlamak istediğiniz başlık veya alt başlığı seçmek için Özel Başlık veya Özel Alt Başlık'a tıklayın, aşağıdaki ekran görüntüsüne bakın:

3. Ve Başlık veya Alt Başlık diyalog kutusunda, lütfen sayfa numaralarının ekleneceği konumu Sol bölüm:, Orta bölüm: veya Sağ bölüm: kutusuna tıklayarak belirleyin ve ardından Sayfa Numarası Ekle simgesine tıklayın ve &[Sayfa] yer tutucusu belirecektir. Aşağıdaki ekran görüntüsüne bakın:

Not: Eğer sayfa numaralarını 1 of 45, 2 of 45… formatında görüntülemek istiyorsanız, bu &[Sayfa] of &[Sayfalar]'ı başlık veya alt başlık alan kutusuna girin.

4. Ardından Tamam > Tamam'a tıklayarak diyalog kutularını kapatın, bu çalışma kitabını yazdırdığınızda, baskı önizlemede tüm sayfa numaralarının başlık veya alt başlığa sıralı şekilde eklendiğini görebilirsiniz.

VBA kodu ile hücreye sayfa numarası ekleme

Sayfa numaralarını başlık veya alt başlığa eklemek kolaydır, ancak sayfa numaralarını bir çalışma sayfası hücresine eklemeniz gerekiyorsa, bunu yapmak için size doğrudan bir yol yoktur. Aşağıdaki VBA kodu bu sorunu çözmenize yardımcı olabilir.

1. Bu hücrenin sayfa numarasını görüntülemek istediğiniz bir hücreye tıklayın.

2. ALT + F11 tuşlarına basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.

3. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Mevcut sayfa numarasını bir hücreye ekleme:

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve bu hücrenin sayfa numarası seçili hücrede görüntülenecektir, aşağıdaki ekran görüntüsüne bakın:

Excel'de tüm sayfa numaralarını tek seferde kaldırma

Tüm sayfa numaralarını kaldırmak için aşağıdaki adımları uygulayabilirsiniz:

1. Tüm sayfa sekmelerini seçin ve Şerit üzerindeki Sayfa Düzeni sekmesine gidin, ardından Sayfa Ayarları grubundaki Diyalog Kutusu Başlatıcı Düğmesi simgesine tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Sayfa Ayarları diyalog kutusunda, Başlık/Alt Başlık sekmesine tıklayın ve ardından Başlık veya Alt Başlık açılır listesinden (yok) seçeneğini seçin, aşağıdaki ekran görüntüsüne bakın:

3. Ardından Tamam düğmesine tıklayın, tüm sayfa numaraları çalışma kitabından bir defada kaldırılacaktır.