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 for 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 mendownload Kutools for Excel!

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

Setelah menginstal Kutools for 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 for 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

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 Teratas:  12 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 Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

tab kte 201905

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
Hélène HERLY
Hélène HERLY
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 !
Reply
0
0
Lê Tuấn
Lê Tuấn
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?
Reply
0
0
skyyang
skyyang     Lê Tuấn
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!
Reply
Report
0
0
Wilco
Wilco
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.
Reply
0
0
skyyang
skyyang     Wilco
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!
Reply
Report
0
0
Mike MItsch
Mike MItsch
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
Reply
0
0
GUEST
GUEST
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
Reply
0
0
GUEST
GUEST
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.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations