Numărați numărul de cuvinte dintr-un șir
Următoarea funcție VBA contorizează numărul de cuvinte dintr-un șir prin căutarea spațiilor din șir. Folosește funcția MID. Ați putea realiza ceva similar cu funcțiile SEARCH sau FIND.
| 1234567891011121314151617 | Funcția Number_of_Words (Text_String As String) Ca întreg„Funcția contează numărul de cuvinte dintr-un șir'privind fiecare personaj și văzând dacă este sau nu un spațiuNumber_of_Words = 0Dim String_Length Ca întregAtenuați caracterul curent ca întregString_Length = Len (Text_String)Pentru Current_Character = 1 To String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" AtunciNumber_of_Words = Number_of_Words + 1End IfUrmătorul Caracter_CurentFuncția de sfârșit |
Merită menționat câteva puncte:
• Acest cod trebuie inserat într-un modul de registru de lucru - din panoul VBA, faceți clic pe Insert și apoi pe modul
• Funcția poate fi apelată dintr-o celulă din registrul de lucru Excel fie cu un text explicit, fie cu o referință de celulă ca argument:
A3 = Number_of_Words („Pisică de câine de porc”)
A4 = Număr_de_Cuvinte (D1)
Funcția funcționează parcurgând lungimea unui șir și văzând dacă următorul caracter este un spațiu și dacă da, adaugă unul la numărul de spații din șir.
