БИКОВ І. Ю., ЖИРНОВ М. В., ХУДЯКОВА І. М.

MICROSOFT OFFICE В ЗАДАЧАХ ЕКОНОМІКИ ТА УПРАВЛІННЯ

Специфічні методи Microsoft Excel:

Sort key1:= <ключ1>, order1:= <порядок1>, key2:= … — сортування даних в діапазоні комірок, наприклад:

Worksheets(“Лист1”). Range(“A1:C1000”).

Sort key1:= Worksheets(“Лист1”). Range(“B1”), order1:= xlAscending

сортує діапазон А1:С1000 за другим стовпцем;

Cells — повертає об’єкт Range. Має кілька синтаксисів, найпоширеніший з яких: Cells(<номер рядка>, <номер стовпця>). Важливо те, що номери рядків та стовпців підраховуються всередині об’єкта Range. Так, наприклад, Range(«B3:D5»). Cells(2, 2) повертає комірку С4. Інколи сполучення Range. Cells замінюється методом Range, наприклад, Range- («A1») повертає комірку А1.

4.6.Властивості об’єктів

Загальні властивості елементів управління. До них належать: Name — ім’я, яке ідентифікує об’єкт в програмі; в одному проекті не може існувати двох форм з однаковим ім’ям, а в одній формі — двох однойменних елементів;

Value — визначаєстанелементауправлінняабойоговміст; длятекстового поля — це текст в полі редагування, для списків — значення вибраного рядка списку, для прапорців та перемикачів — True і False, для лічильників та лінійок прокручування — ціле число в проміжку, заданому властивостями Min і Max, для наборів сторінок — номер активної сторінки;

Left, Top — координати об’єкта відносно об’єкта-контейнера; Height, Width — висота та ширина елемента в діапазоні від 0 до

32000;

Visible — об’єкт видимий (True) або невидимий (False);

176

Частина IV ОБ’ЄКТНО-ОРІЄНТОВАНА МОВА. РЕДАКТОР VISUAL BASIC FOR APPLICATIONS

BackColor, ForeColor, BorderColor — колір фону, переднього пла-

ну, рамки;1

BorderStyle — рамка (0 — нема, 1 — є);

Font — шрифт (який в свою чергу має додаткові властивості: Bold — напівжирний, Italic — курсив, Underline — підкреслений, Size — розмір, Name — тип шрифту та інші);

Locked — користувач може (True) або не може (False) змінювати значення об’єкта.

Специфічні властивості елементів управління

1.Об’єкт Label:

Caption — власне надпис.

2.Об’єкт TextBox:

Text — текст в полі редагування (співпадає з властивістю Value); MultiLine — визначає, один (False) або кілька (True) рядків може бути в полі редагування;

WordWrap — призначенніTrue текстбудеавтоматичнопереноситися на новий рядок при досягненні правої межі поля;

MaxLength — максимальна довжина тексту;

PasswordChar — задає символ-замісник для введення пароля (часто це — зірочка «*»).

3.Об’єкти ListBox, ComboBox:

RowSource — рядок, який задає джерело даних (зокрема, діапазон комірок Excel), з якого беруться елементи списку;

ListCount — кількість елементів в списку (тільки для читання); ListRows — кількість одночасно видимих рядків списку; ListIndex — номер вибраного рядка (нумерується з 0; дорівнює –1, якщо жодного рядка не вибрано);

Text — текст, введений до поля редагування ComboBox.

4.Об’єкти Spinner, ScrollBar:

Min, Max — інтервал зміни числової характеристики.

5.Об’єкт MultiPage:

Count — кількість сторінок;

MultiRow — можливість створювати кілька смуг із закладками.

1 Всі кольори зручно задавати за допомогою функції RGB (<червоний >, <зелений>, <синій>), де насиченість кожного кольору регулюється цілим числом в діапазоні від 0 до 255.

177

БИКОВ І. Ю., ЖИРНОВ М. В., ХУДЯКОВА І. М.

MICROSOFT OFFICE В ЗАДАЧАХ ЕКОНОМІКИ ТА УПРАВЛІННЯ

