VBA Лаб.р.2_укр
.pdfЗАВДАННЯ 2
Нехай аргумент функції із завдання 1 знаходиться в довільній чарунці робочого аркуша. Задати повідомлення результату обчисленя функції у вбудованому діалоговому вікні.
ТЕХНОЛОГІЯ ВИКОНАННЯ
1.В робочій книзі «Фамилия» відкрийте Сервис – Макрос – Редактор
Visual Basic.
2.Після коду функції запишіть наступну процедуру (рис. 12):
Sub results() |
|
Dim r_1 As Double |
' r_1 - локальна змінна |
x = Sheets("Лист1").Range("A1").Value ' Аргумент функції
' береться з чарунки А1 ' робочого аркуша Лист1
r_1 = функция (x)
MsgBox "y=" & r_1 & " при x=" & x ' Виведення результату
' в стандартне діалогове вікно
End Sub
Рис. 12
Якщо необхідно, щоб аргумент брався з будь-якої активної чарунки, то в процедурі results рядок
x = Sheets("Лист1").Range("A1").Value
21
замініть на
x = ActiveCell.Value
Але в останньому випадку необхідно перед запуском процедури results обов'язково виділити (зробити активною) чарунку з аргументом функції.
3.Перевірте, що в чарунці записано число 0,5. Виконайте макрос: Сервис – Макрос – Макросы, виберіть макрос results і натисніть
Выполнить (рис. 13).
Рис. 13
З'явиться вікно з результатом (рис. 14).
Рис. 14
Щоб повернутися у вікно додатка, натисніть ОК.
4.Збережіть робочу книгу.
ЗАВДАННЯ 3
Задати введення значення і повідомлення результату обчислення
22
функції із завдання 1 за допомогою вбудованих діалогових вікон.
ТЕХНОЛОГІЯ ВИКОНАННЯ
1.В робочій книзі «Фамилия» відкрийте Сервис – Макрос – Редактор
Visual Basic.
2.Після коду процедури results запишіть наступну процедуру (рис. 15):
Sub results2()
Dim r_1 As Double
x = InputBox("Введите значение х -", "Ввод данных", " ") r_1 = функция (x)
msg = MsgBox("при x=" & x & vbNewLine & vbNewLine & _ "y=" & r_1, vbRetryCancel + vbInformation + _ vbDefaultButton2, "Результат вычислений")
End Sub
Рис. 15
3.Виконайте макрос: Сервис – Макрос – Макросы, виберіть макрос results2 і натисніть Выполнить.
З'явиться вікно запрошення на введення х (рис. 16).
23
Рис. 16
4.Введіть 0,5 і натисніть ОК, з'явиться вікно з результатом (рис. 17).
Рис. 17
5.Щоб повернутися у вікно додатка, натисніть будь-яку із запропонованих кнопок.
6.Збережіть робочу книгу.
24
САМОСТІЙНО
ЗАВДАННЯ 1
Створити функцію користувача. Вставити цю функцію в чарунку робочого аркуша.
1. |
y cos(3 x) sin(5 x). |
|||||||||
2. |
y 2sin( x)sin(3 x) 0,5. |
|||||||||
3. |
y cos( x) sin( x) . |
|||||||||
|
|
|
|
|
|
x |
|
|
||
4. |
y |
2cos( |
3 |
x) . |
|
|
||||
|
|
ln |
x |
|
|
|
|
|
||
5. |
y |
4sin(5 x) |
. |
|
||||||
1 |
|
cos( x) |
|
x |
|
|||||
|
|
|
||||||||
|
|
|
|
|
|
|||||
6. |
y |
4cos( x)sin( x) |
x. |
|||||||
|
|
|
|
|
|
x |
|
|
7.y sin(3 x) 2sin(5 x).
8.y 2cos( x)sin(3 x) sin( x).
9.y cos( x)sin( x) cos(3 x).
10.y 2cos(3 x)sin( x) sin(x3 x) .
11. |
y cos( x) |
sin( x) |
|
2cos(5 x). |
|
1 cos( x) |
|||||
|
|
|
|||
12. |
y cos( x) |
sin( x)x. |
|
||
|
x |
|
|
|
13.y 3sin(0,5 x)sin(0,3 x) 0,5cos( x).
25
ЗАВДАННЯ 2
Задати введення значення аргументу і повідомлення результату обчислення функції із завдання 1 за допомогою вбудованих діалогових вікон.
26
КОНТРОЛЬНІ ПИТАННЯ
1.Як задається операція присвоювання?
2.Що означає тип даних? Перелічіть типи даних?
3.Як задається тип змінних?
4.Що таке час життя і область видимості змінних?
5.При яких значеннях змінних логічні операції And, Or, Not дають значення True (істина) і при яких значеннях – False (хиба)?
6.Як задається процедура Function? В яких випадках вона використовується?
7.Яка відмінність передачі параметра за посиланням від передачі параметра за значенням?
8.Як можна обчислити значення функції, створеної користувачем?
9.Опишіть вбудовані у VBA діалогові вікна.
10.Якою командою задається вікно введення?
11.Якою командою задається вікно повідомлення?
27
СПИСОК ЛІТЕРАТУРИ
1.Биллиг В.А. VBA в Office 2000. Офисное программирование. – М.: Издательско-торговый дом «Русская редакция», 1999. – 480 с.
2.Гарнаев А.Ю. Использование MS Excel и VBA в экономике и финансах. – СПб.: BHV; Санкт-Петербург, 1999. – 336 с.
3.Гарнаев А.Ю. Самоучитель VBA. – СПб.: BHV – Санкт-Петербург, 2007. – 560 с.
4.Глинський Я.М., Анохін В.Є., Ряжська В.А. Бейсик. QBasic. Visual Basic i VBA. – Львів: Деол, СПД Глинський, 2004. – 160 с.
5.Демидова Л.А., Пылькин А.Н. Программирование в среде Visual Basic for Applications: Практикум. – М.: Горячая линия – Телеком, 2004. – 175 с.
6.Лук’янова В.В. Комп’ютерний аналіз даних. – К.: Видавничий центр
„Академія”, 2003. – 344 с.
7.Мельников П.П., Назаров С.В., Смольников Л.П. Программирование в пакетах MS Office – М.: Финансы и статистика, 2007. – 656 с.
28