Excel'de her x satırda bir sayfa sonu nasıl eklenir?

Bir çalışma sayfasına sayfa sonu eklemek sizin için kolay ve basit olabilir. Bazen, düzenli bir şekilde yazdırmak için her X satırda bir sayfa sonu eklemeniz gerekebilir, bunu nasıl yapabilirsiniz? Burada bu sorunu çözmek için birkaç yöntemden bahsedeceğim.

• Excel'de VBA ile her X satırda bir sayfa sonu ekleme
• Her x satırdan sonra toplu olarak sayfa sonu ekleme
• Her x satırdan sonra başlık satırı ekleyerek toplu olarak sayfa sonu ekleme

Excel'de VBA ile her X satırda bir sayfa sonu ekleme

Belki daha önce VBA çalıştırmaya alışkın değilsinizdir, ancak aşağıdaki adımları izleyerek her X satırda bir sayfa sonu eklemek için VBA'yı nasıl çalıştıracağınızı öğrenebilirsiniz. Burada her 3 satırda bir sayfa sonu ekleyeceğim.

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

2. Pencerede, Insert > Module'a tıklayarak yeni bir modül penceresi açın, ardından aşağıdaki VBA kodunu modül penceresine kopyalayın.

VBA: Çalışma sayfasındaki her X satırda sayfa sonu ekleme.

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3. Tıklayın Run düğmesine basın ve her X satırda bir sayfa sonu eklemek istediğiniz aralığı belirtmek için bir iletişim kutusu açılacaktır. Burada her 3 satırda bir sayfa sonu ekliyorum. Ekran görüntüsüne bakınız:

4. Tamam'a tıklayın ve ardından her X satırda bir sayfa sonu ekleyecektir.

Kutools for Excel ile her x satırdan sonra toplu olarak sayfa sonu ekleme

Eğer Excel için Kutools'u yüklediyseniz, Veriyi Böl özelliği size her x satırdan sonra birden fazla sayfa sonu eklemenizi ve her sayfada başlığı kolayca korumanızı sağlar.

1. Kutools Plus sekmesinde Veriyi Böl'e tıklayın.

2. Açılan Veriyi Böl iletişim kutusunda şu adımları izlemeniz gerekir:

(1) Gözat düğmesine tıklayın   Başlık Aralığı kutusunda, belirlenen aralıkta sayfa sonları eklemek istediğiniz başlık satırını seçin.
(2) Gözat düğmesine tıklayın   Tarih Aralığı kutusunda, sayfa sonları eklemek istediğiniz aralığı seçin.
(3) Sayfa Başına Satır Sayısı kutusuna bir sayı girin. (İpucu: Örneğin, her 3 satırda bir sayfa sonu eklemeniz gerekiyorsa, kutuya 3 girin; her satırda bir sayfa sonu eklemeniz gerekiyorsa, 1 girin.)
(4) Kutuya 1 girin Sayfa Başına Sütun Sayısı .

3. Tamam düğmesine tıklayın.

Şimdi, aralığın yeni bir çalışma sayfasına kopyalandığını ve her x satırdan sonra sayfa sonlarının eklendiğini göreceksiniz. Ayrıca, Görünüm > Sayfa Sonu Önizleme'ye tıklayarak bu sayfa sonlarını Sayfa Sonu Önizleme görünümünde de görebilirsiniz. Aşağıdaki ekran görüntüsüne bakınız.

Kutools for Excel ile her x satırdan sonra sayfa sonu ekleme

Excel için Kutools, her x satırdan sonra kolayca sayfa sonu eklemeye yönelik başka bir Her Satırda Sayfa Sonu Ekle özelliğini geliştirdi.

1. Her x satırdan sonra sayfa sonu eklemek istediğiniz aralığı seçin ve Kutools Plus sekmesinde Yazdırma > Her Satırda Sayfa Sonu Ekle'ye tıklayın.

2. Açılan Her Satırda Sayfa Sonu Ekle iletişim kutusunda, sayfa sonlarını eklemek istediğiniz satır aralığını belirtin ve Tamam düğmesine tıklayın.

Ardından, belirtilen satır aralıklarına anında sayfa sonlarının eklendiğini göreceksiniz.

Demo: Excel'de her x satırda bir sayfa sonu ekleme

İlgili Makaleler:

• Excel'de sayfa sonu ekleme veya kaldırma