Menghitung Halaman pada Workbook dan Worksheet Excel

Trik menghitung halaman pada Workbook atau Worksheet Excel menggunakan VB.Net agaknya jarang dilakukan dikarenakan sudah adanya fitur Macro yang ada pada Microsoft Office itu sendiri. Lebih hematnya, trik berikut digunakan untuk menghitung total halaman pada Sheet Excel maupun Workbook (isi keseluruhan file excel) untuk mengetahui informasi halaman untuk keperluan perhitungan, informasi data, dan lain sebagainya dengan menggunakan aplikasi Visual Studio .NET.

  1. Buka file Excel yang ingin dihitung jumlah halamannya.
  2. Klik tab Developer, lalu klik icon Visual Basic. Jika tab Developer belum aktif, maka kamu perlu mengaktifkan terlebih dahulu disini. Baca : Cara Mengaktifkan Mode Developer Microsoft Office
  3. Buatlah sebuah Module dengan nama TotalPages lalu masukkan kode dibawah ini didalamnya. Script selengkapnya dapat dilihat dibawah :
    4. Sub TotalPages()
Dim L As Long
L = ThisWorkbook.Worksheets.Count

Dim Total As Integer
Dim WS As Worksheet

With ThisWorkbook.Worksheets
    Set WS = .Item(.Count)
    Do Until WS Is Nothing
        Total = Total + WS.PageSetup.Pages.Count
        Set WS = WS.Previous
    Loop
    MsgBox Total
End With
End Sub

  4. Klik Save atau Ctrl + S
  5. Jalankan sub dengan menekan Alt + F8

  6. Untuk menyimpan perintah Macro dengan permanen maka kamu harus menyimpannya dengan ekstensi .XLSM atau Excel Macro - Enabled Workbook(*.xlsm)

Baca Juga :

Older Post
Newer Post