1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
| Sub Расчитать()
'Сначала объявляем переменные, используемые в программе
'стоимость отгрузки изделий 1ой и 2ой смены
Dim cena(7, 2) As Double
'количество принятых изделий каждого вида
Dim kollp(7, 2) As Integer
'количество отгруженных изделий каждого вида
Dim kollo(7, 2) As Integer
'стоимость оставшихся изделий после смены
Dim zar(7, 2) As Double
'количество оставшихся изделий после 1 и 2 смены
Dim koll_p(7, 2) As Integer
'стоимость отгруженных изделий
Dim koll_o(7, 2) As Double
'количество оставшихся изделий к концу 2 смены
Dim koll_ost(7) As Integer
'стоимость всех отгруженных изделий 1 и 2 смены
Dim koll_all(7, 2) As Double
'стоимость всех оставшихся изделий к окончанию 2 смены
Dim zar_all(7, 2) As Double
'наименование изделия меньшего спроса
Dim izd As Integer
'счетчик циклов
Dim i As Integer, j As Integer
'Далее всем переменным присваивается нулевое значение
For i = 1 To 7
For j = 1 To 2
cena(i, j) = 0
Next j
Next i
For i = 1 To 7
For j = 1 To 2
kollp(i, j) = 0
Next j
Next i
For i = 1 To 7
For j = 1 To 2
kollo(i, j) = 0
Next j
Next i
'В этом фрагменте кода происходит считывание начальных данных с листа "Нач_д"
Sheets("Нач_д").Select
'вводим цену
For i = 1 To 7
For j = 1 To 2
cena(i, j) = Cells(6 + i, 7)
Next j
Next i
' забиваем количество поступившего
For j = 1 To 2
For i = 1 To 7
kollp(i, j) = Cells(6 + i, 1 + j + j)
Next i
Next j
' забиваем количество отгруженного
For j = 1 To 2
For i = 1 To 7
kollo(i, j) = Cells(6 + i, 2 + j + j)
Next i
Next j
'Далее на листе "Результат" в ячейку с определенным номером вводится ее название
Sheets("Результат").Select
' 1 смена
Sheets("Результат").Cells(2, 4) = "1 смена"
Sheets("Результат").Cells(4, 2) = "Наименование изделия"
Sheets("Результат").Cells(6, 2) = "болт"
Sheets("Результат").Cells(7, 2) = "гайка"
Sheets("Результат").Cells(8, 2) = "шуруп"
Sheets("Результат").Cells(9, 2) = "отвертка"
Sheets("Результат").Cells(10, 2) = "молоток"
Sheets("Результат").Cells(11, 2) = "гвоздь"
Sheets("Результат").Cells(12, 2) = "шайба"
Sheets("Результат").Cells(4, 3) = "Изделий поступило"
Sheets("Результат").Cells(4, 4) = "Изделий отгружено"
Sheets("Результат").Cells(4, 5) = "Стоимость изделий"
Sheets("Результат").Cells(4, 6) = "Стоимость отгруженных изделий"
Sheets("Результат").Cells(4, 7) = "Осталось изделий после 1ой смены"
Sheets("Результат").Cells(4, 8) = "Стоимость оставшихся изделий"
' 2 смена
Sheets("Результат").Cells(15, 4) = "2 смена"
Sheets("Результат").Cells(17, 2) = "Наименование изделий"
Sheets("Результат").Cells(19, 2) = "болт"
Sheets("Результат").Cells(20, 2) = "гайка"
Sheets("Результат").Cells(21, 2) = "шуруп"
Sheets("Результат").Cells(22, 2) = "отвертка"
Sheets("Результат").Cells(23, 2) = "молоток"
Sheets("Результат").Cells(24, 2) = "гвоздь"
Sheets("Результат").Cells(25, 2) = "шайба"
Sheets("Результат").Cells(17, 3) = "Изделий поступило"
Sheets("Результат").Cells(17, 4) = "Изделий отгружено"
Sheets("Результат").Cells(17, 5) = "Стоимость изделий"
Sheets("Результат").Cells(17, 6) = "Стоимость отгруженных изделий"
Sheets("Результат").Cells(17, 7) = "Осталось изделий после 2х смен"
Sheets("Результат").Cells(17, 8) = "Стоимость оставшихся изделий"
Sheets("Результат").Cells(28, 2) = "Стоимость всех отгруженных изделий 1 смены"
Sheets("Результат").Cells(29, 2) = "Стоимость всех отгруженных изделий 2 смены"
Sheets("Результат").Cells(30, 2) = "Стоимость всех оставшихся изделий к окончанию 2 смены"
Sheets("Результат").Cells(31, 2) = "Изделие пользующиеся наименьшим спросом"
'В этом фрагменте происходит подсчет и вывод на рабочий лист всех необходимых данных
For i = 1 To 7
For j = 1 To 2
'Вывод на лист "Результат" количества погруженных и отгруженных изделий, а так же их цены
Sheets("результат").Cells(5 + i + (j - 1) * 13, 5) = cena(i, j)
Sheets("результат").Cells(5 + i + (j - 1) * 13, 3) = kollp(i, j)
Sheets("результат").Cells(5 + i + (j - 1) * 13, 4) = kollo(i, j)
'Подсчет и вывод на рабочий лист стоимости отгруженных изделий
koll_o(i, j) = cena(i, j) * kollo(i, j)
Sheets("результат").Cells(5 + i + (j - 1) * 13, 6) = koll_o(i, j)
'Подсчет и вывод на рабочий лист количества оставшихся изделий после 1 смены и к концу 2 смены
koll_p(i, 1) = kollp(i, 1) - kollo(i, 1)
Sheets("результат").Cells(5 + i + (1 - 1) * 13, 7) = koll_p(i, 1)
koll_p(i, 2) = kollp(i, 2) - kollo(i, 2) + koll_p(i, 1)
Sheets("результат").Cells(5 + i + (2 - 1) * 13, 7) = koll_p(i, 2)
'Находим стоимость оставшихся изделий после 1 и 2 смены
zar(i, j) = koll_p(i, j) * cena(i, j)
Sheets("результат").Cells(5 + i + (j - 1) * 13, 8) = zar(i, j)
'Находим стоимость всех отгруженных изделий 1 и 2 смены
koll_all(7, j) = koll_all(7, j) + cena(i, j) * kollo(i, j)
Sheets("результат").Cells(27 + j, 6) = koll_all(7, j)
'Высчитываем общую стоимость оставшихся изделий к концу 2 смены
zar_all(7, j) = zar_all(7, j) + koll_p(i, j) * cena(i, j)
Sheets("результат").Cells(30, 6) = zar_all(7, j)
Next j
Next i
'Здесь описан алгоритм сравнения изделий по наименьшему спросу
izd = kollo(1, 1)
For i = 1 To 7
For j = 1 To 2
If kollo(i, j) < izd Then
izd = kollo(i, j)
Sheets("Результат").Cells(31, 6) = Sheets("Результат").Cells(5 + i + (j - 1) * 13, 2)
End If
Next j
Next i
End Sub |
(
Сообщение от zalman32
