Cara Membuat Halaman Header Dan Footer di EXCEL dengan VBA

Cara Membuat Header Dan Footer di EXCEL

Selamat ketemu lagi sahabat rumus excel. Kali ini saya akan membeahas cara membuat halaman header dan footer di file excel dengan syntax VBA.

Pada saat itu, saya ikut membantu KPUD di suatu kabupaten untuk menyusun data pemilih mulai dari data DP4, menjadi DPS dan DPT sampai dengan mencari data ganda. Pengolahan data masih menggunakan rumus excel, masalah itu muncul saat PPS mencentak data pemilih tersebut, ternyata dilembaran cetaknya tidak muncul nomor halaman sehingga mereka merasa kesulitan untuk mengurutkan lembaran kerja DPSnya, lalu mereka meminta untuk dimunculkan nomor halaman dan keterangan DAPILnya supaya saat dikumpulkan di PPK dapat dengan mudah untuk memisahkan masing-masing dapilnya.

Okelah ga usah cerita panjang lebar yang tak ada gunannya, Berikut dibawah ini saya berikan script untuk menambahkan dan membuat halaman header dan footer kedalam data file excel:

Option Explicit
Sub HeaderFooter()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
                 
With ws.PageSetup
    'header sebelah kiri
    .LeftHeader = "Dokumen : Rumus-Excel.Com "
    'header sebelah tengah
    .CenterHeader = "Hal &P/&N"
    'header sebelah kanan
    .RightHeader = Format(Now(), "dd-mmm-yy Pkl h:s")
    'footer sebelah kiri
    .LeftFooter = "Alamat : " & ActiveWorkbook.Path
    'footer sebelah tengah
    .CenterFooter = "Nama File: &F"
    'footer sebelah kanan
    .RightFooter = "Sheet: &A"
End With
Next ws
Set ws = Nothing
Application.ScreenUpdating = True
End Sub

Silakan copas syntax diatas dan rubah sesuai dengan keinginan. Seperti biasanya saya juga menampilkan Video Tutorial nya di bawah ini:



Lihat video di youtube lewat link ini https://youtu.be/n0QR9ix5kZk

Demikian tentang Cara Membuat Halaman Header Dan Footer di EXCEL dengan VBA. Semoga panduan ini bermanfaat.

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel