я і обнулення
'Спочатку оголошуємо змінні, використовувані в програмі.
Dim naz (12) As String
Dim cena (12) As Double
Dim ras (12,6) As Double
Dim o_ras (12) As Double
Dim o_trati (6) As Double
Dim trati (12,6) As Double
Dim o_stoim As Double
Dim k As Integer
Dim max As Double
'Далі всім змінним присвоюється нульове значення.
For i = 0 To 11
o_ras (i) = 0
Next i
For j = 0 To 5
o_trati (j) = 0
Next j
o_stoim = 0
'введення даних
For i = 0 To 11
naz (i) = Worksheets ("вихідні дані "). Cells (4 + i, 1)
cena (i) = Worksheets ("вихідні дані "). Cells (4 + i,
2)
Next i
For i = 0 To 11
For j = 0 To 5
ras (i, j) = Worksheets ("вихідні дані "). Cells (4 + i, 3 ​​+ j)
Next j
Next i
'рішення
'Знаходимо "загальна витрата" кожного виду тканини за тиждень
For i = 0 To 11
For j = 0 To 5
o_ras (i) = o_ras (i) + ras (i, j)
Next j
Next i
'знаходимо вартість кожного виду тканини за день
For i = 0 To 11
For j = 0 To 5
trati (i, j) = cena (i) * ras (i, j)
Next j
Next i
'знаходимо загальну вартість всієї витраченої тканини за день
For j = 0 To 5
For i = 0 To 11
o_trati (j) = o_trati (j) + trati (i, j)
Next i
Next j
'знаходимо загальну вартість всієї витраченої тканини за тиждень
For j = 0 To 5
o_stoim = o_stoim + o_trati (j)
Next j
k = 0
'максимуму присвоюємо o_ras (k)
max = o_ras (k)
For i = 1 To 11
If o_ras (i)> max Then
max = o_ras (i)
k = i
End If
Next i
'висновок
'На аркуші "результат" у клітинку з певним номером вводиться її назва
Worksheets ("результат"). Cells (2, 1) = "Назва вироби "
Worksheets ("результат"). Cells (2,2) = "Ціна 1м."
Worksheets ("результат"). Cells (2,6) = "Витрата"
Worksheets ("результат"). Cells (3,3) = "1-ий день"
Worksheets ("результат"). Cells (3,4) = "2-ий день"
Worksheets ("результат"). Cells (3,5) = "3-ій день"
Worksheets ("результат"). Cells (3,6) = "4-ий день"
Worksheets ("результат"). Cells (3,7) = "5-ий день"
Worksheets ("результат"). Cells (3,8) = "6-ий день"
Worksheets ("результат"). Cells (3,11) = "загальний витрата "
Worksheets ("результат"). Cells (20,5) = "витрати"
Worksheets ("результат"). Cells (34, 1) = "загальні витрати "
Worksheets ("результат"). Cells (35, 1) = "загальна вартість "
Worksheets ("результат"). Cells (36,2) = naz (k)
Worksheets ("результат"). Cells (36, 1) = "сама ходова тканина "
'В цьому фрагменті відбувається виведення на робочий лист загальної витрати
For i = 0 To 11
Worksheets ("результат"). Cells (4 + i, 1) = naz (i)
Worksheets ("результат"). Cells (4 + i,
2) = cena (i)
Next i
For i = 0 To 11
For j = 0 To 5
Worksheets ("результат"). Cells (4 + i, 3 ​​+ j) = ras (i, j)
Worksheets ("результат"). Cells (35,2) = o_stoim
Worksheets ("результат"). Cells (34,2) = o_trati
Next j
Next i
For i = 0 To 11
For j = 0 To 5
Worksheets ("результат"). Cells (22 + i, 2 + j) = trati (i, j)
Next j
Next i
End Sub
Private Sub CommandButton2_Click ()
Worksheets ("результат"). Cells.Clear
End Sub
Таблиця 1.
Назва виробу
Ціна 1м.
Витрата
1-ий день
2-ий день
3-ій день
4-ий день
5-ий день
6-ий день
Бавовна
95
2
6
3
4
2
3
Шовк
110
4
7
4
5
...
