ьність введення
If last_row> = 1 ThenTextBox1. Text = "" Or IsDate (TextBox2) = False Then MsgBox "Невірні дані, повторіть введення": Exit Sub (last_row + 1, 1) = TextBox1. Text (last_row + 1,2) = Format (TextBox2. Text, "dd. Mm. Yyyy")
End If
'вирівнюємо ширину стовпців по вмісту
Columns ("A: B"). AutoFit
End Sub
При натисканні на кнопку "Користувацька функція" користувачеві буде запропоновано ввести пропозицію. Введене пропозиція буде поміщено в 1 клітинку 2-го листа електронної таблиці. Поруч же буде поміщений результат користувальницької функції, за допомогою якої задане пропозиція буде розбито на окремі слова. p align="justify"> Наприклад, дана таблиця, один з стовпців якої містить ПІБ. А необхідно отримати 3 стовпці (1 стовпець - прізвища, 2 і 3 відповідно - імена та по батькові). За допомогою стандартних процедур це зробити досить складно. p align="justify"> Тому було прийнято рішення створити функцію, яка легко справлялася б з цим завданням.
Вхідними аргументами функції буде "пропозицію" і "номер слова", яке необхідно отримати з цієї пропозиції.
Напишемо ще одну функцію, яка буде повертати кількість слів у заданому реченні.
Код процедури:
Private Sub cmdFunction_Click ()
Worksheets (2). Activate = InputBox ("Введіть пропозицію", "Введення даних", "Самохін Федір Петрович")
Worksheets (2). Cells (1, 1) = fio
'виклик користувача функції, яка як результат повертає кількість слів у введеному реченні
n = Количество_слов_в_предложении (fio) i = 1 To n
'виклик користувача функції, яка як результат повертає слово з пропозиції, яка стоїть у певному місці
Worksheets (2). Cells (1, 1 + i) = Слово_із_предложенія (fio, i) i
End SubСлово_із_предложенія (Пропозиція, Номер_слова)
sss = Split (Пропозиція)
Слово_із_предложенія = sss (Номер_слова - 1)
End FunctionКоличество_слов_в_предложении (Пропозиція) As Integer
If Пропозиція <> "" Then = Split (Пропозиція)
Количество_слов_в_предложении = UBound (sss) + 1If
End Function
При введенні "Самохін Федір Петрович" результат роботи функції зображений на малюнку 5. Тобто функція запускалася 3 рази, в 1 раз вона повернула 1 слово з введеного пропозиції, другий раз - друге слово, третій раз - третє. Т.ч. ми розбили введене пропозицію за словами.
При натисканні на кнопку "Пер...