contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
2 Eki 2012

Cumledeki Kelime Sayısı

//
Yorumlar0
/

Ekran resminden bu sefer anlamamak mumkun degil arkadaslar 🙂

Cumlemizin sonundaki “var” kelimesindeki “V” harfinin neden buyuk oldugu konusunda fikrim yok 🙂

Konuda cok fazla anlatacagim birsey olmadiginda geyige vuruyorum ama basitce yinede aciklayayim; bir cumlede kac adet kelime oldugu uzerine bir calisma paylasacagiz.

=IF(LEN(TRIM(A2))>0,LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))+1,0)

Seklinde bir formulumuz var ama formul aslinda gorundugunden cok daha kisa ve basit. Oncelikle “>0” olan if yapisiniz formulden atarak bakmanizi rica ediyorum, hani hucre bossa 1 yazmamasi icin yazilmis kismi formulumuzun.

LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ","")

Burada daha rahat goreceksinizki yaptigimiz tum islem A2 hucresinin harf sayisindan bosluklari yok edilmis A2 hucresi arasindaki vfarkin bir fazlasi, baska bir deyisle cumledeki bosluk sayisi + 1 islemi cumlemizdeki kelime sayisini vermekte.

Sitemizde alt bolumde paylasacagim fakat cumledeki kelimeleri tek tek mesaj veren bir vba cozumumuz ile kelime icerisindeki harfleri veren birer cozumumuz vardi, bunlardaki gibi vba ile nasil cozeriz seklinde konulari baglamak ve konuya birazda vb acisindan bakis kazandirmak istedim.

Sub Kelime_saydirma()
Dim Deger As String
Dim Sayac As Integer
Dim Ayirac As Variant
Deger = [a2].Value
Ayirac = Split(Deger, " ")
'For Sayac = 0 To UBound(Ayirac)
'MsgBox Ayirac(Sayac)
MsgBox UBound(Ayirac) + 1
'Next
End Sub

Ornek dosyada her iki ornegide bulabilirsiniz. Ayrica bahsettigim iki ornek calisanin linkleri bir alt satirdalar.

VBA Kelimedeki Harfler

VBA Ubound Split Cümledeki Kelimeler

Cumledeki Kelime Sayısı

Cevap bırakın


5 + 3 =