HÜCREDEKİ SAYILARIN SAYISINI BULMAK

[KMLZDMR]

Merhaba,
A1 hücresinde 1 ila 31 arasındaki sayılar olmak kaydı ile virgülle ayrılmış rakamların sayısını bulan formül gerekli..
Örnek1- A1 hücresinde 7,15,3,27 varsa B1 hücresinde sonuç olarak: 4 getirmeli
Örnek2- A1 hücresinde 7 varsa B1 hücresinde sonuç olarak: 1 getirmeli
Örnek3- A1 hücresinde 10, 8, 3,31, 23, varsa B1 hücresinde sonuç olarak: 5 getirmeli
dikkat edilecek hususlar:
1) A1 hücresinde tek rakam varsa (7) sonunda virgül (,) yok
2) A1 hücresinde virgülle ayrılmış birden çok rakam var ancak son rakamın sonunda virgül YOK şekilde ( 7,15,3,27 )
3) A1 hücresinde virgülle ayrılmış birden çok rakam var ama son rakamın sonunda virgül VAR şekilde ( 10, 8, 3,31, 23, )
Örnek 3 de görüldüğü üzere rakamlar arasına konulan virgülden sonra bazen boşluk var bazen de boşluk yok formül buna göre dikkat etmeli.

 

[Haluk]

=LEN(IF(RIGHT(TRIM(A1);1)=",";LEFT(A1;LEN(A1)-1);A1))-LEN(SUBSTITUTE(A1;",";""))+1

.

 

[Murat OSMA]

Alternatif; =UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;",";""))+1

 

[Haluk]

Murat Bey, verinin sonunda "," varsa sizin formül hatalı sonuç verir.

.

 

[KMLZDMR]

sayın haluk aynen öyle oldu..
5,7, yazınca 3 sonuç verdi.

 

[KMLZDMR]

Sayın Haluk, formül oldu..
Sayın Murat Osma sizin formülde verinin sonunda "," olunca onu da sayıyor. Düzeltmeniz mümkün mü?
teşekkür ederim.

 

[alicimri]

Sonunda, başında veya yanana (",,") birden fazla virgül olsa dahi KTF ile çözüm aşağıda.

Function sayi(huc As Range) As Integer
For i = 0 To UBound(Split(huc, ","))
If IsNumeric(Split(huc, ",")(i)) Then
sayi = sayi + 1
End If
Next
End Function