Властивості об’єкта Range:

Value — значення зазначеної комірки;

Columns — повертає колекцію стовпців, які входять до об’єкту

Range;

Rows — повертає колекцію рядків, які входять до об’єкту Range; CurrentRegion — повертає мінімальну прямокутну область, яка містить елементи з Range і обмежену порожніми рядками чи стовпцями або межами таблиці;

Formula — повертає до комірки формулу в нотації А1 як рядок символів;

FormulaR1C1 — повертає до комірки формулу в нотації R1C1 як рядок символів.

4.7.Приклад розробки програми

Приклад 1

Розглядається питання про будівництво санаторію. Необхідно визначити найбільш доцільну кількість місць у санаторії. Складено кошторисвитратзурахуваннямрізноїкількостімісцьі, залежновідкількості зайнятих відвідувачами місць, розраховано очікуваний прибуток, зведений до табл. 4.2.

Визначити оптимальну кількість місць у санаторії, використовуючи критерій Гурвіца:

де W — оптимальний прибуток; індекси i, j відповідають кількості зайнятих і спроектованих місць; Vji — елемент таблиці (прибуток за конкретним варіантом); α — коефіцієнт довіри (0< α < 1).

Нехай дані розташовуються в електронній таблиці Excel так, як це показано в наведеній вище таблиці з вихідними даними. Результатом виконання програмного модуля має стати кількість спроектованих місць, які забезпечують оптимальний (за критерієм Гурвіца) прибуток.

178

Частина IV ОБ’ЄКТНО-ОРІЄНТОВАНА МОВА. РЕДАКТОР VISUAL BASIC FOR APPLICATIONS

Таблиця 4.2

Код модуля, оформленого як процедура-функція, має вигляд:

Function Optim(P As Range, V As Range, alpha As Single) As Integer

Dim vmax() As Single, vmin() As Single Dim n As Integer, m As Integer

Dim W As Single, aw As Single, nw As Integer n = V. Rows. Count

m = V. Columns. Count

ReDim vmax(1 To n) As Single, vmin(1 To n) As Single For j = 1 To n

vmax(j) = V. Cells(1, 1). Value vmin(j) = vmax(j)

V. Cells(j, i) Next i

Next j

W = V. Cells(1, 1). Value: nw = 1 For j = 1 To n

aw = alpha * vmax(j) + (1 — alpha) * vmin(j) If W < aw Then

W = aw

179

БИКОВ І. Ю., ЖИРНОВ М. В., ХУДЯКОВА І. М.

MICROSOFT OFFICE В ЗАДАЧАХ ЕКОНОМІКИ ТА УПРАВЛІННЯ

End Function

АргументамифункціїєдвадіапазоникоміроктаблиціExcel — P — кількість спроектованих місць, V — варіанти прибутків, а також змінна alpha — значення коефіцієнта довіри. Функція повертає результат як ціле число.

Модуль активізується використанням функції Optim в формулах Excel. Значення фактичних параметрів процедури-функції користувач задає в діалоговому вікні (рис.4.3.).

Динамічні масиви vmax і vmin визначають найбільше та найменше значення прибутків в кожному рядку таблиці, змінні n та m — відповідно кількість рядків і стовпців таблиці. Значення змінних n та m визначається за кількістю рядків і стовпців в діапазоні V, після чого можна перевизначити динамічні масиви, адже відтепер межі значень їх індексів відомі. Визначаються найбільше та найменше значення прибутків в кожному рядку таблиці шляхом циклічного порівняння їх значеньзізначеннями комірокдіапазонуV. Далідлякожногорядка таблиці обчислюється значення виразу, який в формулі Гурвіца записано в квадратних дужках і це значення запам’ятовується в змінній aw. Змінна W

Рис. 4.3

180

Частина IV ОБ’ЄКТНО-ОРІЄНТОВАНА МОВА. РЕДАКТОР VISUAL BASIC FOR APPLICATIONS

визначає максимальне з таких значень, а змінна nw призначена для запам’ятовуванняномерарядказмаксимальнимзначенням. Нарешті, вдіапазоні P в рядку з номером nw відшукується кількість спроектованих місць, яка й відповідає оптимальному розв’язку за критерієм Гурвіца.

