3.5 Розв'язок задачі 4

Створимо форму для введення нових даних до таблиці. Її зовнішній вигляд зображено на рисунку 3.

Рис.3. Форма для введення нових даних

На формі розташовані 7 текстових полів для введення даних. Текст написів поруч з ними встановлюється завдяки властивості Caption об'єктів Label (напис). Кнопка "Записати" викликає проце­дуру, яка заносить до Листа Excel дані з форми. Текст процедури наведено нижче. Кнопки "Задача2" та "Задача3" викликають програми для виконання попередніх задач. Кнопка "Вихід" закриває форму.

Процедура на кнопку "Записати"

Private Sub CommandButton1_Click()

' Кнопка "Записати"

'Введення нових даних

Dim k As Single, i As Integer

' Знаходимо заповнені рядки

i = 2 ' i - номер рядка

Do While Cells(i, 2).Value <> "Усього:"

i = i + 1

Loop

'Вставка нового рядка

ActiveSheet.Rows(i).Insert Shift:=xlShiftDown

' Заповнення рядка даними з форми

Cells(i, 1).Value = i - 1

Cells(i, 2).Value = TextBox1.Value

Cells(i, 3).Value = TextBox2.Value

Cells(i, 4).Value = TextBox3.Value

Cells(i, 5).Value = TextBox4.Value

Cells(i, 6).Value = TextBox5.Value

Cells(i, 7).Value = TextBox6.Value

Cells(i, 8).Value = TextBox7.Value

' Виклик процедури

підсумки

End Sub

Процедура на кнопку "Задача 2"

Private Sub CommandButton2_Click()

' Кнопка "Задача 2"

середня

End Sub

Процедура на кнопку "Задача 3"

Private Sub CommandButton3_Click()

' Кнопка "Задача 3"

підсумки

End Sub

Процедура на кнопку "Вихід"

Private Sub CommandButton4_Click()

' Кнопка "Вихід"

UserForm1.Hide

End Sub

Можна розмістити на Листі Excel кнопку "Новий клієнт". Ця кнопка буде виводити на екран створену форму та запускати її на виконання.

Процедура на кнопку " Новий клієнт "

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

4 Деякі теоретичні відомості

4.1 Виклик редактору Visual Basic

Робота з редактором VBA (Visual Basic for Application) здійсню­ється за допомогою панелі інструментів Visual Basic, яка зображена на рисунку 4.

Рис. 4. Панель інструментів Visual Basic

На панелі розташовані такі кнопки:

Выполнить макрос

Записать макрос

Безопасность

Редактор Visual Basic

Элементы управления

Режим конструктора

Редактор сценариев

Якщо після виклику програми Microsoft Excel ця панель відсут­ня, її можна добавити таким чином. В меню Вид обрати пункт Панели инструментов, а потім пункт Visual Basic. Панель з'явиться на екрані. Перехід до редактору Visual Basic здійснюється за допомогою кнопки Р едактор Visual Basic. Існує й інший спосіб: в меню Сервис обрати пункт Макрос, а потім пункт Редактор Visual Basic.

Виклик редактору Visual Basic відкриває нове вікно Microsoft Visual Basic. На панелі інструментів Standard (стандартна) з'являються нові кнопки, які видно на рисунку 5.

Рис. 5. Фрагмент панелі інструментів Standard

Перелік кнопок

Run Macro – запуск на виконання програми, форми, тощо;

Break – переривання програми;

Reset – повернення до початкового стану після переривання;

Design Mode – режим Конструктора;

Project Explorer – вікно проекту;

Properties Window – вікно властивостей;

Object Browser – вікно перегляду об’єктів;

Toolbox – панель елементів управління.