Hucredeki Kelime sayisi

[mustafaine1]

Bir nevi tiyo gibi bisey olarak gorulebilir bence bu fonksiyon split kullanarak hucredeki kelimeleri saymamiza yada belirledigimiz bir kritere gore kac parca yapabilecegimizi gosteren bir fonksiyon diyelim..

Function Kelime_say(rng As Range) As Integer
    Kelime_say = UBound(Split(rng.Value, [COLOR="Red"]" "[/COLOR]), 1) + 1
End Function

" " bu bolumu istegimize gore duzenleyerek ornegin: "/" yaparak "/"`lardan ayirma ve saydiorma islemini yaptirmis oluruz.. bosluk kullandigimizda ise kelime sayisini bulmus oluruz, ornek dosyayi inceleyiniz..

 

[uzmanamele]

merhaba
ktf nin fonksiyon alternetifi olsun

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

 

[mustafaine1]

guzel bir bakis acisiyla yapilmis bi kez fonksiyona bakinca bi daha unutulmayacak bir yontem tesekkurler.