Tartalomjegyzék
Számolja meg a karakterláncban lévő szavak számát
A következő VBA függvény megszámolja a karakterláncban lévő szavak számát a karakterláncon belüli szóközök keresésével. A MID funkciót használja. Valami hasonlót elérhet a KERESÉS vagy a FIND funkciókkal.
| 1234567891011121314151617 | Függvény száma_szavak (szöveg_szöveg karakterláncként) egész számként'A függvény megszámolja a karakterláncban lévő szavak számát- minden egyes karaktert megnézve, hogy szóköz -e vagy semSzavak száma = 0Halvány karakterlánc_hossz egészkéntHalvány Aktuális_karakter egészkéntString_Length = Len (Text_String)For Current_Character = 1 String_LengthHa (Közép (Szöveg_String, Aktuális_karakter, 1)) = "" AkkorSzavak száma = Szavak száma + 1Vége HaKövetkező Aktuális_karakterVége funkció |
Érdemes megjegyezni néhány pontot:
• Ezt a kódot be kell illeszteni a munkafüzet modulba - a VBA ablaktáblán kattintson a Beszúrás, majd a modul elemre
• A funkció meghívható egy Excel munkafüzet cellából, akár explicit szöveggel, akár cellahivatkozással argumentumként:
A3 = Szavak száma („Disznókutya macska”)
A4 = Szavak száma (D1)
A függvény úgy működik, hogy átlépi a karakterlánc hosszát, és megnézi, hogy a következő karakter szóköz -e, és ha igen, akkor egyet hozzáad a karakterlánc szóközéhez.
