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

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:

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:

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:

5. Sekarang, Anda dapat mengatur ulang kembali ke tampilan normal dengan mengklik Liha > 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:

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:

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:

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:

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.

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:

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:

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:

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