Sadržaj
Broji broj riječi u nizu
Sljedeća VBA funkcija broji broj riječi u nizu pretraživanjem razmaka unutar niza. Koristi funkciju MID. Slično možete postići i pomoću funkcija SEARCH ili FIND.
| 1234567891011121314151617 | Broj funkcije_ riječi (Text_String As String) Kao cijeli broj'Funkcija broji broj riječi u nizu'gledajući svaki lik i gledajući je li to razmak ili neBroj_reči = 0Dim String_Length kao cijeli brojPriguši trenutni_karakter kao cijeli brojString_Length = Len (Text_String)Za Current_Character = 1 Za String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" ZatimBroj_reči = Broj_reči + 1Završi akoSljedeći trenutni_karakterZavršna funkcija |
Vrijedi napomenuti nekoliko točaka:
• Ovaj kôd morate umetnuti u modul radne knjige - u oknu VBA kliknite Umetni, a zatim modul
• Funkcija se može pozvati iz ćelije radne knjige programa Excel s eksplicitnim tekstom ili referencom ćelije kao argument:
A3 = Broj_ riječi ("Mačka svinjski pas")
A4 = Broj_ riječi (D1)
Funkcija radi tako da prelazi duljinu niza i vidi je li sljedeći znak razmak, a ako je tako dodaje jedan broju razmaka u nizu.
