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

Bagaimana cara memasukkan nomor halaman ke sel / header / footer di Excel?

Saat Anda mencetak file Excel, Anda mungkin perlu memasukkan nomor halaman ke dalam halaman untuk membuat file yang dicetak rapi dan mudah dibaca. Pada artikel ini, saya akan memperkenalkan beberapa trik cepat untuk memasukkan nomor halaman ke dalam sel, header atau footer untuk Anda.

Masukkan nomor halaman ke dalam header / footer dalam satu lembar kerja

Sisipkan nomor halaman ke header / footer di beberapa lembar kerja

Masukkan nomor halaman ke dalam sel dengan kode VBA

Hapus semua nomor halaman sekaligus di Excel


panah gelembung kanan biru Masukkan nomor halaman ke dalam header / footer dalam satu lembar kerja

Biasanya, kita dapat memasukkan nomor halaman ke dalam header atau footer dengan cepat menggunakan Bagian atas dan bagian bawah fungsi, lakukan hal berikut:

1. Masuk ke lembar kerja yang ingin Anda sisipkan nomor halaman ke header atau footer.

2. Lalu klik Menyisipkan > Bagian atas dan bagian bawah, dan lembar kerja Anda akan masuk Page Layout lihat, lihat tangkapan layar:

doc masukkan nomor halaman 1

3. Klik header atau footer tempat Anda ingin menyisipkan nomor halaman, lalu a Mendesain tab dengan Alat Header & Footer ditampilkan di Ribbon, lalu klik Mendesain > Nomor halaman, lihat tangkapan layar:

doc masukkan nomor halaman 2

4. Dan Anda dapat melihat placeholder tersebut &[Halaman] muncul di bagian yang dipilih, lalu klik di mana saja di luar area header atau footer untuk menampilkan nomor halaman. Lihat tangkapan layar:

doc masukkan nomor halaman 3

5. Sekarang, Anda dapat mengatur ulang kembali ke tampilan normal dengan mengklik View > Normal, dan saat Anda mencetak lembar kerja ini, Anda akan melihat nomor halaman telah disisipkan ke header atau footer yang Anda pilih.

Note: Jika Anda ingin nomor halaman ditampilkan dalam format 1 dari 15, 2 dari 15, Anda hanya perlu memasukkan ini secara langsung & [Halaman] dari & [Halaman] ke dalam kotak bidang header atau footer, lihat tangkapan layar:

doc masukkan nomor halaman 4


panah gelembung kanan biru Sisipkan nomor halaman ke header / footer di beberapa lembar kerja

Cara di atas dapat membantu Anda untuk memasukkan nomor halaman ke dalam satu lembar kerja, jika Anda ingin memasukkan nomor halaman ke dalam semua lembar kerja buku kerja untuk membuat semua halaman diberi nomor secara berurutan, lakukan seperti ini:

1. Pilih semua tab lembar, lalu pergi ke Page Layout tab, dan klik Tombol Peluncur Kotak Dialog ikon di page setup grup, lihat tangkapan layar:

doc masukkan nomor halaman 5

2. di page setup kotak dialog, silakan klik Bagian atas dan bagian bawah tab, dan kemudian klik Header Kustom or Footer Kustom untuk pergi ke mengatur header atau footer yang Anda inginkan, lihat tangkapan layar:

doc masukkan nomor halaman 6

3. Dan di Header or Footer kotak dialog, tentukan lokasi di mana nomor halaman dimasukkan dengan mengklik di dalam Bagian kiri:, Bagian tengah:, atau Bagian kanan: kotak yang Anda butuhkan, lalu klik Sisipkan Nomor Halaman ikon, dan placeholder &[Halaman] muncul. Lihat tangkapan layar:

doc masukkan nomor halaman 7

Catatan: Masukkan ini & [Halaman] dari & [Halaman] ke dalam kotak bidang header atau footer jika Anda ingin nomor halaman ditampilkan sebagai 1 dari 45, 2 dari 45…

4. Kemudian klik OK > OK untuk menutup kotak dialog, saat Anda mencetak buku kerja ini, di pratinjau cetak, Anda dapat melihat semua nomor halaman disisipkan ke header atau footer secara berurutan.


panah gelembung kanan biru Masukkan nomor halaman ke dalam sel dengan kode VBA

Mudah bagi Anda untuk memasukkan nomor halaman ke dalam header atau footer, tetapi, jika Anda perlu memasukkan nomor halaman ke dalam sel lembar kerja, tidak ada cara langsung bagi Anda untuk melakukannya. Kode VBA berikut dapat membantu Anda mengatasi masalah ini.

1. Klik sel tempat Anda ingin menampilkan nomor halaman sel ini.

2. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

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

Kode VBA: Masukkan nomor halaman saat ini ke dalam sel:

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini, dan nomor halaman sel ini ditampilkan di sel yang dipilih, lihat tangkapan layar:

doc masukkan nomor halaman 8


panah gelembung kanan biru Hapus semua nomor halaman sekaligus di Excel

Untuk menghapus semua nomor halaman, Anda dapat menerapkan langkah-langkah berikut:

1. Pilih semua tab lembar, dan buka Page Layout tab di pita, lalu klik Tombol Peluncur Kotak Dialog ikon di page setup grup, lihat tangkapan layar:

doc masukkan nomor halaman 9

2. di page setup kotak dialog, klik Bagian atas dan bagian bawah tab, lalu pilih (Tidak ada) dari Header or Footer daftar drop-down, lihat tangkapan layar:

doc masukkan nomor halaman 10

3. Kemudian klik OK tombol, semua nomor halaman dihapus dari buku kerja sekaligus.


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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah

 

Urutkan komentar berdasarkan
komentar (6)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Halo Saya menggunakan nomor halaman Sisipkan ke dalam sel dengan kode VBA di atas dan itu berhasil. Lembar saya dapat berupa 2 halaman (2 bawah dan 1 melintang), 4 halaman (2 bawah dan 2 melintang) atau 6 halaman (2 bawah dan 3 melintang). Saya telah memasukkan kode di setiap sel dari 6 yang memerlukan nomor halaman untuk dicetak (dengan memilih sel masing-masing secara bergantian dan menjalankan VBA), alamat sel adalah H1, H35, T1, T35, AF1, AF35. Sekarang saya ingin menambahkan tombol untuk menyegarkan nomor halaman ini tanpa memengaruhi sel mana pun yang mungkin aktif ketika pengguna yang relevan dapat memilih untuk menjalankannya, saat ini saya harus memilih setiap sel secara bergantian dan menjalankan VBA :( Bantuan akan sangat dihargai! Antoinette
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba makro VBA, tetapi saya mendapatkan kesalahan subskrip di luar jangkauan... Apakah saya melakukan sesuatu yang salah?
Komentar ini diminimalkan oleh moderator di situs
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Revisi Podrian... Gracias
Komentar ini diminimalkan oleh moderator di situs
terima kasih, kawan
Komentar ini diminimalkan oleh moderator di situs
Bolehkah saya tahu jika saya memiliki rentang sel yang ingin saya masukkan ke dalam nomor halaman, apa yang harus saya ubah? VBA saat ini hanya memungkinkan saya untuk mengubah satu per satu.
Komentar ini diminimalkan oleh moderator di situs
Bolehkah saya tahu bagaimana saya harus memodifikasi VBA di atas yang memungkinkan saya menjalankan ini ke rentang sel pada buku kerja dan dengan 1 tombol pintas untuk menerapkan semua sel yang dipilih?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL