Bir alandaki sayıları saymak

[bsroztn]

Bir alandaki sayıları saymak için bir fonksiyon yaratmam gerekiyor. Örneğin kolon 1 de pek çok sayı var sıralanmış aşağı doğru.. Bu kolonda kaç tane sayı 1 ile 10 arasındadır (inclusive)

 

[Korhan Ayhan]

Aşağıdaki formülü kullanabilirsiniz.

=TOPLA.ÇARPIM((A1:A100>=1)*(A1:A100<=10))

 

[omerceri]

Aşağıdaki fonksiyonu bir modül sayfasına yapıştırın

Function SayıSay1(Aralık As Range, min As Integer, max As Integer)
For i = min To max
Top = Top + Application.CountIf(Range(Aralık.Address), i)
Next
SayıSay1 = Top
End Function

Verdiğiniz örneği uygulamak için A sütununda başka bir sütunda herhangi bir hücreye

=SayıSay1(A:A;1;10)

yazın ve ENTER tuşuna bsın