Завдання №13.30 Модуль 3: Використання форм у проектах Excel-VBA
студента гр…ПІБ…
Звіт має включати розділи:
І. Постановка задачі.
а) Формулювання задачі
б) Макет електронної таблиці з формулами і макетом кнопки виклику Форми.
в) Макет Форми
ІІ. Блок-схеми алгоритмів
а) Активації кнопки "Уведення даних через Форму"
б) Активації Форми
ІІІ. Коди
а) Макросу Кнопки "Уведення даних через Форму"
б) Форми:
1.Процедура кнопки "Увести"
2.Процедура кнопки "Відмінити"
ІV. Комп'ютерна підготовка і обробка.
а) Написати не менше 10 команд, які використовувались при створенні проекту, наприклад:
1.Insert ► UserForm
2.Вид ► Панели Инструментов ► Формы ► CommandButton
3.Контестне меню ► Изменить Текст ► Уведення назви кнопки "Уведення даних через Форму" 4.Після закінчення уведення назви: Контестне меню ► Завершить изменение Текста і т.д. ……….
10.Compile►Debug …
ЗРАЗОК
І. Постановка задачі.
а) Формулювання задачі: За № варіанта (зі сторінки 52 задачника) створити проект, у який включити: Робочу книгу із заданою електронною таблицею Excel, VBA-Модуль, VBA-Форму. Книгу і форму назвати "Завдання №13 студента ПІБ, гр. №". Включити у властивість форми "Picture" власне фото.
В електронну таблицю вставити формули замість зірочок, дані тіла таблиці безпосередньо не уводити. Для уведення цих даних і створюється форма, яка включатиме з відповідними назвами-мітками (Label): текстові поля (TextBox), комбінований список (ComboBox), кнопки (CommandButton): "Увести" і "Відмінити".
На Аркуші електронної таблиці поруч із самим документом створити кнопку (CommandButton) з назвою "Уведення даних через Форму" і макросом, який по щиглику на кнопці викликатиме на екран створену Форму. За допомогою Форми дані тіла таблиці обирати з розкриваючогося списку або набирати у текстові поля і записувати в електронну таблицю.
б) Макет електронної таблиці з формулами і макетом кнопки виклику Форми.
в) Макет Форми
У формі використані елементи керування:
1. Текстові поля – 4 шт.
2. Розкриваючийся список – 1 шт.
3. Кнопки – 2 шт.
4. Мітки – 5 шт.,
а також ФОТО
ІІ. Блок-схеми алгоритмів
а) Функціонування кнопки "Уведення даних через Форму"
б) Функціонування Форми
ІІІ. Розробка кодів
а) Код Макросу Кнопки "Уведення даних через Форму" (записується у Модуль Проекту)
Sub Кнопка1_Щелкнуть() 'Кнопка1 знаходиться на Аркуші Робочої книги!!!
UserForm1.ComboBox1.Clear 'команда очищає комбіноване поле
UserForm1.ComboBox1.AddItem ("Інкасатор") 'команда вставляє пункт "Інкасатор" у комбіноване поле
UserForm1.ComboBox1.AddItem ("Платіжна відомість")
UserForm1.ComboBox1.AddItem ("Прихідний ордер")
UserForm1.ComboBox1.AddItem ("Прихідний ордер")
UserForm1.Show 'команда показує форму на екрані
End Sub
б) Код Форми:
1.Процедура кнопки "Увести"
2.Процедура кнопки "Відмінити"
Private Sub CommandButton1_Click() 'процедура кнопки "Увести" (на Формі)
i = 2 'Шапка документу займає 2 рядки
Do
i = i + 1
Loop Until Cells(i, 2) = "" 'у циклі шукається пустий рядок (по пустій комірці ("") у 2-му стовпчику)
Cells(i, 1) = i - 2 'заноситься № рядка у 1-нй стовпчик документу
Cells(i, 2) = TextBox1.Value 'заноситься те, що уведено у 1-ше текстове поле Форми, у 2-й стовпчик документу
Cells(i, 3) = ComboBox1 'заноситься те, що обране у комбінованому полі Форми, у 3-й стовпчик документу
Cells(i, 4) = TextBox4.Value
Cells(i, 5) = TextBox2.Value
Cells(i, 6) = TextBox3.Value
Private Sub CommandButton2_Click() 'процедура кнопки "Відмінити" (на Формі)
End 'команда закриває Форму
End Sub
ІV. Комп'ютерна підготовка і обробка.
1 Створити назву і шапку ЕТ.
2 Увести коди формул в ЕТ.
3 Створити кнопку з назвою і макросом поруч з ЕТ.
4 Створити Форму з елементами управління.
5 Увести і відлагодити коди кнопок Форми.
6 Заповнити ЕТ даними через Форму.
Здати і захистити проект у встановлений термін