Так, для наведених у вихідній таблиці даних при α = 0,5 краще за все проектувати санаторій на 40 місць.

Приклад 2

Створити форму «Передплатні видання». В формі вивести: назву видання (список), термін передплати (перемикачі), прізвище передплатника(текстовеполе), датупередплати(текстовеполе). Обчислитивартість передплати на зазначений термін (вартість передплати на місяць, помноженанатермінпередплати). Списоквиданьтавартостіпередплати на місяць зберігаються в аркуші «Видання». Зробити перевірку, чи є дата передплати, зазначена користувачем, датою за типом даних і, якщо це не так, вивести відповідне повідомлення для користувача. Результати зберегти в першому вільному рядку аркуша «Передплата».

Робочий аркуш «Передплата» до використання модуля мав вигляд— табл. 4.3. Робочий аркуш «Видання» — табл. 4.4.

ВредакторіVisual Basic створюєтьсяформазназвоюUserForm1, яка має підпис «Передплатні видання» (рис. 4.4.). В формі створено список ListBox1 (підпис — «Назва видання»), групу перемикачів Frame1 «Термін передплати», яка складається з трьох перемикачів — OptionButton1, OptionButton2, OptionButton3 — відповідно з підписами «1 місяць», «3 місяці», «6 місяців», текстові поля «Дата передплати» і «Передплат-

ник», кнопки CommandButton1 (підпис –«ОК») і CommandButton2 (під-

пис — «Відміна»).

Таблиця 4.3

181

БИКОВ І. Ю., ЖИРНОВ М. В., ХУДЯКОВА І. М.

MICROSOFT OFFICE В ЗАДАЧАХ ЕКОНОМІКИ ТА УПРАВЛІННЯ

Таблиця 4.4

Рис. 4.4

На панелі інструментів створюється кнопка, яка активізує появу форми UserForm1 на екрані за допомогою модуля FormShow:

Sub FormShow()

With UserForm1

. TextBox1. Text = CStr(Date)

. ListBox1. RowSource = “Видання!A2:A14”

. OptionButton1. Value = True

182

Частина IV ОБ’ЄКТНО-ОРІЄНТОВАНА МОВА. РЕДАКТОР VISUAL BASIC FOR APPLICATIONS

. TextBox2. SetFocus

. Show

End With End Sub

ВцьомумодуліпоточнадатазаноситьсядотекстовогополяTextBox1, значення комірок з діапазону А2:А14 заносяться до списку ListBox1, активізується перший з перемикачів групи Frame1, курсор установлюється до текстового поля TextBox2, форма відображається на екрані.

ЯкщокористувачнатиснекнопкуCommandButton2 («Відміна»), активізується модуль СommandButton2_Click, який приховує форму:

Private Sub CommandButton2_Click() UserForm1. Hide

End Sub

Якщо користувач натисне кнопку CommandButton1 («ОК»), активізується модуль СommandButton1_Click, код якого має такий вигляд:

Private Sub CommandButton1_Click() Dim n As Integer, mopt As Integer Worksheets(“Передплата”). Select Range(“A1”). Select

n = Selection. CurrentRegion. Rows. Count Set z = Range(“A”&CStr(n+1)&“:E”&CStr(n+1)) With UserForm1

z. Cells(1, 1) = _ Range(“Видання!A1:A14”). Cells(. ListBox1. ListIndex + 2, 1)

If OptionButton1. Value = True Then mopt = 1

ElseIf OptionButton2. Value = True Then mopt = 3

Else mopt = 6 End If

z. Cells(1, 2) = mopt

z. Cells(1, 3) = Trim(TextBox2. Text)

183

БИКОВ І. Ю., ЖИРНОВ М. В., ХУДЯКОВА І. М.

MICROSOFT OFFICE В ЗАДАЧАХ ЕКОНОМІКИ ТА УПРАВЛІННЯ

If IsDate(. TextBox1. Value) Then

z. Cells(1, 4) = CDate(. TextBox1. Value) Else

res = MsgBox(Title:=”Помилка в даті”, _ prompt:=”Дату не буде внесено до таблиці”, Buttons:=0 + 48)

z. Cells(1, 4) = “” End If

z. Cells(1, 5) = _

Range(“Видання!A1:B14”). Cells(. ListBox1. ListIndex + 2, 2) * mopt

. Hide

End With End Sub

Цей модуль виконує такі дії:

•активізує робочий аркуш «Передплата»;

•виділяє комірку А1;

•визначає таблицю, до якої належить ця комірка;

•визначає кількість рядків в таблиці (змінна n);

•визначає діапазон комірок в першому вільному рядку, в якому слід розташувати результати;

•заносить вибране користувачем зі списку видання до першого стовпця таблиці «Передплата» (тут до індексу списку додається 2, адже індексування елементів списку починається з 0, а в таблиці «Передплата» є додатковий рядок заголовків стовпців таблиці);

•визначає, який з перемикачів групи «Термін передплати» було активізовано і в залежності від цього змінна mopt отримує значення, яке дорівнює терміну передплати;

•термін передплати заноситься до другого стовпця таблиці «Передплата»;

•до третього стовпця таблиці «Передплата» заноситься прізвище передплатника;

•перевіряється, чи дійсно користувачем внесено дату до першого текстового поля, і, якщо це не так, видається повідомлення користувачеві;

184

Частина IV ОБ’ЄКТНО-ОРІЄНТОВАНА МОВА. РЕДАКТОР VISUAL BASIC FOR APPLICATIONS

Таблиця 4.5

•до четвертого стовпця таблиці «Передплата» заноситься дата, коли було виконано передплату;

•до п’ятого стовпця таблиці «Передплата» заноситься вартість передплати, яка обчислюється як додаток вартості передплати на 1 місяць (її значення береться з другого стовпця аркуша «Видання») та терміну передплати;

•форма закривається.

Внаслідок роботи модуля отримаємо таблицю «Передплата» (табл. 4.5).

Завдання для самостійної роботи

Завдання 1

Розробити функцію для розрахунку заданої величини за наведеними у табл. 4.6 формулами.

Таблиця 4.6.

БИКОВ І. Ю., ЖИРНОВ М. В., ХУДЯКОВА І. М.

MICROSOFT OFFICE В ЗАДАЧАХ ЕКОНОМІКИ ТА УПРАВЛІННЯ

Продовження табл. 4.6

Частина IV ОБ’ЄКТНО-ОРІЄНТОВАНА МОВА. РЕДАКТОР VISUAL BASIC FOR APPLICATIONS

Продовження табл. 4.6

6 w1і — рівень продуктивності праці Індекс змінного складу середньої на і-му підприємстві у звітному пепродуктивності праці ріоді;

БИКОВ І. Ю., ЖИРНОВ М. В., ХУДЯКОВА І. М.

MICROSOFT OFFICE В ЗАДАЧАХ ЕКОНОМІКИ ТА УПРАВЛІННЯ

Закінчення табл. 4.6

Завдання 2

Створити форму з заданими елементами управління. Створити модульдляактивізації форми. Створитимодуль, якийпісляроботикористувача зформоюзаноситьдані, вказані користувачем, доробочогоаркушаз заданим ім’ям, де слід заздалегідь підготувати відповідну таблицю.

1.Створити форму «Податки». В формі вивести: назву організації, що сплачує податок (текстове поле), вид податку (список), дату сплачування податку (текстове поле), суму, що сплачується (текстове поле). Обчислити суму, якуслідзалишитиврозпорядженнімісцевоївлади(процентвідзагальної суми). Список видів податків та відсотки з податків, які слід залишити в розпорядженні місцевої влади (для кожного виду податків), зберігаються на аркуші «Види». Зробити перевірку, чи є сума, зазначена користувачем числом і, якщо це не так, вивести відповідне повідомлення для користувача. Результати зберегти в першому вільному рядку аркуша «Податки».

