Kazalo
Šteje število besed v nizu
Naslednja funkcija VBA šteje število besed v nizu z iskanjem presledkov v nizu. Uporablja funkcijo MID. Nekaj podobnega bi lahko dosegli s funkcijami SEARCH ali FIND.
| 1234567891011121314151617 | Število funkcij_besed (besedilni_tvor kot niz) kot celo število'Funkcija šteje število besed v nizu'tako, da pogledam vsak znak in vidim, ali je presledek ali neŠtevilo_besed = 0Zatemni String_Length kot celo številoZatemni Current_Character kot celo številoString_Length = Len (Text_String)Za Current_Character = 1 Za String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" PotemŠtevilo_besed = število_besed + 1Konec ČeNaslednji Znak_Tokovni_znakKončana funkcija |
Omeniti velja nekaj točk:
• To kodo morate vstaviti v modul delovnega zvezka - v podoknu VBA kliknite Vstavi in nato modul
• Funkcijo lahko pokličete iz celice Excelovega delovnega zvezka bodisi z izrecnim besedilom ali sklicem na celico kot argument:
A3 = Število_besed ("Pig Dog Cat")
A4 = Število_besed (D1)
Funkcija deluje tako, da prečka dolžino niza in preveri, ali je naslednji znak presledek, in če je tako, doda eno številki presledkov v nizu.
