Преглед садржаја
Броји број речи у низу
Следећа ВБА функција броји број речи у низу претраживањем размака унутар низа. Користи функцију МИД. Слично можете постићи и помоћу функција СЕАРЦХ или ФИНД.
| 1234567891011121314151617 | Функција Број_речи (Тект_Стринг Ас Стринг) Као цео број'Функција броји број речи у низу'гледајући сваки лик и видевши да ли је то размак или неБрој_речи = 0Дим Стринг_Ленгтх Ас ИнтегерДим Цуррент_Цхарацтер Ас ИнтегерСтринг_Ленгтх = Лен (Тект_Стринг)За Цуррент_Цхарацтер = 1 За Стринг_ЛенгтхИф (Мид (Тект_Стринг, Цуррент_Цхарацтер, 1)) = "" ЗатимБрој_речи = Број_речи + 1Крај АкоСледећи Цуррент_ЦхарацтерЗавршна функција |
Вреди напоменути неколико тачака:
• Овај код мора бити уметнут у модул радне свеске - у окну ВБА кликните на Уметни, а затим на модул
• Функција се може позвати из ћелије Екцел радне свеске са експлицитним текстом или референцом ћелије као аргумент:
А3 = Број_речи ("Мачка свињског пса")
А4 = Број_речи (Д1)
Функција ради тако што прелази дужину низа и види да ли је следећи знак размак и ако је тако додаје један броју размака у низу.