2.Створити форму «Рейси автобусів». У формі вивести: прізвище водія (список), клас водіння (перемикачі), номер автобуса (текстове поле), дату рейса (текстове поле), відстань між початковим та кінцевим пунктами (текстове поле). Обчислити суму, яку слід сплатити водію за рейс (15 копійок за 1 км відстані). Список водіїв зберігається на аркуші «Водії». Зробити перевірку, чи є дата рейса, зазначена користувачем датою і, якщо це не так, вивести відповідне повідомлення для користувача. Результати зберегти в першому вільному рядку аркуша «Рейси».

188

Частина IV ОБ’ЄКТНО-ОРІЄНТОВАНА МОВА. РЕДАКТОР VISUAL BASIC FOR APPLICATIONS

3.Створити форму «Продаж товарів». В формі вивести: назву товару (список), закупівельну вартість (текстове поле), назву країни-вироб- ника(текстовеполе), маркутовару(текстовеполе). Обчислитироздрібну вартістьтовару(закупівельнавартість, якапомноженанакоефіцієнтторговельної націнки). Список товарів та коефіцієнти торговельної націнки для кожного з товарів зберігаються на аркуші «Товари». Зробити перевірку, чи є закупівельна вартість, зазначена користувачем числом і, якщо це не так, вивести відповідне повідомлення для користувача. Результати зберегти в першому вільному рядку аркуша «Продаж».

4.Створити форму «Продаж комп’ютерів». В формі вивести: назву процесора (список), обсяг оперативної пам’яті (список), тип монітора (список), прізвище покупця (текстове поле), дата придбання комп’ютера (текстове поле), оплата готівкою чи за безготівковий розрахунок (прапорець). Обчислити загальну вартість комп’ютера (сума вартостей процесора, оперативної пам’яті та монітора). Список процесорів, видів оперативної пам’яті, моніторів та їх вартості зберігаються відповідно на аркушах «Процесори», «ОП», «Монітори». Зробити перевірку, чи є дата придбання комп’ютера, зазначена користувачем датою і, якщо це не так, вивестивідповіднеповідомленнядлякористувача. Результатизберегтив першому вільному рядку аркуша «Продаж».

5.Створити форму «Склад». У формі вивести: назву матеріалу (список), номер цеха (текстове поле), прізвище матеріально-відпові- дальної особи (текстове поле), кількість одержаного матеріалу (текстове поле), дату видачі (текстове поле). Обчислити залишок матеріалу на складі (різниця між попереднім залишком та виданою кількістю матеріалу). Список матеріалів та їх попередні залишки зберігаються на аркуші «Матеріали». Зробити перевірку, чи є кількість одержаного матеріалу, зазначена користувачем числом і, якщо це не так, вивести відповідне повідомлення для користувача. Результати зберегти в першому вільному рядку аркуша «Видача».

6.Створити форму «Будівельні роботи». В формі вивести: вид роботи (список), номер бригади, яка виконує роботу (текстове поле), обсяг виконаної роботи (текстове поле), дату виконання роботи (текстове поле). Обчислити вартість виконаної роботи (обсяг виконаної роботи,

189

БИКОВ І. Ю., ЖИРНОВ М. В., ХУДЯКОВА І. М.

MICROSOFT OFFICE В ЗАДАЧАХ ЕКОНОМІКИ ТА УПРАВЛІННЯ

помножений на норму виробітки). Список видів роботи та норми виробіткизакожнимвидомроботизберігаютьсянааркуші«Норми». Зробити перевірку, чиєобсягвиконаноїроботи, зазначенийкористувачемчислом і, якщо це не так, вивести відповідне повідомлення для користувача. Результати зберегти в першому вільному рядку аркуша «Виконано».

7.Створити форму «Хлібозавод». В формі вивести: номер магазину, до якого вивезено продукцію (текстове поле), вид продукції (список), кількість вивезеної продукції (текстове поле), дату вивезення (текстове поле), оплата готівкою чи за безготівковий розрахунок (прапорець). Обчислити сумарну вартість цього виду продукції (вартість одиниці продукції, помножена на кількість вивезеної продукції). Список видів продукції та вартість одиниці кожного виду продукції зберігаються на аркуші «Вартість». Зробити перевірку, чи є кількість вивезеної продукції, зазначена користувачем числом і, якщо це не так, вивести відповідне повідомлення для користувача. Результати зберегти в першому вільному рядку аркуша «Вивезення».

