Note: The other languages of the website are Google-translated. Back to English
English English

Bagaimana cara memasukkan jeda halaman setiap baris x di Excel?

Mungkin mudah dan sederhana bagi Anda untuk memasukkan jeda halaman ke dalam lembar kerja. Terkadang, diperlukan untuk memasukkan jeda halaman di setiap baris X untuk dicetak dengan rapi, bagaimana Anda bisa melakukannya? Di sini saya memperkenalkan beberapa metode untuk mengatasi masalah ini di Excel.


Sisipkan hentian halaman setiap baris X dengan VBA di Excel

Mungkin Anda tidak terbiasa dengan VBA yang berjalan sebelumnya, tetapi dengan langkah-langkah berikut ini Anda mungkin tahu cara menjalankan VBA untuk memasukkan hentian halaman setiap baris X. Di sini saya akan memasukkan jeda halaman di setiap 3 baris.

1. tekan Alt + F11 untuk menampilkan Microsoft Visual Basic untuk Aplikasi jendela.

2. Di jendela, klik Menyisipkan > Modul untuk menampilkan jendela modul baru, lalu salin kode VBA berikut ke jendela modul.

VBA: Sisipkan hentian halaman di setiap baris X di lembar kerja.

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. Klik Run dan sebuah dialog muncul bagi Anda untuk menentukan setiap baris X yang ingin Anda sisipkan jeda halaman. Di sini saya menyisipkan jeda halaman di setiap 3 baris. Lihat tangkapan layar:
doc-insert-page-break-x-row-1

4. Klik OK, lalu akan menyisipkan hentian halaman di setiap baris X.

Sisipkan dengan cepat hentian halaman setiap baris (n) di lembar kerja aktif

Biasanya kami memasukkan satu hentian halaman dengan mengklik Page Layout > Breaks > Sisipkan Page Break. Tapi cara ini terlalu membosankan untuk memasukkan banyak jeda halaman dalam lembar kerja, seperti Anda perlu memasukkan satu hentian halaman setiap baris untuk mencetak setiap baris di halaman terpisah. Jangan Khawatir! Kutools untuk Excel Sisipkan Hentian Halaman Setiap Baris utilitas dapat membantu Anda mengarsipkannya dengan mudah! Uji Coba Gratis Fitur Lengkap 30 hari!
iklan masukkan jeda halaman setiap baris 3

Batch sisipkan jeda halaman setelah setiap baris x dengan Kutools for Excel

Jika Anda menginstal Kutools for Excel, itu Pisahkan ke Kolom utilitas dapat membantu Anda memasukkan banyak jeda halaman setelah setiap baris x dengan menjaga judul di setiap halaman dengan mudah di Excel.

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Uji Coba Gratis Sekarang!

1. Klik Pisahkan ke Kolom pada Kutools Plus Tab.

2. Di kotak dialog Pisahkan ke Kolom pembuka, Anda perlu:

(1) Klik tombol Jelajah  dalam Rentang judul kotak, dan pilih baris judul dalam kisaran yang ditentukan yang akan Anda batch memasukkan hentian halaman.
(2) Klik tombol Jelajah dalam rentang tanggal kotak, dan pilih rentang yang akan Anda kelompokkan menyisipkan hentian halaman.
(3) Dalam Baris per halaman cetak kotak, masukkan nomor. (jenis: Misalnya, jika Anda perlu memasukkan jeda halaman setelah setiap 3 baris, masukkan 3 ke dalam kotak; jika Anda perlu memasukkan jeda halaman setelah setiap baris, masukkan 1.)
(4) Masukkan 1 ke Jumlah segmen kotak.

3. klik Ok .

Sekarang Anda akan melihat rentang disalin ke lembar kerja baru, dan jeda halaman ditambahkan setelah setiap baris x dengan mempertahankan judul rentang. Anda juga dapat beralih ke tampilan Pratinjau Hentian Halaman dengan mengklik View > Pratinjau Hentian Halaman untuk melihat jeda halaman ini. Lihat screen shot di bawah ini.

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now


Masukkan jeda halaman setelah setiap baris x dengan Kutools for Excel

Kutools for Excel mengembangkan utilitas Sisipkan Halaman Setiap Baris lainnya yang mengkhususkan diri dalam memasukkan jeda halaman setelah setiap baris x nyaman.

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Uji Coba Gratis Sekarang!

1. Pilih rentang yang akan Anda sisipkan hentian halaman setelah setiap baris x, dan klik Pencetakan > Sisipkan Hentian Halaman Setiap Baris pada Kutools Plus Tab.

2. Dalam kotak dialog Sisipkan Hentian Halaman Setiap Baris pembuka, tentukan interval baris tempat Anda akan menyisipkan hentian halaman, dan klik Ok .

Kemudian Anda akan melihat jeda halaman disisipkan pada interval baris yang ditentukan sekaligus.

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now


Demo: masukkan jeda halaman setiap baris x di Excel


Kutools untuk Excel menyertakan lebih dari 300 alat praktis untuk Excel, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan Uji Coba Gratis Sekarang!

Artikel Relatif:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (3)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak dari Istanbul / Turki :)
Komentar ini diminimalkan oleh moderator di situs
Hai, Terima kasih banyak untuk kodenya. Tetapi ketika saya menekan Batal atau x pada kotak input; file excelnya crash. Bisakah Anda membantu menyelesaikan masalah ini.
Komentar ini diminimalkan oleh moderator di situs
Sayang extendoffice.com
Saya ingin mengirim umpan balik tentang fitur: Print > Insert Page Break Every Row.

Kode VBA:
Sub InsertPageBreaks()
'Perbarui oleh20140618
Redupkan xLastrow Selamanya
Redupkan xWs Sebagai Lembar Kerja
Setel xWs = Application.ActiveSheet
xRow = Application.InputBox("Baris", xTitleId, "", Ketik:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Baris
Untuk i = xRow + 1 Ke xLastrow Langkah xRow
xWs.HPageBreaks.Tambahkan Sebelum:=xWs.Cells(i, 1)
Next
End Sub


Saat Anda menggunakan fungsi ini, Anda hanya dapat memasukkan satu variabel yaitu xRow.
Jadi fitur ini akan hampir tidak berguna karena tidak fleksibel. Tidak semua data dimulai dari Baris 1, apalagi data biasanya berupa tabel dan memiliki baris Header.

Saya pikir fitur ini harus memiliki variabel lain yaitu xFirstRow, sehingga Anda dapat menentukan baris data pertama:
xFirstRow = Application.InputBox("Baris Pertama", xTitleId, "", Ketik:=1)

Dan rumusnya harus:
Untuk i = xFirstRow + xRow + 1 Ke xLastrow Langkah xRow

Semoga fitur ini akan ditingkatkan di versi yang lebih baru.
Terima kasih,
Tuyen
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan