Vba: aralığın standart sapması nasıl hesaplanır

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

 SubStDevRange ()
    Range(" D2 ") = WorksheetFunction.StDev(Range(" B2:B11 "))
End Sub

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

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

 SubStDevRange ()
    'Create variable to store standard deviation of values
    Dim stdev As Single
    
    'Calculate standard deviation of values in range
    stdev = WorksheetFunction.StDev(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Standard Deviation of Values in Range: " & stdev 
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 standart sapmasını hesaplayın ve sonuçları hücrede görüntüleyin

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

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

 SubStDevRange ()
    Range(" D2 ") = WorksheetFunction.StDev(Range(" B2:B11 "))
End Sub

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

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

Bu bize puan sütunundaki değerlerin standart sapmasının 245 olduğunu söylüyor.

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

Bunun yerine puan sütunundaki değerlerin standart sapması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:

 SubStDevRange ()
    'Create variable to store standard deviation of values
    Dim stdev As Single
    
    'Calculate standard deviation of values in range
    stdev = WorksheetFunction.StDev(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Standard Deviation of Values in Range: " & stdev 
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 standart sapmasının 11,937 olduğunu söylüyor.

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

Ancak bunun yerine tüm sütundaki değerlerin standart sapmasını hesaplamak istiyorsanız bunun yerine B:B yazabilirsiniz.

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

Not : StDev VBA yönteminin tam belgelerini 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: 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