8.Створити форму «Земельні ділянки». В формі вивести: прізвище особи, якій передається ділянка (текстове поле), номер паспорта (текстове поле), номер ділянки (список), дату передачі ділянки (текстове поле), коефіцієнтзнижки(текстовеполе). Обчислитивартістьділянки(вартість1 га, задана конкретним числом, помножена на коефіцієнт знижки та на площу ділянки). Список ділянок та їх площі зберігаються на аркуші «Ділянки». Зробити перевірку, чи є коефіцієнт знижки, зазначений користувачем числом і, якщо це не так, вивести відповідне повідомлення для користувача. Результати зберегти в першому вільному рядку аркуша «Передача».

9.Створити форму «Авіаційні квитки». В формі вивести: номер рейсу (список), прізвище пасажира (текстове поле), вартість квитка (текстове поле), дату придбання квитка (текстове поле), валюту, в якій було сплачено за квиток (перемикачі). Обчислити страхову суму (5 % від вартості квитка). Список номерів рейсів та пункти призначення зберігаються на аркуші «Рейси». Зробити перевірку, чи є дата рейсу, зазначена користувачем датою і, якщо це не так, вивести відповідне повідомлення для користувача. Результати зберегти в першому вільному рядку аркуша «Квитки».

190

Частина IV ОБ’ЄКТНО-ОРІЄНТОВАНА МОВА. РЕДАКТОР VISUAL BASIC FOR APPLICATIONS

10. Створити форму «Бібліотека». В формі вивести: автора та назву книги (список), інвентарний номер книги (текстове поле), номер читацького квитка одержувача книги (текстове поле), чи видається книга вчитальному залі або на абонемент (перемикачі). Обчислити термін поверненнякниги(за30 днів, якщокнигувзятонаабонементтанаступного дня, якщо книгу взято в читальному залі). Список книг зберігається на аркуші «Книги». Зробити перевірку, чи є номер читацького квитка, зазначений користувачем числом і, якщо це не так, вивести відповідне повідомлення для користувача. Результати зберегти в першому вільному рядку аркуша «Видано».

191

БИКОВ І. Ю., ЖИРНОВ М. В., ХУДЯКОВА І. М.

MICROSOFT OFFICE В ЗАДАЧАХ ЕКОНОМІКИ ТА УПРАВЛІННЯ

Частина V

ПРОГРАМА СТВОРЕННЯ ПРЕЗЕНТАЦІЙ MICROSOFT POWERPOINT

Зовсімнедавнодляпроведенняконференцій, поданняпроектів, підтримки будь-яких виступів використовувались прозорі плівки зі слайдами і спеціальні проектори. З розвитком комп’ютерних технологій процес подання будь-якої інформації став значно багатофункціональним і зручнимщодопідготовки. ДоскладукомплексупрограмMicrosoft Office входить додаток PowerPoint, який дозволяє створювати ефективні презентації з графікою, анімацією та іншими мультимедійними елементами, а також надає більш зручні засоби для їх показу. Під презентацією в PowerPoint розуміється набір слайдів і спеціальних ефектів, якими супроводжується демонстрація на екрані. Крім того до презентації можуть входити: конспект, план доповіді, роздатковий матеріал.

Слайд — це окремий кадр презентації, який містить різні елементи і способи форматування. Кожний слайд може бути відображений на екрані, роздрукований на папері або прозорій плівці. Сучасна версія цієї програми включає:

1.Зручні засоби показу презентацій. Поліпшений режим показу слайдів спрощує проведення презентацій завдяки наявності вдосконаленого екранного інтерфейсу і засобів рукописного введення для додавання поміток, включаючи маркер, стрілки і ручки двох видів.

2.Використання графіки. Працюючи в PowerPoint, можна здійснювати доступ до розділу картинок і мультимедіа веб-вузла Microsoft Office Online. Тут пропонуються тисячі елементів мультимедіа для

192