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

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

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

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