Hücreleri guruplandırma ve otomatık ortalama

Katılım
5 Eylül 2010
Mesajlar
8
Excel Vers. ve Dili
türkçe
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Örnek bir dosya ekleyin, daha çabuk cevap bulabilirsiniz.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Standat Sapma için; hangi Standat Sapma formülünü kullanacaksınız ? Belirtiniz.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Bu şekilde deneyin.
Kod:
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
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.
 
Katılım
5 Eylül 2010
Mesajlar
8
Excel Vers. ve Dili
türkçe
Makroyu calıstırdım yalnız bazı sorunlarla karsılastım yardımcı olursanız sevınırım
 

Ekli dosyalar

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Tablonuzu, baştan bu şekilde hazırlasaydınız, boşuna zaman harcamazdık.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Kod:
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
 
Katılım
5 Eylül 2010
Mesajlar
8
Excel Vers. ve Dili
türkçe
Kusura bakmayın, haklısınız, önceki şekliyle çözülebilir diye düşünmüştüm.
 
Katılım
5 Eylül 2010
Mesajlar
8
Excel Vers. ve Dili
türkçe
Çok teşekkürler ellerinize sağlık gerçekden beni çok büyük bir dertden kurtardınız.
 
Üst