Зразок
ЗАВДАННЯ №11
Виконав студент групи <група> <ПІБ>(№35- варіант)
Роздiл 1.Постановка задачi
а)Формулювання задачі:
На аркуші робочої книги Excel створити макет результатного документу з назвою. Підготувати ідентифікатори, розробити алгоритм та VBA-код функції користувача, яка буде обчислювати та виводити у відповідну комірку загальний розрахований показник. Зробити аналогічні розрахунки безпосередньо в Excel. На аркуші Excel-документу представити код VBA-функції і Excel-формул.
Умова: Визначити індекс фізичного обсягу виробництва предметів споживання:
де n – кількість видів продукції; Ai, Bi – кількість і-го виду продукції відповідно за базисний і звітний періоди; Ci – вартісь і-го виду продукції у базисному періоді.
б)Макетування документу:
|
в) Пiдготовка даних
|
|
|
|
|
|
|
№
|
Ідентифікатор
|
Тип даних
|
К-ть байт
|
Точнiсть
|
Формула
|
Змiст
|
|
ПОЧАТКОВI
|
|
1
|
ВидПродукц
|
Variant
|
|
|
-
|
масив "Види продукції"
|
|
2
|
ПродукцБазис
|
Variant
|
|
1
|
-
|
масив "Кількість продукції у базисному періоді"
|
|
3
|
ПродукцЗвіт
|
Variant
|
|
1
|
-
|
масив "Кількість продукції у звітному періоді"
|
|
4
|
Вартість
|
Variant
|
|
2
|
-
|
масив "Вартість продукції"
|
|
ДОПОМIЖНI
|
|
1
|
i
|
Integer
|
2
|
|
i = i +1
|
номер виду продукції
|
|
2
|
n
|
Integer
|
2
|
|
n = ПродукцБазис.Rows.Count
|
кількість видів продукції
|
|
3
|
S1
|
Single
|
4
|
|
S1 = S1 + ПродукцЗвіт(i) * Вартість(i)
|
сума вартості продукції у звітному періоді
|
|
4
|
S2
|
Single
|
4
|
|
S2 = S2 + ПродукцБазис(i) * Вартість(i)
|
сума вартості продукції у базисному періоді
|
|
РЕЗУЛЬТАТНI
|
|
1.
|
ІндексВиробПредСпожив
|
Single
|
4
|
4
|
= S1 / S2
|
індекс фізичного обсягу виробництва предметів споживання
|
Роздiл 2.Розробка алгоритму розв’язання задачi(блок-схема).
Роздiл 3.Розробка кодів(програмування).
|
Код Excel:.
|
|
|
|
|
{F11}=СУММПРОИЗВ(D5:D8;E5:E8)/СУММПРОИЗВ(C5:C8;E5:E8)
|
VBA:Функція користувача -
|
{Е11}=ІндексВиробПредСпожив(C5:C8;D5:D8;E5:E8)
|
|
|
|
|
|
|
|
|
Код функції користувача -
|
Option Explicit
|
|
|
|
|
Option Base 1
|
|
|
|
|
Public Function ІндексВиробПредСпожив(ПродукцБазис As Variant, _
|
|
ПродукцЗвіт As Variant, Вартість As Variant) As Single
|
|
|
Dim S1, S2 As Single, i, n As Integer
|
|
|
n = ПродукцБазис.Rows.Count
|
|
|
|
S1 = 0: S2 = 0
|
|
|
|
|
For i = 1 To n
|
|
|
|
|
S1 = S1 + ПродукцЗвіт(i) * Вартість(i)
|
|
|
S2 = S2 + ПродукцБазис(i) * Вартість(i)
|
|
|
Next i
|
|
|
|
|
ІндексВиробПредСпожив = S1 / S2
|
|
|
End Function
|
|
|
|
Роздiл 4.Комп'ютерна підготовка і обробка.
|
