Excel'deki son sayfa dışındaki her çıktının üstündeki satırlar nasıl tekrarlanır?
Çoğu durumda, Excel'de yazdırılan her sayfanın en üstünde başlık satırını tekrarlamanız gerekebilir. Ama son sayfa hariç her çıktının üstündeki satırlar nasıl tekrarlanır? Bu makale size bunu başarmanın yöntemini gösterecek.
VBA kodlu son sayfa hariç her çıktının üstüne satırları tekrarlayın
VBA kodlu son sayfa hariç her çıktının üstüne satırları tekrarlayın
Son sayfa dışında üstte yinelenen satırlara sahip tüm sayfaları yazdırmak için aşağıdaki VBA kodunu çalıştırabilirsiniz. Lütfen aşağıdaki işlemleri yapın.
1. Son sayfa dışında üstteki satırları tekrarlamanız gereken çalışma sayfasını açın ve ardından Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.
VBA: Excel'deki son sayfa hariç her çıktının üstündeki satırları tekrarlayın
Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
If xPages > 0 Then
With ActiveSheet.PageSetup
.PrintTitleRows = xRg.AddressLocal
ActiveSheet.PrintOut from:=1, To:=xPages - 1
.PrintTitleRows = ""
ActiveSheet.PrintOut from:=xPages, To:=xPages
End With
End If
End Sub3. Tuşuna basın. F5 kodu çalıştırmak için anahtar, ardından a Kutool Excel için iletişim kutusu açılır, lütfen son sayfa hariç her çıktının üstünde tekrarlamanız gereken satır aralığını seçin ve ardından OK buton. Ekran görüntüsüne bakın:
Daha sonra bu çalışma sayfasındaki tüm sayfalar, son sayfa dışında belirli bir satırın üstte yinelenmesiyle yazdırılır.
İlgili Makaleler:
- Excel'de yeni bir değer görülene veya ulaşılana kadar bir hücre değeri nasıl tekrarlanır?
- Excel'de bir hücrede bir karakter n kez nasıl tekrarlanı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!
