Содержание
Подсчитать количество слов в строке
Следующая функция VBA подсчитывает количество слов в строке путем поиска пробелов в строке. Он использует функцию MID. Вы можете сделать нечто подобное с помощью функций ПОИСК или НАЙТИ.
| 1234567891011121314151617 | Функция Number_of_Words (Text_String As String) As Integer'Функция подсчитывает количество слов в строке'посмотрев на каждый символ и увидев, является ли он пробелом или нетNumber_of_Words = 0Dim String_Length как целое числоDim Current_Character As IntegerString_Length = Len (Text_String)Для Current_Character = 1 до String_LengthЕсли (Mid (Text_String, Current_Character, 1)) = "" ТогдаNumber_of_Words = Number_of_Words + 1Конец, еслиСледующий Current_CharacterКонечная функция |
Стоит отметить пару моментов:
• Этот код необходимо вставить в модуль рабочей книги - на панели VBA нажмите «Вставить», а затем «Модуль».
• Функцию можно вызвать из ячейки книги Excel либо с явным текстом, либо с ссылкой на ячейку в качестве аргумента:
A3 = Number_of_Words («Свинья, собака, кошка»)
A4 = Число_слов (D1)
Функция работает, просматривая длину строки и проверяя, является ли следующий символ пробелом, и если да, она добавляет единицу к количеству пробелов в строке.
