Spočítajte počet slov v reťazci
Nasledujúca funkcia VBA počíta počet slov v reťazci vyhľadaním medzier v reťazci. Využíva funkciu MID. Niečo podobné môžete dosiahnuť pomocou funkcií VYHĽADÁVAŤ alebo NÁJSŤ.
| 1234567891011121314151617 | Funkcia Číslo_slov (Text_String ako reťazec) ako celé číslo'Funkcia počíta počet slov v reťazci“pri pohľade na každú postavu a zistení, či je to medzera alebo nieNumber_of_Words = 0Dim String_Length As IntegerDim Current_Character ako celé čísloString_Length = Len (Text_String)Pre Current_Character = 1 až String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" ThenNumber_of_Words = Number_of_Words + 1Koniec AkNasledujúci Current_CharacterKoncová funkcia |
Stojí za zmienku niekoľko bodov:
• Tento kód je potrebné vložiť do modulu zošita - na table VBA kliknite na Vložiť a potom na modul
• Funkciu je možné zavolať z bunky zošita programu Excel, a to buď ako argument ako explicitný text alebo odkaz na bunku:
A3 = Number_of_Words („Mačka ošípaných“)
A4 = Počet_wordov (D1)
Funkcia funguje tak, že prejde dĺžku reťazca a zistí, či je ďalším znakom medzera, a ak áno, pridá ho k počtu medzier v reťazci.
