Vba: aralığın ortalama değeri nasıl hesaplanır

VBA’yı kullanarak Excel’de bir aralığın ortalama değerini hesaplamak için aşağıdaki temel sözdizimini kullanabilirsiniz:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

Bu özel örnek, B2:B12 aralığındaki ortalama değeri hesaplar ve sonucu E2 hücresine atar.

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

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
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 ortalamasını hesaplayın ve sonuçları hücrede görüntüleyin

Puan sütunundaki ortalama değeri hesaplamak ve sonuçları belirli bir hücrede görüntülemek istediğimizi varsayalım.

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

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

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

E2 hücresinin 21.27273 değerini içerdiğine dikkat edin.

Bu bize puan sütunundaki ortalama değerin 21,27273 olduğunu söyler.

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

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

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

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

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

Mesaj kutusu bize B2:B12 aralığındaki ortalama değerin 21.27273 olduğunu bildirir.

Bu örnekte B2:B12 aralığındaki ortalama değeri hesapladığımızı unutmayın.

Ancak bunun yerine tüm sütundaki ortalama değeri hesaplamak istiyorsanız bunun yerine B:B yazabilirsiniz.

Bu, B sütunundaki her hücre için ortalama değeri 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: EĞER ORTALAMA ve EĞER ORTALAMA işlevleri nasıl yazılır
VBA: ETOPLA ve ETOPLA işlevleri nasıl yazılır
VBA: COUNTIF ve COUNTIFS işlevleri nasıl yazılır?