çift sayma

[enderado]

ekteki örnek tablodaki tek ve çift sayıların ayrı ayrı toplamlarını alabileceğimiz bir fonk veya formül var mıdır? yani kaç adet tek sayı kaç adet çift sayı var

 

[Orion1]

Dosyanız ekte.
Sizin için bir ktf hazırladım.Kullanılışıdosyada anlattım.

Function tekcift(alan As Range, kriter As Byte)
Dim hcr As Range, deg As Double
For Each hcr In alan
    If hcr Mod 2 = kriter Then deg = deg + hcr.Value
Next
tekcift = deg
End Function

 

[Ali]

A1:F23 aralığındaki

Tek sayıların adeti için

=TOPLA.ÇARPIM(MOD(A1:F23;2))

Çift sayıların adeti için

=BAĞ_DEĞ_DOLU_SAY(A1:F23)-TOPLA.ÇARPIM(MOD(A1:F23;2))

Tek sayıların toplamı için

=TOPLA(MOD(A1:F23;2)*(A1:F23))

yazıp formül çubuğunda iken direk ENTER tuşuna basmadan CTRL+SHIFT+ENTER tuşlarına basarak dizi formülü oluşturun.

=TOPLA(A1:F23)-TOPLA(MOD(A1:F23;2)*(A1:F23))

yazıp formül çubuğunda iken direk ENTER tuşuna basmadan CTRL+SHIFT+ENTER tuşlarına basarak dizi formülü oluşturun.


Not:Excel formül başına ve sonuna otomatik olarak { } ayıraçlarını ekleyecektir.

 

[enderado]

Cevap veren Evren ve Ali dosta ayrı ayrı teşekkür ederim. Formüller gerçekten işe yaradı.