Karesel Ortalama

[Muhammet Okumuş]

Merhaba arkadaşlar. Telefondan yazdığım için örnek dosya hazirlayamadim. Yardımcı sütun kullanmadan veri aralığının karesel ortalamasını nasıl hesaplayabiliriz. Verilerin A1:A5 aralığında olduğunu varsayalım. Ama bu aralıkta boş hücre veya formül sonucu boş hücre bulunabilir. Görselde nasıl hesaplandığı anlatılıyor. Veri aralığındaki sayıların karesi alınarak toplanacak. Çıkan sonucun aritmetik ortalamasi alinacak. Bu değerin karekökü bize sonucu verecek.

 

[muhasebeciyiz]

Sayın Hocam ;

Sub KareselOrtalama()
Dim toplamKare As Double
Dim adet As Integer
Dim kareOrtalama As Double
Dim i As Integer

For i = 1 To 5
If IsNumeric(Sheets("Sayfa1").Cells(i, 1).Value) Then
toplamKare = toplamKare + Sheets("Sayfa1").Cells(i, 1).Value ^ 2
adet = adet + 1
End If
Next i

If adet > 0 Then
kareOrtalama = Sqr(toplamKare / adet)
Sheets("Sayfa1").Range("B8").Value = kareOrtalama
Else
Sheets("Sayfa1").Range("B8").Value = "Hücrelerde sayısal değer yok."
End If
End Sub

Yukardaki işlem A1-A5 aralıktaki verilerin (3-5-1-9-8) karesel ortalamasını hesaplayıp sonucu B8 hücresine 6 olarak yazmaktadır.
Haddimiz olmadan sadece bilgi olarak görüşünüze sunulmuştur.

 

[Muhammet Okumuş]

Hocam makro çözümünüz için teşekkür ederim. Ama ben formül olarak cevaba gitmek istiyorum.

 

[Haluk]

Dizi formülü;

=SQRT(SUM((A1:A5)^2)/COUNTA(A1:A5))

.

 

[Muhammet Okumuş]

Haluk Bey,
Cevabınız çalışıyor. Sadece hücrelerde formül sonucu boş (="") değer varsa hata veriyor.

 

[52779]

Alternatif olarak
TOPKARE işlevi Excel2013 ve üzerinde bulunduğundan, Excel2013 ve üzeri versiyonlar için

(Aralarda Metin, Boş Hücre ya da formülle gelen ""(BOŞ) değerleri olabilir)

=(TOPKARE(A1:A5)/BAĞ_DEĞ_SAY(A1:A5))^0,5

 

[Muhammet Okumuş]

Çok teşekkür ederim. Aradığım cevap bu.

Alternatif olarak
TOPKARE işlevi Excel2013 ve üzerinde bulunduğundan, Excel2013 ve üzeri versiyonlar için

(Aralarda Metin, Boş Hücre ya da formülle gelen ""(BOŞ) değerleri olabilir)

=(TOPKARE(A1:A5)/BAĞ_DEĞ_SAY(A1:A5))^0,5

 

[Muhammet Okumuş]

Alternatif ,

=TOPLA.ÇARPIM(A1:A5^2)

=EĞER(BAĞ_DEĞ_SAY(A1:A5) > 0; KAREKÖK(TOPLA.ÇARPIM(A1:A5^2) / BAĞ_DEĞ_SAY(A1:A5)); "")

Çok teşekkür ederim. Bu formül de boş hücrelerde hata veriyor.