Lang L: none (table-of-contents)
Loendage stringis olevate sõnade arv
Järgmine VBA funktsioon loendab stringi sõnade arvu, otsides stringist tühikuid. See kasutab funktsiooni MID. Funktsioonidega SEARCH või FIND saate midagi sarnast saavutada.
| 1234567891011121314151617 | Funktsioon Sõnade_number (tekstistring stringina) täisarvuna'Funktsioon loeb stringis olevate sõnade arvu"vaadates iga tegelast ja nähes, kas see on tühik või mitteSõnade arv = 0Dim String_Length kui täisarvTuhm praegune_märk täisarvunaString_Length = Len (teksti_string)Praeguse_märgi jaoks = 1 kuni stringi_pikkuseniIf (Mid (Text_String, Current_Character, 1)) = "" SiisSõnade arv = sõnade arv + 1Lõpp KuiJärgmine Praegune_märkLõppfunktsioon |
Väärib märkimist paar punkti:
• See kood tuleb sisestada töövihiku moodulisse - paanil VBA klõpsake nuppu Lisa ja seejärel moodul
• Funktsiooni saab kutsuda Exceli töövihiku lahtrist kas argumendina kas selgesõnalise teksti või lahtri viitega:
A3 = Sõnade arv (“Seakoera kass”)
A4 = sõnade arv (D1)
Funktsioon toimib nii, et see läbib stringi pikkuse ja näeb, kas järgmine märk on tühik ja kui see nii on, lisab see stringi tühikute arvule ühe.
