Vba: cara menghitung jumlah lembar dalam buku kerja

Anda bisa menggunakan metode berikut ini untuk menghitung jumlah lembar dalam buku kerja di Excel:

Metode 1: Hitung jumlah lembar di buku kerja yang aktif

 SubCountSheetsActive ()
   Range(" A1 ") = ThisWorkbook.Worksheets.Count
End Sub

Metode 2: hitung jumlah lembar dalam buku kerja yang terbuka

 SubCountSheetsOpen ()
    Range(" A1 ") = Workbooks(" my_data.xlsx ").Sheets.Count
End Sub

Metode 3: hitung jumlah lembaran dalam pengikat tertutup

 SubCountSheetsClosed ()
    Application.DisplayAlerts = False
    Set wb = Workbooks.Open(" C:\Users\Bob\Desktop\my_data.xlsx ")
    
    'count sheets in closed workbook and display count in cell A1 of current workbook
    ThisWorkbook.Sheets(1).Range(" A1 ").Value = wb.Sheets.Count

    wb.Close SaveChanges:=True
    Application.DisplayAlerts = True
End Sub

Contoh berikut menunjukkan cara menggunakan masing-masing metode ini dalam praktik.

Contoh 1: Hitung jumlah lembar dalam buku kerja yang aktif

Katakanlah kita membuka buku kerja Excel berikut dan kita melihatnya:

Kita bisa menggunakan makro berikut untuk menghitung jumlah total lembar di buku kerja ini dan menampilkan nomor di sel A1:

 SubCountSheetsActive ()
   Range(" A1 ") = ThisWorkbook.Worksheets.Count
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel A1 berisi nilai 6 .

Ini memberitahu kita bahwa ada 6 lembar di buku kerja ini.

Contoh 2: Hitung jumlah lembar dalam binder terbuka

Katakanlah kita memiliki buku kerja Excel bernama my_data.xlsx dengan dua lembar terbuka tetapi saat ini kita tidak melihatnya.

Kita bisa menggunakan makro berikut untuk menghitung jumlah total lembar dalam buku kerja ini dan menampilkan nomor di sel A1 buku kerja yang aktif:

 SubCountSheetsOpen ()
    Range(" A1 ") = Workbooks(" my_data.xlsx ").Sheets.Count
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel A1 berisi nilai 2 .

Ini memberitahu kita bahwa ada 2 lembar di buku kerja terbuka bernama my_data.xlsx .

Contoh 3: Menghitung jumlah lembar dalam binder tertutup

Katakanlah kita memiliki buku kerja Excel bernama my_data.xlsx dengan dua lembar yang saat ini tidak terbuka tetapi terletak di lokasi file berikut:

C:\Users\Bob\Desktop\my_data.xlsx

Kita bisa menggunakan makro berikut untuk menghitung jumlah total lembar dalam buku kerja ini dan menampilkan nomor di sel A1 lembar pertama buku kerja yang aktif:

 SubCountSheetsClosed ()
    Application.DisplayAlerts = False
    Set wb = Workbooks.Open(" C:\Users\Bob\Desktop\my_data.xlsx ")
    
    'count sheets in closed workbook and display count in cell A1 of current workbook
    ThisWorkbook.Sheets(1).Range(" A1 ").Value = wb.Sheets.Count

    wb.Close SaveChanges:=True
    Application.DisplayAlerts = True
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel A1 berisi nilai 2 .

Ini memberitahu kita bahwa ada 2 lembar di buku kerja tertutup yang disebut my_data.xlsx .

Catatan : Pada kodenya, Application.DisplayAlerts=False memberitahu VBA untuk tidak menampilkan proses membuka buku kerja yang tertutup, menghitung lembar, dan kemudian menutup buku kerja.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menghitung sel dengan teks tertentu
VBA: Cara menulis fungsi COUNTIF dan COUNTIFS