Vba'da sumproduct nasıl kullanılır (örnek ile)

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

 SubSumProduct ()
Range(" E2 ") = WorksheetFunction.SumProduct(Range(" B2:B11 "), Range(" C2:C11 "))
End Sub

Bu özel örnek, B2:B11 ve C2:C11 aralığındaki değerlerin çarpımının toplamını hesaplayacak ve sonucu E2 hücresine döndürecektir.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

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

Bir bakkalda çeşitli meyvelerin satışına ilişkin bilgileri içeren aşağıdaki veri setine sahip olduğumuzu varsayalım:

Mağazanın toplam gelirini, fiyatı birim sayısıyla çarpıp toplamı alarak hesaplamak istediğimizi varsayalım.

Bunu yapmak için VBA SumProduct yöntemini kullanabiliriz:

 SubSumProduct ()
Range(" E2 ") = WorksheetFunction.SumProduct(Range(" B2:B11 "), Range(" C2:C11 "))
End Sub

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

B2:B11 ile C2:C11 aralıkları arasındaki değerlerin çarpımının toplamı 139’dur .

Bu değer makroda belirttiğimiz gibi E2 hücresinde görüntülenir.

İki aralık arasındaki çarpımların toplamını manuel olarak hesaplayarak bunun doğru olduğunu doğrulayabiliriz:

Ürünlerin toplamı: (4*1) + (3*5) + (3*4) + (2*7) + (2*3) + (5*5) + (3*5) + (2*6 ) + (5*6) + (2*3) = 139 .

Bu, VBA SumProduct yöntemiyle hesaplanan değere karşılık gelir.

Not : VBA SumProduct 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?