Cara Membuat Halaman Header Dan Footer di EXCEL dengan VBA
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.