ір Петрович")
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
При введенні "Самохін Федір Петрович" (малюнок 7) результат роботи функції зображений на малюнку 8. Тобто функція запускалася 3 рази, в 1 раз вона повернула 1 слово з введеного пропозиції, другий раз - друге слово, третій раз - третє. Таким чином ми розбили введене пропозицію за словами. br/>В
Малюнок 7 - Вікно введення
В
Рисунок 8 - Результат роботи функції
2. б.5. Передбачити на формі кнопку, яка виводить на екран (на форму) електронну таблицю для попереднього перегляду перед друком. p align="justify"> При натисканні на кнопку "Перегляд" відбудеться висновок на екран електронної таблиці для попереднього перегляду перед друком (малюнок 9).
В
Рисунок 9 - Попередній перегляд
Код процедури:
Private Sub cmdView_Click ()
Me. Hide. SelectedSheets. PrintPreview. Show
End Sub
2. б.6. Передбачити на формі кнопку, що дозволяє налаштувати параметри сторінки перед друкуванням (використовуйте для цього діалоги (клас Dialogs) MS Excel). p align="justify"> При натисканні на кнопку "Налаштування параметрів" з'явиться вікно "Параметри сторінки".
Код процедури:
Private Sub cmdParametrs_Click ()
Application. Dialogs (xlDialogPageSetup). Show
End Sub
При цьому передбачено збереження всіх відкритих файлів в будь-який момент. Для цього потрібно натиснути на кнопку " Зберегти всі" в правому верхньому куті форми.
Код процедури:
Private Sub cmdSaveAll_Click ()