Лабораторна робота № 8. Створення засобами vba форми для введення даних про ліки в електронну таблицю

Мета роботи. Створити форму (рис. 24, 25) для введення даних у таблицю MS Excel, яка має містити інформацію про ліки на аптечному складі (рис. 23). Навчитися працювати з візуальними об'єктами VBA, зокрема, з випадним списком (ComboBox) та кнопкою корекції (SpinButton).

Теоретичні відомості. Об'єкт ComboBox використовують для створення випадного списку. Він містить одно- або двовимірний масив лементів. Вибір певного рядка цього масиву здійснюється клацанням на кнопці випадного списку.

Номер цього рядка є значенням властивості ListIndex об'єкта ComboBox. Нумерація елементів списку починається з нуля. Якщо ListIndex=1, то елемент списку не вибрано. У цьому випадку користувач може ввести власне значення списку, яке зберігатиметься у властивості Text. Атрибут List (список) цього об'єкта є масивом його лементів з текстовими даними. Ця властивість разом із записаними у круглих дужках індексами рядка і стовпця масиву дає доступ до відповідного елемента випадного списку. Розглянемо приклад списку з трьома елементами:

ComboBox1.List = Array(“Елемент 1”, “Елемент 2”, “Елемент З”)

ComboBox 1.List(l, 0) ‘ Вираз із результатом "Елемент 2"

ComboBox 1. ListIndex = 2 ‘Робимо активним третій елемент.

Кнопка корекції SpinButton (піктограма панелі Toolbox) призначена для корекції деякого цілочислового значення під час роботи програми. Властивості кнопки такі:

Властивість	Опис властивості	Приклади значень
Value	Цілочислове значення, яке може корегуватися	Деяке ціле число
Мах	Максимальне значення	Ціле число
Міn	Мінімальне значення	Ціле число
SmallChange	Крок зміни значення	Ціле число
Visible	Видимість об'єкта	True, False

Хід роботи

1. Запустіть програму Microsoft Excel.

2. Створіть макрос відкривання форми для введення інформації в таблицю лікарських засобів і назвіть його ShowForm. Запрограмуйте макрос так:

3. Підготуйте заготовку таблиці Excel, як показано на рис. 23.

4. Розмістіть на сторінці ЕТ кнопку „Ввести новий запис" (див. рис. 23) та призначте їй макрос ShowForm.

5. Перейдіть у вікно VBA та відкрийте вікно форми UserForm1.

6. Розмістіть у цьому вікні об'єкти так, як показано на рис. 25.

7. Змініть заголовок форми та задайте інші початкові значення об'єктів (див. рис. 25). Збережіть таблицю.

Крок зміни терміну зберігання ліків задайте 6 (місяців). Для цього змініть властивість SmallChange об'єкта SpinButton1.

8. Запрограмуйте зміну значення поля TextBox2 як реакцію на подію клацання на кнопці SpinButton1.

Для цього запрограмуйте кнопку SpinButton1 так:

9. Задайте можливість введення чи зміни даних у полі редагування TextBox2.

Для цього двічі клацніть на полі TextBox2 і введіть такий код:

10. Запрограмуйте кнопку „Закрити" так:

11. Заповніть масив елементів випадного списку ComboBox1.

Для цього двічі клацніть на формі, змініть подію Click на Initialize і введіть такий код:

12. Запрограмуйте кнопку „Ввести в таблицю", яка призначена для занесення даних з форми в ЕТ

13. Поверніться до таблиці Excel, збережіть таблицю, перевірте роботу макросу.

Для цього клацніть на кнопці „Ввести в таблицю" і введіть дані про декілька товарів, зазначаючи різні групи лікарських засобів і терміни їх зберігання. Не залишайте ці поля порожніми. Спробуй­те змінювати термін зберігання товару за допомогою кнопок ко­рекції, а також безпосереднім введенням числа у поле TextBox2. Введіть власну назву групи товарів у поле ComboBoxl. Закрийте форму, клацнувши на кнопці „Закрити", і перевірте правильність введеної інформації в таблиці.