Suskaičiuokite eilutėje esančių žodžių skaičių
Ši VBA funkcija skaičiuoja eilutės žodžių skaičių, ieškodamas tarpų eilutėje. Jis naudoja MID funkciją. Kažką panašaus galite pasiekti naudodami funkcijas SEARCH arba FIND.
| 1234567891011121314151617 | Funkcija Skaičių_žodžiai (teksto_eilė kaip eilutė) kaip sveikasis skaičius„Funkcija skaičiuoja eilutės žodžių skaičių„žiūrėdamas į kiekvieną personažą ir pamatydamas, ar tai erdvė, ar neŽodžių skaičius = 0Dim String_Length kaip sveikasis skaičiusBlyškus dabartinis_ženklis kaip sveikasis skaičiusString_Length = Len (Text_String)Current_Character = 1 iki String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" TadaŽodžių skaičius = žodžių skaičius + 1Pabaiga JeiKitas Dabartinis_ženklisPabaigos funkcija |
Verta atkreipti dėmesį į keletą punktų:
• Šis kodas turi būti įterptas į darbaknygės modulį - VBA srityje spustelėkite Įterpti, tada - modulį
• Funkciją galima iškviesti iš „Excel“ darbaknygės langelio, nurodant aiškų tekstą arba langelio nuorodą:
A3 = Žodžių skaičius („Kiaulės šunų katė“)
A4 = žodžių skaičius (D1)
Funkcija veikia pereidama eilutės ilgį ir sužinodama, ar kitas simbolis yra tarpas, ir jei taip, tai prideda vieną prie eilutės tarpų.
