Съдържание
Брой Брой думи в низ
Следващата функция VBA отчита броя на думите в низ чрез търсене на интервали в низа. Той използва функцията MID. Можете да постигнете нещо подобно с функциите SEARCH или FIND.
| 1234567891011121314151617 | Функция Number_of_Words (Text_String As String) Като цяло число„Функцията отчита броя на думите в низ„като разгледате всеки герой и вижте дали това е интервал или неБрой_думи = 0Dim String_Length като цяло числоDim Current_Character As IntegerString_Length = Len (Text_String)За Current_Character = 1 To String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" ТогаваNumber_of_Words = Брой_думи + 1Край АкоСледващ Current_CharacterКрайна функция |
Струва си да се отбележат няколко точки:
• Този код трябва да бъде вмъкнат в модул на работна книга - от прозореца VBA щракнете върху Вмъкване и след това модул
• Функцията може да бъде извикана от клетка на работна книга на excel или с изричен текст, или с препратка към клетка като аргумент:
A3 = Брой_думи („Котка на прасето куче“)
A4 = Брой_думи (D1)
Функцията работи, като пресича дължината на низ и вижда дали следващият знак е интервал и ако е така, той добавя едно към броя на интервалите в низа.
