Tek ve Çift Sayıların Toplamı, ortalamaları ve kaç tane oldukları

[umut343434]

57
13
12
9
14
88
98
75
16
68

Arkadaşlar, örneğin yukarıda verilen sayılar içinden ; tek sayıların adedini, toplamını, ortalamasını aynı şekilde çift sayıların adedini , toplamını ve ortalamasını excel de nasıl bulurum. Formülleri gönderirseniz müteşekkir kalırım.
Saygılar

 

[hamitcan]

Kullanıcı tanımlı bir fonksiyon yaptım ama, işinizi görür mü bilmem?
Çift sayılar için;

Function ciftleri_say_topla_ort(aralik As Range, secimno As Single)
For Each hucre In aralik
If secimno = 1 Then
    If WorksheetFunction.IsEven(hucre) Then
    say = say + 1
    sonuc = say
    End If
ElseIf secimno = 2 Then
    If WorksheetFunction.IsEven(hucre) Then
    topla = hucre.Value + topla
    sonuc = topla
    End If
ElseIf secimno = 3 Then
    If WorksheetFunction.IsEven(hucre) Then
     topla = hucre.Value + topla
     say = say + 1
     ort = topla / say
     sonuc = ort
     End If
Else: sonuc = "Çift sayıya rastlanmadı"
End If
Next
ciftleri_say_topla_ort = sonuc
End Function

Tek sayılar için;

Function tekleri_say_topla_ort(aralik As Range, secimno As Single)
For Each hucre In aralik
If secimno = 1 Then
    If WorksheetFunction.IsOdd(hucre) Then
    say = say + 1
    sonuc = say
    End If
ElseIf secimno = 2 Then
    If WorksheetFunction.IsOdd(hucre) Then
    topla = hucre.Value + topla
    sonuc = topla
    End If
ElseIf secimno = 3 Then
    If WorksheetFunction.IsOdd(hucre) Then
     topla = hucre.Value + topla
     say = say + 1
     ort = topla / say
     sonuc = ort
     End If
Else: sonuc = "Tek sayıya rastlanmadı"
End If
Next
tekleri_say_topla_ort = sonuc
End Function

 

[umut343434]

Excel

Kullanıcı tanımlı bir fonksiyon yaptım ama, işinizi görür mü bilmem?


Hocam teşekkürler ama excel formüllerini istiyorum...

 

[AS3434]

Fonksiyonla yapılmış bir örnek

 

[muygun]

Slm.
Bir örnekte benden

 

[Ali]

Başka alternatif

Tek sayıların ortalaması için

=ORTALAMA(EĞER((MOD($A$1:$A$10;2)=1);$A$1:$A$10))

yazıp CTRL+SHIFT+ENTER tuşları ile dizi formülü oluşturulur.


Tek sayıların toplamı için

=TOPLA(EĞER((MOD($A$1:$A$10;2)=1);$A$1:$A$10))

yazıp CTRL+SHIFT+ENTER tuşları ile dizi formülü oluşturulur.


Tek sayıların adeti için

=BAĞ_DEĞ_SAY(EĞER((MOD($A$1:$A$10;2)=1);$A$1:$A$10))

yazıp CTRL+SHIFT+ENTER tuşları ile dizi formülü oluşturulur.


Çift sayıların ortalaması için

=ORTALAMA(EĞER((MOD($A$1:$A$10;2)=0);$A$1:$A$10))

yazıp CTRL+SHIFT+ENTER tuşları ile dizi formülü oluşturulur.


Çift sayıların toplamı için

=TOPLA(EĞER((MOD($A$1:$A$10;2)=0);$A$1:$A$10))

yazıp CTRL+SHIFT+ENTER tuşları ile dizi formülü oluşturulur.


Çift sayıların adeti için

=BAĞ_DEĞ_SAY(EĞER((MOD($A$1:$A$10;2)=0);$A$1:$A$10))

Örnek ektedir.
yazıp CTRL+SHIFT+ENTER tuşları ile dizi formülü oluşturulur.

 

[umut343434]

Ya hocam süpperrsiniz ya. ne dim ben size sağ olun... Teşekkürler.