Cara menggunakan fungsi subtotal di vba (dengan contoh)

Anda bisa menggunakan fungsi SUBTOTAL di Excel untuk menghitung statistik keseluruhan hanya untuk sel yang terlihat pada lembar.

Anda dapat menggunakan sintaks dasar berikut di VBA untuk menggunakan fungsi SUBTOTAL:

 Sub FindSubtotal()
Range(" A16 ") = WorksheetFunction.Subtotal(9, Range(" B2:B11 "))
End Sub

Contoh khusus ini menghitung jumlah nilai dalam sel yang terlihat dalam rentang B2:B11 dan menampilkan hasilnya di sel A16 .

Perhatikan bahwa argumen pertama pada metode Subtotal menentukan metode agregasi yang akan digunakan di mana:

• 1 : SEDANG
• 2 : AKUN
• 3 : AKUN
• 4 : MAKSIMUM
• 5 : MINIMAL
• 6 : PRODUK
• 7 : STDEV
• 8 : STDEVP
• 9 : JUMLAH
• 10 : VAR
• 11 : VARP

Contoh berikut menunjukkan cara menggunakan metode Subtotal di VBA dalam praktiknya.

Contoh: Cara menggunakan subtotal di VBA

Katakanlah kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:

Sekarang misalkan kita menerapkan filter untuk hanya menampilkan baris dengan tim yang sama dengan A atau C:

Kita bisa membuat makro berikut untuk menghitung jumlah sel yang terlihat di kolom poin dan menampilkan hasilnya di sel A16 :

 Sub FindSubtotal()
Range(" A16 ") = WorksheetFunction.Subtotal(9, Range(" B2:B11 "))
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel A16 berisi nilai 168 .

Ini memberitahu kita bahwa jumlah sel yang terlihat di kolom poin adalah 168.

Kita juga dapat mengubah nilai argumen pertama metode Subtotal untuk menghitung metrik yang berbeda.

Misalnya, kita bisa menggunakan nilai 1 untuk menghitung rata-rata sel yang terlihat di kolom poin:

 Sub FindSubtotal()
Range(" A16 ") = WorksheetFunction.Subtotal(1, Range(" B2:B11 "))
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel A16 berisi nilai 24 .

Ini memberitahu kita bahwa rata-rata sel yang terlihat di kolom poin adalah 24.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode Subtotal VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menambahkan nilai dalam suatu rentang
VBA: Cara menghitung nilai rata-rata rentang
VBA: Cara menghitung jumlah baris dalam jangkauan