Vba: bir aralıktaki değerler nasıl eklenir?

VBA’yı kullanarak bir aralıktaki değerlerin toplamını hesaplamak için aşağıdaki temel sözdizimini kullanabilirsiniz:

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

Bu özel örnek, B2:B11 aralığındaki değerlerin toplamını hesaplar ve sonucu D2 hücresine atar.

Bunun yerine değerlerin toplamını bir mesaj kutusunda görüntülemek istiyorsanız aşağıdaki sözdizimini kullanabilirsiniz:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

Aşağıdaki örnekler, çeşitli basketbol oyuncuları hakkında bilgiler içeren Excel’deki aşağıdaki veri kümesiyle bu yöntemlerin her birinin pratikte nasıl kullanılacağını göstermektedir:

Örnek 1: VBA’yı kullanarak aralığın toplamını hesaplayın ve sonuçları hücrede görüntüleyin

Diyelim ki puan sütunundaki değerlerin toplamını hesaplamak ve sonuçları belirli bir hücrede görüntülemek istiyoruz.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

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

D2 hücresinin 245 değerini içerdiğine dikkat edin.

Bu bize puan sütunundaki değerlerin toplamının 245 olduğunu söyler.

Örnek 2: VBA’yı kullanarak aralığın toplamını hesaplayın ve sonuçları mesaj kutusunda görüntüleyin

Bunun yerine puan sütunundaki değerlerin toplamını hesaplamak ve sonuçları bir mesaj kutusunda görüntülemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

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

Mesaj kutusu bize B2:B11 aralığındaki değerlerin toplamının 245 olduğunu söylüyor.

Bu örnekte B2:B11 aralığındaki değerlerin toplamını hesapladığımızı unutmayın.

Ancak bunun yerine bir sütunun tamamındaki değerlerin toplamını hesaplamak istiyorsanız bunun yerine B:B yazabilirsiniz.

Bu, B sütunundaki her hücre için değerlerin toplamını hesaplayacaktır.

Ek kaynaklar

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

VBA: Aralığın ortalama değeri nasıl hesaplanır
VBA: Aralıktaki satır sayısı nasıl sayılır?
VBA: ETOPLA ve ETOPLA işlevleri nasıl yazılır