Методичні рекомендації до виконання завдання № 2

Тема: Використання інструкцій VBA

Ціль: Одержати практичні навички розробки програм у середовищі VBA з використанням управляючих конструкцій мови.

План

1. Вивчення прикладів використання управляючих конструкцій VBA по методичних матеріалах лабораторної роботи.

2. Розробка процедури, що передбачає використання умовного оператора Іf і оператора циклу For ... Next.

3. Призначення процедурі елемента управління - кнопки. Перевірка роботи процедури.

4. Модифікування процедури, заміною оператора циклу For ... Next на одну з кострукций Do ... Loop. Перевірка роботи процедури.

Технологія виконання завдання

Постановка задачі: Виконати автоматизований облік максимального і мінімального виторгу від продажів продукції фірми «Вектор». Акцентувати увагу в створеній звітній таблиці на наступному: для продукції, виторг від продажів якої є максимальним, виконати оформлення комірок напівжирним червоним шрифтом, для продукції з мінімальним виторгом від продажів - звичайним зеленим шрифтом, а для всіх інших - звичайним чорним шрифтом.

Для рішення поставленої задачі необхідно виконати наступні дії:

1. Відкрити книгу MS Excel з лабораторними роботами.

2. Перейти на листок «Аналіз попиту».

3. Уставити новий робочий листок «Автоматизований облік».

4. Скопіювати фрагмент таблиці «Аналіз попиту і продажів торговельної фірми «Вектор» (стовпці «Код», «Найменування продукції», «Виторг від продажів») у буфер обміну.

5. Уставити фрагмент таблиці «Аналіз попиту і продажів торговельної фірми «Вектор» на новому листку робочої книги «Автоматизований облік», починаючи з комірки А1 так, щоб заголовок розмістився в першому рядку, шапка таблиці - у другому і третьому рядках, код - в комірках діапазону А4:А10, найменування продукції - в комірках діапазону В4:У10, значення виторгу від реалізації - в комірках діапазону З4:З10.

6. У середовищі VBA розробити процедуру AvtUchet, що виконує автоматизований облік максимального і мінімального виторгу від продажу продукції.

Примітка. Об'єкт Application через властивість WorksheetFunction надає можливість використовувати в коді убудовані функції робочого листа.

Для зручності роботи використовувати константи, убудовані в VBA: vbBlack – чорний, vbRed – червоний, vbGreen – зелений.

7. Перевірити роботу процедури, призначивши їй елемент управління - кнопка.

8. Модифікувати процедуру, замінивши оператор циклу For ... Next на конструкції Do ... Loop(Do…While, Do…Until) та призначити їм нові кнопки.

9. Для того щоб перевірити правильність роботи кожної процедури, додатково створити процедуру Font_Color, що буде виводити всю таблицю чорним кольором. Призначити їй кнопку Black.

10. Перевірити роботу процедур.

Результат виконання лабораторної роботи повинний бути представлений у наступному виді:

1. Відеокадр вихідної таблиці

2. Листинг модуля VBA з керуючою конструкцією For…. Next має такий вигляд:

Sub AvtUchet()

Dim Imax, iMin, i As Integer

Imax = WorksheetFunction.Max(Range("C4:C10"))

iMin = WorksheetFunction.Min(Range("C4:C10"))

For i = 4 To 10

If Cells(i, 3).Value = Imax Then

Range(Cells(i, 1), Cells(i, 3)).Font.Color = vbRed

ElseIf Cells(i, 3).Value = iMin Then

Range(Cells(i, 1), Cells(i, 3)).Font.Color = vbGreen

Else

Range(Cells(i, 1), Cells(i, 3)).Font.Color = vbBlack

End If

Next i

End Sub

3. Листинг модуля VBA, що включа процедуру Font_Color має такий вигляд:

Sub Font_Color()

For i = 4 To 10

Range(Cells(i, 1), Cells(i, 3)).Font.Color = vbBlack

Range(Cells(i, 1), Cells(i, 3)).Font.Bold = False

Next i

End Sub