Вилучення слів із текстових рядків Excel називається синтаксичним аналізом.
Відкрийте Excel, а потім введіть речення, що містить принаймні три слова, у будь-яку з клітинок на першому аркуші. Ви розбиваєте це речення на окремі слова.
Натисніть заголовок меню «Дані», а потім натисніть кнопку «Текст у стовпці». Ця функція розбиває текст, слова якого розділені символом, який ви вказали.
Установіть прапорець «Пробіл», а потім натисніть кнопку «Готово». Excel розділить написане вами речення на окремі стовпці. Кожна колонка міститиме одне слово з речення.
Введіть функцію за вирахуванням лапок «=індекс([МАСИВ],1,[КІЛЬКІСТЬ СЛІВ, ЩО ВИБИВАТИ])» у клітинку під рядком розділених слів. Замініть термін "МАСИВ" діапазоном, що містить рядок слів. Наприклад, якщо слова займають клітинки від «A1» до «C1», введіть текст «A1:C1» замість тексту «МАСИВ». Замініть текст «КІЛЬКІСТЬ СЛОВА, ЩО ВИДОБИТИ» номером слова, яке потрібно вилучити з речення. Наприклад, якщо ви хочете витягти третє слово з діапазону «A1:C1», введіть «3» для останнього аргументу.
Відкрийте нову таблицю Excel, а потім введіть будь-яку послідовність із трьох або більше слів у клітинку F4. Ви будете використовувати коротку програму Visual Basic, щоб виділити слово з цього речення.
Натисніть заголовок меню «Розробник», а потім натисніть кнопку «Visual Basic». Відкриється середовище програмування для Excel.
Вставте наступну програму у вікно, що з’явиться. Серцем цієї підпрограми є функція «split», яка розділяє речення на окремі слова, як це робить команда «Text to Columns».
Sub Macro1() Dim ar, str1, n str1 = Range("F4") n = Range("F5") - 1 ar = Split (str1, " ") MsgBox "Номер слова " & n + 1 & " є " & ar (n) End Sub
Натисніть кнопку «Макроси» на вкладці «Розробник», а потім двічі клацніть функцію «Макро1». З’явиться вікно повідомлення із зазначенням слова, яке ваша програма витягла з речення, яке ви ввели на кроці 1.
