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

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 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 (8)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hallo Terimakasih! Memikirkan VBA membuatku berkeringat. Saya punya satu masalah dengan hasil kode ini. Kolom pertama adalah header kolom. Kode memperlakukan ini sebagai perubahan. Halaman pertama saya hanya menampilkan tajuk kolom, tetapi halaman berikutnya baik-baik saja. FYI: Ini untuk laporan bulanan dan jumlah baris untuk setiap kriteria berubah setiap bulan. Ada Ide? Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Maaf. EDIT: ROW pertama adalah tajuk kolom.
Komentar ini diminimalkan oleh moderator di situs
Itu benar-benar brilian! Saya mengikuti contoh VB Anda dan berhasil! Saya juga pemilik KUTools jadi saya akan bermain dengan itu juga.

Sangat terkesan dan terima kasih!

Mike
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin untuk melewatkan 20 baris pertama lembar? Jika sudah mencoba segala macam hal tetapi pengetahuan saya tentang VBA terbatas pada menyesuaikan kode sendiri.
Komentar ini diminimalkan oleh moderator di situs
Hai, Wilco,
Untuk menyisipkan page break tetapi melewatkan 20 baris pertama, Anda hanya perlu mengubah satu parameter seperti kode di bawah ini:

Sub insertpagebreaks()

'updateby Extendoffice

Redupkan Aku Selamanya, J Selamanya

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

Untuk I = J Ke 21 Langkah -1

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

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

End If

Selanjutnya saya

End Sub

Silakan coba, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Ti không muốn ngắt trang tại những hàng bị n. Ini phải làm sao?
Komentar ini diminimalkan oleh moderator di situs
Halo, Lê Tuấn
Untuk mengatasi masalah Anda, silakan terapkan kode VBA di bawah ini:
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


Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Halo,

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

Terima kasih banyak!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan