Vba'da alt toplam i̇şlevi nasıl kullanılır (örneklerle)

Bir sayfadaki yalnızca görünür hücrelere ilişkin genel istatistikleri hesaplamak için Excel’deki ALTTOPLAM işlevini kullanabilirsiniz.

ALTTOPLAM işlevini kullanmak için VBA’da aşağıdaki temel sözdizimini kullanabilirsiniz:

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

Bu özel örnek, B2:B11 aralığındaki görünür hücrelerdeki değerlerin toplamını hesaplar ve sonucu A16 hücresinde görüntüler.

Subtotal yönteminin ilk bağımsız değişkeninin, aşağıdaki durumlarda kullanılacak toplama yöntemini belirttiğini unutmayın:

• 1 : ORTA
• 2 : HESAP
• 3 : HESAP
• 4 : MAKSİMUM
• 5 : MİNİMUM
• 6 : ÜRÜN
• 7 : STDSAPMA
• 8 : STDEVP
• 9 : TOPLA
• 10 : VAR
• 11 : VARP

Aşağıdaki örnekte VBA’da Subtotal yönteminin pratikte nasıl kullanılacağı gösterilmektedir.

Örnek: VBA’da alt toplam nasıl kullanılır?

Diyelim ki Excel’de çeşitli basketbol oyuncuları hakkında bilgiler içeren aşağıdaki veri kümesine sahibiz:

Şimdi yalnızca takımın A veya C’ye eşit olduğu satırları gösterecek bir filtre uyguladığımızı varsayalım:

Puan sütununda görünen hücrelerin toplamını hesaplamak ve sonuçları A16 hücresinde görüntülemek için aşağıdaki makroyu oluşturabiliriz:

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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

A16 hücresinin 168 değerini içerdiğine dikkat edin.

Bu bize puan sütununda görünen hücrelerin toplamının 168 olduğunu söyler.

Farklı bir metrik hesaplamak için Subtotal yönteminin ilk argümanının değerini de değiştirebiliriz.

Örneğin, puan sütunundaki görünür hücrelerin ortalamasını hesaplamak için 1 değerini kullanabiliriz:

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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

A16 hücresinin 24 değerini içerdiğine dikkat edin.

Bu bize puan sütununda görünen hücrelerin ortalamasının 24 olduğunu söyler.

Not : VBA Alt Toplam yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Bir aralıktaki değerler nasıl eklenir?
VBA: Aralığın ortalama değeri nasıl hesaplanır
VBA: Aralıktaki satır sayısı nasıl sayılır?