farklı değer saydırma komutu

[incsoft]

Arkadaşlar sayfamda bazı yerlerde farklı değerleri saydırmak için bir komut aramaktayım ancak excel'de bulamadım. Farklı değerleri saydırmak için bir komut varmıdır ya da başka ne şekilde yapabilirim. BAĞ_DEĞ_DOLU_SAY'a ek komutlarla olabilirmi acaba?

Ekteki dosyamda da açıklamaya çalıştım.

Teşekkürler.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki formül istediğiniz sonucu üretir.
.

=TOPLA.ÇARPIM(1/EĞERSAY(A1:A16;A1:A16))

 

[Seyit Tiken]

3'leri toplar.

=ETOPLA(A1:A16;"3")

3'leri sayar.

=EĞERSAY(A1:A16;"3")

 

[incsoft]

Merhaba.

Aşağıdaki formül istediğiniz sonucu üretir.
.

=TOPLA.ÇARPIM(1/EĞERSAY(A1:A16;A1:A16))

Teşekkürler arkadaşım. Ancak bence bunun excel'de FARKLIOLANISAY gibisinden bir formül haline getirtilmesi gerekli. Mesela benim kullanacağım alan karışık yerler her seferinde bu formülü oraya uyarlamak çok zaman alacaktır. Bunu öneri olarak bildireceğim microsoft'a

 

[Ömer BARAN]

Formülün nasıl hesaplama yaptığının anlaşılması için;
formülün uygulandığı hücre seçiliyken, formül çubuğunun hemen solundaki f(x) düğmesine fareyle tıklarsanız,
"Fonksiyon Bağımsız Değişkenleri" başlıklı küçük ekran açılır.

Orada Dizi1'in karşısındaki alanda hesaplamanın nasıl yapıldığı görülebilir.
Gördüğünüz değerlerin TOPLAMı işlemin sonucudur.
.

 

[Merhum İdris SERDAR]

Teşekkürler arkadaşım. Ancak bence bunun excel'de FARKLIOLANISAY gibisinden bir formül haline getirtilmesi gerekli. Mesela benim kullanacağım alan karışık yerler her seferinde bu formülü oraya uyarlamak çok zaman alacaktır. Bunu öneri olarak bildireceğim microsoft'a

.

Siz yine bildirin.

UDF-KTF (Kullanıcı Tanımlı Fonksiyon) kullanabilirsiniz.

Kodları:

Function farklisay(aln As Variant) As Variant
      
Dim den As New Collection
Dim deg As Variant

aln = aln.Value

On Error Resume Next
For Each deg In aln
    
    If Len(deg) > 0 Then den.Add deg, CStr(deg)

Next deg

On Error GoTo 0

farklisay = den.Count

End Function

Kullanımı:

=farklisay(A1:Z1000)

gibi.


.

 

[incsoft]

Öncelikle teşekkürler hocam. Maalesef #AD? hatası veriyor. Eğer mümkünse bir dosyaya adapte ederek gönderebilirmisiniz?

Teşekkürler.

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

.