oc_Click ()
Workbooks. Add
End Sub
2. б.3. Заповнення 3-го аркуша активної електронної книги даними, вводяться з форми користувачем вашої програми. p align="justify"> Для заповнення 3-го аркуша активної електронної книги даними, необхідно на формі заповнити поля "Прізвище" і "Дата народження" і натиснути кнопку "Додати".
При кожному натисканні на цю кнопку на 3 лист активної книги будуть послідовно додаватися введені користувачем дані.
Код процедури:
Private Sub cmdAdd_Click ()
'відкриваємо 3 лист активної книги
ActiveWorkbook. Worksheets (3). Activate
'визначаємо останню заповнену рядок у поточному діапазоні
last_row = Cells (1, 1). CurrentRegion. Rows. Count
Cells (1, 1) = "ПІБ" (1,2) = "Дата"
'записуємо в перший пустий рядок дані з текстових полів, попередньо перевіривши правильність введення
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
. б.4. На 2-му аркуші електронної таблиці передбачити вставку і виконання функції, яка не є стандартною функцією Excel, а описана вами в користувальницької процедурі function. p align="justify"> При натисканні на кнопку "Користувацька функція" користувачеві буде запропоновано ввести пропозицію. Введене пропозиція буде поміщено в 1 клітинку 2-го листа електронної таблиці. Поруч же буде поміщений результат користувальницької функції, за допомогою якої задане пропозиція буде розбито на окремі слова. p align="justify"> Наприклад, дана таблиця, один з стовпців якої містить ПІБ. А необхідно отримати 3 стовпці (1 стовпець - прізвища, 2 і 3 відповідно - імена та по батькові). За допомогою стандартних процедур це зробити досить складно. p align="justify"> Тому було прийнято рішення створити функцію, яка легко справлялася б з цим завданням.
Вхідними аргументами функції буде "пропозицію" і "номер слова", яке необхідно отримати з цієї пропозиції.
Напишемо ще одну функцію, яка буде повертати кількість слів у заданому реченні.
Код процедури:
Private Sub cmdFunction_Click ()
Worksheets (2). Activate = InputBox ("Введіть пропозицію", "Введення даних", "Самохін Фед...