Loncat ke daftar isi utama

Bagaimana cara memasukkan jeda halaman saat nilai berubah di Excel?

Misalkan, saya memiliki berbagai sel, dan sekarang, saya ingin memasukkan jeda halaman ke dalam lembar kerja ketika nilai di kolom A berubah seperti gambar di sebelah kiri yang ditampilkan. Tentu saja, Anda dapat memasukkannya satu per satu, tetapi adakah cara cepat untuk menyisipkan hentian halaman sekaligus berdasarkan nilai yang diubah dari satu kolom?

Masukkan jeda halaman saat nilai berubah dengan kode VBA

Sisipkan hentian halaman saat nilai berubah dengan fitur canggih


Masukkan jeda halaman saat nilai berubah dengan kode VBA

Kode VBA berikut dapat membantu Anda memasukkan jeda halaman di bawah ini berdasarkan perubahan data kolom sekali, lakukan hal berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Sisipkan jeda halaman saat nilainya berubah:

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, semua jeda halaman telah dimasukkan ke dalam lembar ketika data berubah di kolom A. Lihat tangkapan layar:

Catatan:Pada kode di atas, A adalah tajuk kolom yang ingin Anda sisipkan hentian halaman berdasarkan, Anda dapat mengubahnya sesuai kebutuhan.

Sisipkan hentian halaman saat nilai berubah dengan fitur canggih

Jika Anda memiliki Kutools untuk Excel, Dengan yang Bedakan perbedaan fitur, Anda dapat dengan cepat menyisipkan hentian halaman, baris kosong, garis batas bawah atau warna latar belakang berdasarkan perubahan nilai. Klik untuk mengunduh Kutools for Excel!

Tip:Untuk menerapkan ini Bedakan perbedaan fitur, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Klik Kutools > dibentuk > Bedakan perbedaan, lihat tangkapan layar:

2. Di muncul keluar Bedakan perbedaan dengan kolom kunci kotak dialog, lakukan operasi berikut:

  • Pilih rentang data dan kolom kunci yang ingin Anda gunakan;
  • Pilih page Break dari Opsi kotak.

3. Lalu klik Ok tombol, jeda halaman telah dimasukkan ke dalam rentang berdasarkan perubahan nilai lihat tangkapan layar:

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Artikel yang lebih relatif:

  • Sorot Baris Saat Nilai Sel Berubah Di Excel
  • Jika ada daftar nilai berulang di lembar kerja Anda, dan Anda perlu menyorot baris berdasarkan kolom A yang nilai selnya berubah seperti gambar di bawah ini. Nyatanya, Anda dapat dengan cepat dan mudah menyelesaikan pekerjaan ini dengan menggunakan fitur Pemformatan Bersyarat.
  • Angka Tambahan Saat Nilai Berubah Di Kolom Lain
  • Misalkan, Anda memiliki daftar nilai di kolom A, dan sekarang Anda ingin menambah angka sebesar 1 di kolom B ketika nilai di kolom A berubah, yang berarti angka di kolom B bertambah hingga nilai di kolom A berubah, lalu kenaikan angka dimulai dari 1 lagi seperti screenshot kiri yang ditampilkan. Di Excel, Anda dapat menyelesaikan pekerjaan ini dengan metode berikut.
  • Menjumlahkan Sel Saat Nilai Berubah Di Kolom Lain
  • Saat Anda mengerjakan lembar kerja Excel, terkadang, Anda mungkin perlu menjumlahkan sel berdasarkan sekelompok data di kolom lain. Misalnya, di sini, saya ingin menjumlahkan pesanan di kolom B saat data berubah di kolom A untuk mendapatkan hasil sebagai berikut. Bagaimana Anda bisa mengatasi masalah ini di Excel?
  • Sisipkan Baris Kosong Saat Nilai Berubah Di Excel
  • Misalkan Anda memiliki berbagai data, dan sekarang Anda ingin menyisipkan baris kosong di antara data ketika nilai berubah, sehingga Anda dapat memisahkan nilai yang sama berurutan dalam satu kolom seperti yang ditunjukkan tangkapan layar berikut. Pada artikel ini, saya akan berbicara tentang beberapa trik bagi Anda untuk mengatasi masalah ini.
  • Jalankan Makro Saat Nilai Sel Berubah Di Excel
  • Biasanya, di Excel, kita dapat menekan tombol F5 atau tombol Run untuk menjalankan kode VBA. Tapi, pernahkah Anda mencoba menjalankan kode makro tertentu saat nilai sel berubah? Artikel ini, saya akan memperkenalkan beberapa trik cepat untuk menangani pekerjaan ini di Excel.

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,

Merci pour le code qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code ?

Merci beaucoup !
This comment was minimized by the moderator on the site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
This comment was minimized by the moderator on the site
Hello, Lê Tuấn
To solve your problem, please apply the below VBA code:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is it possible to skip the first 20 rows of the sheet? If been trying all kinds of stuff but my knowledge of VBA is to limited to adjuist the code myself.
This comment was minimized by the moderator on the site
Hi, Wilco,
To insert the page break but skip the first 20 rows, you just need to change one parameter as below code:

Sub insertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For I = J To 21 Step -1

If Range("A" & I).Value <> Range("A" & I - 1).Value Then

ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)

End If

Next I

End Sub

Please try, thank you!
This comment was minimized by the moderator on the site
That is truly brilliant! I followed along on your VB example and it worked! I also am an owner of KUTools so I will play with that too.

Very impressed and thanks!

Mike
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
This comment was minimized by the moderator on the site
Hello, Thank you! The thought of VBA makes me sweat. I do have one problem with the results of this code though. The first column is a column header. The code treats this as a change. My first page only shows the column header, but he following pages are fine. FYI: This is for a monthly report and the number of rows for each criteria change monthly. Any Ideas? Thank you in advance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations