İçindekiler
Bir Dizedeki Kelime Sayısı
Aşağıdaki VBA işlevi, dize içindeki boşlukları arayarak bir dizedeki sözcük sayısını sayar. MID İşlevini kullanır. SEARCH veya FIND İşlevleriyle benzer bir şeyi başarabilirsiniz.
| 1234567891011121314151617 | Tamsayı Olarak İşlev Number_of_Words(Dize Olarak Metin_Dizesi)'Fonksiyon, bir dizgedeki kelime sayısını sayar'her karaktere bakıp boşluk olup olmadığını görerekSayı_Kelime = 0Dim String_Length As IntegerCurrent_Character'ı Tamsayı Olarak DimString_Length = Len(Text_String)Current_Character = 1 To String_Length içinIf (Mid(Text_String, Current_Character, 1)) = " " O zamanNumber_of_Words = Number_of_Words + 1BitirSonraki Geçerli_KarakterBitiş İşlevi |
Birkaç noktayı belirtmekte fayda var:
• Bu kod bir Çalışma Kitabı Modülüne eklenmelidir - VBA bölmesinden Ekle'ye ve ardından modüle tıklayın
• İşlev, bir Excel çalışma kitabı hücresinden bağımsız değişken olarak açık bir metin veya hücre başvurusu ile çağrılabilir:
A3 = Number_of_Words(“Domuz Köpek Kedi”)
A4 =Sayı_Kelime(D1)
İşlev, bir dizenin uzunluğunu geçerek ve bir sonraki karakterin bir boşluk olup olmadığını görerek çalışır ve eğer öyleyse, dizedeki boşluk sayısına bir tane ekler.
