Підрахувати кількість слів у рядку
Наступна функція VBA підраховує кількість слів у рядку шляхом пошуку пробілів у рядку. Він використовує функцію MID. Ви можете зробити щось подібне за допомогою функцій SEARCH або FIND.
| 1234567891011121314151617 | Функція Number_of_Words (Text_String As String) As Integer'Функція підраховує кількість слів у рядку', подивившись на кожного персонажа і побачивши, чи це пробіл чи ніКількість_ слів = 0Dim String_Length як ціле числоЗатемнити Current_Character як ціле числоString_Length = Len (Text_String)Для Current_Character = 1 до String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" ТодіЧисло_слів = Кількість_слів + 1Закінчити ЯкщоДалі Current_CharacterФункція завершення |
Варто відзначити пару моментів:
• Цей код потрібно вставити в модуль робочої книги - на панелі VBA натисніть Вставити, а потім модуль
• Функцію можна викликати з комірки робочої книги Excel або з явним текстом або посиланням на клітинку як аргументом:
A3 = Кількість_ слів ("Кіт -свиня")
A4 = Кількість_ слів (D1)
Функція працює шляхом переміщення по довжині рядка та перевірки, чи є наступний символ пробілом, і якщо так, то додає один до кількості пробілів у рядку.
