Повернути n -е слово у рядку тексту
Наступна функція знайде n -е слово в рядку:
Функція Find_nth_word (Фраза як рядок, n як ціле число) Як рядок Dim Current_Pos As Long Dim Length_of_String As Integer Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Видалити провідні пробіли Phrase = Trim (Phrase) Length_of_String = Len (фраза) = 1 До Length_of_String If (Current_Word_No = n) Then Find_nth_word = Find_nth_word & Mid (Phrase, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) = "") Тоді Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Видаліть крайній правий пробіл Find_nth_word = Trim (Find_nth_word) Функція завершення
Для цього потрібні два аргументи - фраза, яку потрібно шукати, і слово номер:
Знайти_мінне_слово(«Automateexcel - улюблений у світі сайт Excel», 4)
Поверне "світ".
Пробіл повертається, якщо кількість слів у фразі менше зазначеного слова.
Так: Знайти_мінне_слово(«Automateexcel - улюблений у світі сайт Excel», 12)
Повернеться порожнім, оскільки у фразі «Automateexcel ls улюблений у світі сайт Excel» немає 12 слів.
Завантажити
Щоб завантажити файл .XLSM із цієї статті, натисніть тут
