Варіанти завдань

1. Створити макрос який здійснює сортування заданого стовпця.

2. Створити макрос який здійснює сортування чисел у виділених комірок.

3. Створити макрос який здійснює сумування чисел заданого рядка.

4. Створити макрос який здійснює сумування чисел у виділених комірках.

5. Створити макрос який здійснює операції (+, -) над заданим рядком та введеним числом.

6. Створити макрос який будує діаграму заданого типу.

7. Створити макрос який копіює задане число стовпців та рядків у новий лист робочої книги.

8. Створити макрос який міняє місцями два задані рядки.

9. Створити макрос який об’єднує дві комірки.

10. Створити макрос який об’єднує два стовпчики.

11. Створити макрос який видаляє вміст даного рядку.

12. Створити макрос який центрує заданий стовпчик.

13. Створити макрос який додає в комірку текст заданого кольору.

14. Створити макрос який змінює параметри комірки.

15. Створити макрос який міняє місцями два задані стовпчики.

16. Створити макрос який змінює колір фону комірки та колір символів.

17. Створити макрос який змінює формат числа в комірці.

18. Створити макрос який міняє місцями вміст двох комірок.

19. Створити макрос який змінює колір та розмір символів в комірці.

20. Створити макрос який виконує авто заповнення стовпця місяцями року.

21. Створити макрос який вставляє формулу в комірку.

22. Створити макрос який видаляю вміст рядка.

23. Створити макрос який копіює вміст однієї комірки в іншу.

24. Створити макрос який додає одну строку перед заданою.

Лабораторна робота №2. Створення форм користувача та програмування лінійних алгоритмів

Мета роботи: Створити додаток засобами VBA для одержання вхідних даних від користувача, обчислення значень за лінійним алгоритмом та виводу результатів.

Послідовність виконання:

1. Ознайомитись з можливостями Visual Basic for Application (VBA) визначення змінних, використання процедур та функцій, створення форм користувача.

2. Намалювати блок-схему алгоритму для обчислення згідно до варіанту завдання.

3. Створити форму користувача для вводу всіх вхідних змінних, використаних в алгоритмі та виводу результатів обчислення.

4. Написати мовою VBA процедуру обчислення значень за своїм алгоритмом. В процедурі необхідно виконати ввід даних від користувача, виконати всі обчислення і вивести результати у форму.

5. Оформити та захистити звіт з лабораторної роботи, в якому навести найменування та мету виконання лабораторної роботи, завдання, послідовність створення форми користувача та процедури, текст процедури, результати обчислення та висновки.

Порядок виконання лабораторної роботи

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

,

де .

Блок-схема алгоритму для обчислення значень функції z має вигляд, що наведено на мал. 1. Виконувати обчислення за наведеним алгоритмом в Excel зручно за допомогою форми користувача. Форма користувача подібна діалоговому вікну. В поля форми можна вводити значення вхідних змінних, виводити результатів розрахунків, ініціювати таки дії як «виконати обчислення» або «завершити обчислення». Для виконання дій в формі необхідно використовувати кнопки (подібні кнопкам «OK» та «Cancel».

Щоб створити форму користувача в Excel необхідно відкрити вікно редактору VBA. Це можна зробити виконавши команду Сервис=>Макрос=>Редактор Visual Basic (або комбінацією клавіш Alt-F11).

Малюнок 1. Блок-схема алгоритму

Зовнішній вигляд редактору VBA показано на мал. 2. Зліва розташовані панелі проекту (Project) та властивостей (Properties). Якщо вони відсутні, то необхідно їх ввімкнути через пункт меню Вид (View=>Project Explorer Ctrl+R та View=>Properties Window F4). Нову форму користувача можна створити, виконавши команду меню Insert=>UserForm. З’явиться вікно редагування форми. Коли це вікно активне, на екрані відображено також панель елементів Toolbox для форми користувача. (Цю панель можна також вивести на екран командою View=>Toolbox). Активізуйте нову форму користувача і на панелі властивостей задайте такі значення

Таблиця 1

Властивість	Значення	Коментарі
(Name)	DialogForm	Ім’я форми для використання в програмі
Caption	Линейный алгоритм	Заголовок вікна форми

Малюнок 2. Редактор VBA

Перетягніть з панелі елементів Toolbox і розташуйте на формі управляючі елементи, щоб форма набула вигляду як на мал.2. Для цього використовуються такі елементи: Frame – прямокутна рамка з заголовком; Label – надписи “x:”, “y:”, “z:”; TextBox – поля вводу тексту; CommandButton – кнопки. Налаштуйте властивості елементів згідно з таблицею 2.

Таблиця 2

Елемент	Властивість	Значення
Frame	Caption	Входные данные
Frame	Caption	Выходные данные
Label	Caption	x:
Label	Caption	y:
Label	Caption	z:
TextBox	(Name)	xTextBox
TextBox	(Name)	yTextBox
TextBox	(Name)	zTextBox
CommandButton	(Name)	CommandButton1
	Caption	Вычислить значение функции
	Default	True
CommandButton	(Name)	CommandButton2
	Caption	Закрыть диалоговое окно
	Cancel	True

Зробіть подвійне клацання лівою кнопкою миші на командній кнопці CommandButton1. Відкриється вікно редагування тексту програми на мові програмування Visual Basic. Введіть підпрограму для обчислення за розробленим раніше алгоритмом. Текст програми має такий вигляд.

Private Sub CommandButton1_Click()

Dim x As Single

x = CSng(xTextBox.Text)

Const a As Single = 0.4

Const Pi As Single = 3.1416

Dim y As Single

Dim z As Single

y = a * Cos(Pi * x) * Sin(Pi * x) * Cos(3 * Pi * x)

z = Sqr(Abs(x ^ 2 + x + 1)) / (x + y) - y ^ 2 * (1 + x)

yTextBox.Text = CStr(y)

zTextBox.Text = CStr(z)

End Sub

Зробіть подвійне клацання лівою кнопкою миші на командній кнопці CommandButton2. Введіть підпрограму для зачинення діалогового вікна

Private Sub CommandButton2_Click()

Hide

End Sub

Щоб вивести на екран форму користувача зробимо підпрограму. Для цього необхідно створити новий модуль. Виконайте команду Insert=>Module. В редакторі коду введіть наступну підпрограму

Public Sub Express()

DialogForm.Show

End Sub

Ця підпрограма може бути викликана безпосередньо з Excel і складається з одного оператору, що виводить форму на екран.

Закрийте редактор Visual Basic. В Excel введіть команду для запуску макроса Сервис=>Макрос=>Макросы. У вікні «Макрос» виберіть макрос Express та натисніть кнопку Выполнить. Відкриється розроблена нами форма користувача, що показана на мал. 3. Введіть значення змінної x та натисніть кнопку «Вычислить значение функции» В полях вихідних значень з’являться обчислені значення функції. Виконайте обчислення для різних значень x. щоб закрити вікно натисніть кнопку «Закрыть диалоговое окно»

Малюнок 3. Форма користувача