Hücreleri guruplandırma ve otomatık ortalama

[a-s-i]

arkadaşlar benım sorunum farklı sayıda sıralı datalarım var ve bu data sayım sabıt degıl bu datalarımı 10 esıt parcaya bolup her bır kısmın ortalamasını ve standart sapma hesaplamak istemekdeyım nasıl yapacagım hakkında bılgı verırsenız sevınırm
örnek olarak
1.data
1
2
5
7
1
6
3
5
bu 8 datanın örnegın 2 ye bolup 4 gurup olusturacaz bu 4 grupda
1. grup 1,2
2.grup 5,7
...
seklınde olacak ve bu sayıların ortalamasını ve standart sapmasını otomatık hesaplayacak

 

[hamitcan]

Örnek bir dosya ekleyin, daha çabuk cevap bulabilirsiniz.

 

[a-s-i]

örnek dosya

 

[hamitcan]

Standat Sapma için; hangi Standat Sapma formülünü kullanacaksınız ? Belirtiniz.

 

[a-s-i]

STDSAPMA ile hesaplanan

 

[hamitcan]

Bu şekilde deneyin.

Sub OrtalamaVeStandartSapma()
For i = 6 To 51 Step 3
Range("a" & i).Insert shift:=xlDown
Cells(i, 1).Formula = "=AVERAGE(A" & i - 3 & ":" & "A" & i - 1 & ")"
Cells(i, 1).Interior.ColorIndex = xlNone
Cells(i, 2) = "Ort"
i = i + 1
Range("a" & i).Insert shift:=xlDown
Cells(i, 1).Formula = "=STDEV(A" & i - 4 & ":" & "A" & i - 2 & ")"
Cells(i, 1).Interior.ColorIndex = xlNone
Cells(i, 2) = "Std"
i = i + 1
Next

For i = 8 To 71 Step 5
Range("c" & i).Insert shift:=xlDown
Cells(i, 3).Formula = "=AVERAGE(C" & i - 5 & ":" & "C" & i - 1 & ")"
Cells(i, 3).Interior.ColorIndex = xlNone
Cells(i, 4) = "Ort"
 i = i + 1
Range("c" & i).Insert shift:=xlDown
Cells(i, 3).Formula = "=STDEV(C" & i - 6 & ":" & "C" & i - 2 & ")"
Cells(i, 3).Interior.ColorIndex = xlNone
Cells(i, 4) = "Std"
 i = i + 1
Next
End Sub

 

[hamitcan]

Vba içinde bir module içine yerleştirip çalıştırın. Eğer kod yazma konusunda bilginiz yok ise Excel Dershanesi başlığı altındaki konuları inceleyin.

 

[a-s-i]

Makroyu calıstırdım yalnız bazı sorunlarla karsılastım yardımcı olursanız sevınırım

 

[hamitcan]

Tablonuzu, baştan bu şekilde hazırlasaydınız, boşuna zaman harcamazdık.

 

[hamitcan]

Sub OrtalamaVeStandartSapma()
[e3:h5000].ClearContents
Saat1 = InputBox("1.Saati Girin")
KacaBolunecek1 = InputBox("1.Saat Kaça Bölünecek")
Saat2 = InputBox("2.Saati Girin")
KacaBolunecek2 = InputBox("2.Saat Kaça Bölünecek")
c = 2

For i = KacaBolunecek1 + 1 To Val(Saat1) + Val(KacaBolunecek1) Step KacaBolunecek1
c = c + 1
Cells(c, "e").Formula = "=STDEV(A" & i - KacaBolunecek1 + 1 & ":" & "A" & i & ")"
Cells(c, "f").Formula = "=AVERAGE(A" & i - KacaBolunecek1 + 1 & ":" & "A" & i & ")"
Next
d = 2
For i = KacaBolunecek2 + 1 To Val(Saat2) + Val(KacaBolunecek2) Step KacaBolunecek2
d = d + 1
Cells(d, "g").Formula = "=STDEV(B" & i - KacaBolunecek2 + 1 & ":" & "B" & i & ")"
Cells(d, "h").Formula = "=AVERAGE(B" & i - KacaBolunecek2 + 1 & ":" & "B" & i & ")"
Next
MsgBox "Bitti."
End Sub

 

[a-s-i]

Kusura bakmayın, haklısınız, önceki şekliyle çözülebilir diye düşünmüştüm.

 

[a-s-i]

Çok teşekkürler ellerinize sağlık gerçekden beni çok büyük bir dertden kurtardınız.